amp_1356
شنبه 09 خرداد 1394, 12:19 عصر
سلام.
من یه برنامه دارم که می خوام با یه ماژول اطلاعات یه جدول رو داخل یه فرم Unbound نمایش بده. داخل ماژول به این صورت نوشتم:
Function unboundDisplay(frm As Form, frmRs As DAO.Recordset) As Integer Dim ctlName As String
Dim IngReturn As Long
Dim x As Integer
On Error GoTo HandleError
frmRs.MoveFirst
For x = 0 To frmRs.Fields.Count - 1
ctlName = frmRs.Fields(x).Name
frm.Controls(ctlName).Value = frmRs.Fields(x).Value
Next x
display_End:
Exit Function
HandleError:
IngReturn = ErrorRoutine(0)
GoTo display_End
End Function
در رویداد Onopen فرم هم ایت دستورات رو نوشتم:
Private Sub Form_Open(Cancel As Integer)Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Employees")
Call unboundDisplay(Me, rs)
End Sub
حالا می خوام بعد از باز شدن فرم داخل تکس باکس های فرم اطلاعات هر کدام از فیلدها نمایش داده بشه ولی این اتفاق نمی افته
ممنون می شم اگر راهنمایی کنید که بتونم تکس باکس ها رو به Recordset وصل کنم.
نمونه فایل رو هم ضمیمه کردم
لطفا راهنمایی کنید
131795
من یه برنامه دارم که می خوام با یه ماژول اطلاعات یه جدول رو داخل یه فرم Unbound نمایش بده. داخل ماژول به این صورت نوشتم:
Function unboundDisplay(frm As Form, frmRs As DAO.Recordset) As Integer Dim ctlName As String
Dim IngReturn As Long
Dim x As Integer
On Error GoTo HandleError
frmRs.MoveFirst
For x = 0 To frmRs.Fields.Count - 1
ctlName = frmRs.Fields(x).Name
frm.Controls(ctlName).Value = frmRs.Fields(x).Value
Next x
display_End:
Exit Function
HandleError:
IngReturn = ErrorRoutine(0)
GoTo display_End
End Function
در رویداد Onopen فرم هم ایت دستورات رو نوشتم:
Private Sub Form_Open(Cancel As Integer)Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Employees")
Call unboundDisplay(Me, rs)
End Sub
حالا می خوام بعد از باز شدن فرم داخل تکس باکس های فرم اطلاعات هر کدام از فیلدها نمایش داده بشه ولی این اتفاق نمی افته
ممنون می شم اگر راهنمایی کنید که بتونم تکس باکس ها رو به Recordset وصل کنم.
نمونه فایل رو هم ضمیمه کردم
لطفا راهنمایی کنید
131795