ممكن مساعدة فى هذا المثال

[Salah Sader]

بسم الله الرحمن الرحيم 

سلام عليكم و رحمة الله و بركاته

 الموظف الموجود مسبقا فى جدول الاول و اضغط انتر (code)  فى هذا المثال لدية جدول و 2 فورم المطلوب فى فورم رقم 1 عندما اقوم بادخال كود

  ( تكتب عبارة (نعم  active  ان تضهر فورم رقم 2 و اضهار اسم الموظف و كود الموظف و فى خانة

  و يتم حفظ عبارة ( نعم) فى الجدول 

sample.rar

[Shivan Rekany]

3 ساعات مضت, Salah Sader said:

بسم الله الرحمن الرحيم 

سلام عليكم و رحمة الله و بركاته

 الموظف الموجود مسبقا فى جدول الاول و اضغط انتر (code)  فى هذا المثال لدية جدول و 2 فورم المطلوب فى فورم رقم 1 عندما اقوم بادخال كود

  ( تكتب عبارة (نعم  active  ان تضهر فورم رقم 2 و اضهار اسم الموظف و كود الموظف و فى خانة

  و يتم حفظ عبارة ( نعم) فى الجدول 

sample.rar

اهلا بك يا ابن بلادي

اتفضل استخدمت هذا الكود

Private Sub Text1_AfterUpdate()
    Dim sql As String
        sql = "UPDATE Table1 SET Table1.Active ='نعم' WHERE (((Table1.[كود الموظف])=[Forms]![Form1]![Text1]));"
If DCount("*", "table1", "[كود الموظف]=" & Me.Text1) > 0 Then
        DoCmd.OpenForm "form2", acNormal
        Forms!form2!Text0 = DLookup("[اسم الموظف]", "table1", "[كود الموظف]=" & Me.Text1)
        Forms!form2!Text2 = Me.Text1
        DoCmd.SetWarnings False
        DoCmd.RunSQL (sql)
        DoCmd.SetWarnings True
        Forms!form2!Text3 = DLookup("[Active]", "table1", "[كود الموظف]=" & Me.Text1)
    Else
        MsgBox "ليس لدينا ھذا الكود في الجدول"
        Me.Text1 = ""
End If
End Sub

واليك مرفقك بعد تعديل

 

sample.rar

[Salah Sader]

المثال تمام اشكرك جزيل شكر  shivan الله ينور عليك اخى العزيز