استفسار : ترحيل بيانات الموظف إلى جدول آخر ..

[بور أحمد]

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

أخواني أسعدكم الله في الدنيا والآخرة ..

 لدي جدول بيانات للموظفين .. وعملت له استعلام برقم الموظف 

ثم عملت نموذج لهذا الاستعلام يحتوي على مربع نص في حالة أدخلت رقم الموظف تظهر لي بيانات الموظف ..

 

طلبي الله يسعدكم  : بعد أن تظهر بيانات الموظف أود أن يتم تسجيلها في جدول آخر تم إنشاءة مسبقاً وبعدها

يقوم بإعادة تركيز المؤشر مرة أخرى إلى مربع إدخال رقم الموظف ، ويقوم بتحديد بيانات مربع النص ) لكي أستطيع من خلال قارئ الباركود كتابة رقم جديد .

 

                      وفقكم الله وسدد خطاكم ..

                                       مرفق ملف للعمل

بيانات الموظفين.accdb

[محمد أبوعبدالله]

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

يمكنك استخدام استعلام الحاق لتفيذ الجزء الاول

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1"
    DoCmd.SetWarnings True

وللجزء الثاني استخدم الكود التالي

    Me.NO.SetFocus
    Me.NO = ""

بيانات الموظفين.accdb

تحياتي

[بور أحمد]

يعطيك العافية أستاذ / محمد ونفع الله بك وبما قدمت ..

بالنسبة للجزء الأول : هو بالفعل ما أريده ..

أما بالنسبة للجزء الثاني : فلا أريد أن أمسح بيانات النص  ،  فقط أريد تحديدها 

بحيث إذا وجهت جهاز الباركود على الباركود يكتب رقم موظف جديد فوق الرقم المحدد

وإذا لم أوجهه الباركود يبقى الرقم في التكست مظلل ( محدد )

 

تم تعديل سبتمبر 17, 2021 بواسطه بور أحمد

[محمد أبوعبدالله]

تفضل احي الكريم

استبدال الكود الموجود بالكود الجديد

Private Sub NO_Exit(Cancel As Integer)

    Me.Requery
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1"
    DoCmd.SetWarnings True
    Me.رقم_الموظف.SetFocus
    Me.NO.SetFocus

End Sub

بيانات الموظفين.accdb

تحياتي

[Eng.Qassim]

السلام عليكم استاذ @محمد أبوعبدالله عند الخروج من النموذج عند اخر سجل سوف يلحقه ثلاث مرات وليس مرة واحدة لان الاستعلام سيشتغل في تلك الحالة

تحياتي

[بور أحمد]

جّمل الله حالك أستاذ / محمد 

     ونفع بك .. هذا ما أريده بالفعل ..

           ولكن بالفعل كما ذكر  @Eng.Qassim يتكرر تشغيل الاستعلام بعد إغلاقة ويظهر لي البيانات مكررة .

تم تعديل سبتمبر 17, 2021 بواسطه بور أحمد

[محمد أبوعبدالله]

تفضل اخي الكريم

Private Sub NO_AfterUpdate()

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1"
    DoCmd.SetWarnings True

End Sub

Private Sub NO_Exit(Cancel As Integer)
    Me.Requery
End Sub

Private Sub رقم_الموظف_GotFocus()

    DoCmd.GoToControl "NO"

End Sub

بيانات الموظفين.accdb

تحياتي

[بور أحمد]

أسعدك الله أستاذ / محمد

      وأنار الله دربك ..