انتقال اطلاعات TextBox ها و ListBoxها بین فرم های ساخته شده در Access
این مطلب را با یک مثال شروع می کنم:
ما از لیست اجناس یک جنس را انتخاب می کنیم و با زدن دکمه، ضمن بسته شدن لیست، باید نام جنس و قیمت در فاکتور بیافتد.
برای این منظور ابتدا دو فرم ساخته و کنترل های زیر را در آنها قرار دهید:
frm_TransferData1:
TextBox: txtName
TextBox: txtPrice
ListBox: lstKala
button: btnTransfer
frm_TransferData2:
TextBox: txtName1
TextBox: txtPrice1
button: btnTransfer1
در ListBox فرم اول، باید در 2 ستون تعدادی قیمت و نام کالا وارد نماید. در اینجا ستون اول قیمت است و ستون دوم نام کالا
حالا کدهای زیر را در روالهای فرمها وارد نمائید:
Form1---------------------------------------------------------------
Private Sub btnTransfer_Click()
DoCmd.OpenForm "frm_TransferData2"
Forms![frm_TransferData2]![txtName1] = Me.txtName
Forms![frm_TransferData2]![txtPrice1] = Me.txtPrice
DoCmd.Close acForm, "frm_TransferData1"
End Sub
Private Sub lstKala_Click()
Dim i As Integer
i = Me.lstKala.ListIndex
Me.txtPrice = Me.lstKala.Column(0, i)
Me.txtName = Me.lstKala.Column(1, i)
End Sub
Form2----------------------------------------------------------------
Private Sub btnTransfer1_Click()
DoCmd.OpenForm "frm_TransferData1"
End Sub
حالا فرم 1 را اجرا کنید و با انتخاب کالا از لیست باکس و زدن دکمه انتقال، نام کالا و قیمت به فرم دوم که اصطلاحأ فاکتور است وارد می شود و فرم نیز بسته می شود. در این مطلب، 2 هدف پیگیری شده، یکی خواندن و استفاده از هر دو ستون لیست باکس و دیگیری انتقال اطلاعات بین 2 فرم.
قرم دوم نیز می تواند همانند فرم اول دارای لیست باکس باشد و اطلاعات بجای انتقال به TextBox ها به ListBox منتقل شود.
این موارد صرفأ تکنیک هایی است که می توان در برنامه سازی Access از آنها استفاده نمود
امیدوارم این تکنیک ساده مفید واقع شده باشد
- لینک منبع
تاریخ: شنبه , 01 بهمن 1401 (12:00)
- گزارش تخلف مطلب