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 از آنها استفاده نمود
امیدوارم این تکنیک ساده مفید واقع شده باشد
درباره این سایت