السلام عليكم
احتاج مساعدة
اذا كان لدي الرقم والاسم
واريد بمجرد كتابة الرقم ان يظهر الاسم وبالعكس فهل هذا ممكن
وجدت هذا الكود في احد الامثلة الموجودة وهو برنامج محاسبة حملته من الموقع
فهل هذا هو الكودالصحيح يرجى شرح الكود وماذا تعني .me
ولكم الشكر
' Form_Current
'
'------------------------------------------------------------
Private Sub Form_Current()
DoCmd.GoToControl "id"
Me.TRANS_NUM = Me.CurrentRecord
If Me.CurrentRecord = 1 Or Me.RecordsetClone.RecordCount = 0 Then
End If
End Sub
Private Sub TRANS_NUM_Exit(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[id]= " & Str(Nz(Me![TRANS_NUM], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
تم تنسيق الكود من قبل المشرف التقني
