Dlookup لا تجلب البيانات

[bumb]

السلام عليكم

عندي textbox اضع فيه رقم الموظف وتقوم الدالة بجلب بيانات الموظف ووضعها في الـ Textboxs الخاصة بها ولكني احصل على رسالة خطأ

 

[Barna]

حاول الكتابة بهذه الصورة ....

" & me.textbox & "

 

[jjafferr]

اذا كان نوع الحقل txtEmpNumber نص ، فيجب كتابة الكود هكذا:

='" & me.txtEmpNumber & "'")

 

وبدل ان تطلب البيانات من الجدول/الاستعلام 3 مرات عن طريق الامر Dlookup ، يمكنك جلبهم مرة واحدة ، هكذا:

 

جعفر

[bumb]

  في 23‏/6‏/2021 at 20:21, jjafferr said:

='" & me.txtEmpNumber & "'")

Expand  

تظهر لي رسالة خطأ

[ناقل]

  في 23‏/6‏/2021 at 20:12, Barna said:

حاول الكتابة بهذه الصورة ....

" & me.textbox & "

 

Expand  

لم تجب هل جربت هذه الطريقة ؟؟؟؟؟؟؟؟

 

[bumb]

Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber)

الكود بهذا الشكل 

كيف اضيف طريقتك؟

[ناقل]

  في 23‏/6‏/2021 at 21:51, bumb said:

Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber)

الكود بهذا الشكل 

كيف اضيف طريقتك؟

Expand  

جرب هذا الكود !!!

Private Sub txtEmpNumber_AfterUpdate()
Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "")
Me.txtFullNameEN = DLookup("[FullNameEN]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "")
Me.txtintUser!D = DLookup("[txtAutoIntPersonID]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "")
End Sub

 

[jjafferr]

  في 23‏/6‏/2021 at 21:14, bumb said:

تظهر لي رسالة خطأ

Expand  

 

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

Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]='" & Me.txtEmpNumber & "'")

 

جعفر

[kha9009lid]

  في 23‏/6‏/2021 at 21:14, bumb said:

تظهر لي رسالة خطأ

Expand  

 

  في 24‏/6‏/2021 at 06:44, jjafferr said:

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

Expand  

" لايمكن تخصيص قيمة لهذا الكائن "

اخي جعفر هذه الرسالة تظهر عند محاولة تنفيذ الكود بسبب ان مربع النص في النموذج مستخدم ضمن عمليه حسابية في النموذج او مسند له قيمة في منشئ التعبير

 

[jjafferr]

  في 24‏/6‏/2021 at 10:24, kha9009lid said:

الرسالة تظهر

Expand  

شكرا اخوي خالد 🙂

يعني يجب التأكد من وجود قيمة في الحقل قبل تنفيذ الامر !!

 

جعفر

[kha9009lid]

  في 24‏/6‏/2021 at 15:08, jjafferr said:

يعني يجب التأكد من وجود قيمة في الحقل قبل تنفيذ الامر

Expand  

لا المقصود انه اذا اردنا استخدام اي كود لاحتساب قيمة حقل عن طريق الكود مثلا

me.tx2 = ([tx3]+[tx4])
او اي دالة من دوال التجميع
مثلا
me.tx2 = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]='" & Me.txtEmpNumber & "'")
الخ

لابد ان يكون هذا الحقل مصدر بيانته الجدول او حقل غير منظم و لا يكون مصدر بياناته منشئ التعبير

وباختصار اكثر اذا استخدمنا الحقل في منشئ التعبير لايمكن اسناد قيمة له عن طريق الكود

تم تعديل يونيو 24, 2021 بواسطه kha9009lid

[jjafferr]

اذن فنحن مجتاجين الى مرفق 🙂

 

جعفر

[kha9009lid]

  في 24‏/6‏/2021 at 18:26, jjafferr said:

اذن فنحن مجتاجين الى مرفق

Expand  

نعم هذا صحيح استاذي

[د.كاف يار]

  في 23‏/6‏/2021 at 19:59, bumb said:

السلام عليكم

عندي textbox اضع فيه رقم الموظف وتقوم الدالة بجلب بيانات الموظف ووضعها في الـ Textboxs الخاصة بها ولكني احصل على رسالة خطأ

 

Expand  

استعلم مره وحده وخذ البيانات الي تحتاجها سواء بالرقم أو الإسم

Dim db As Database
Dim rs As DAO.Recordset
Dim SettextEmployeeNumber As      
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryPersons textEmployeeNumber=" & textEmployeeNumber)
    
    If Not rs.BOF Then
        rs.MoveFirst                
        While (Not rs.EOF)
         [FullNameAR]=rs.Fields("FullNameAR")
         [FullNameEN]=rs.Fields("FullNameEN")
        Wend
    End If
    rs.Close
    Set rs = Nothing