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

[bumb]

السلام عليكم

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

 

[Barna]

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

" & me.textbox & "

 

[jjafferr]

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

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

 

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

 

جعفر

[bumb]

50 دقائق مضت, jjafferr said:

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

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

[ناقل]

منذ ساعه, Barna said:

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

" & me.textbox & "

 

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

 

[bumb]

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

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

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

[ناقل]

10 دقائق مضت, bumb said:

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

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

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

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

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]

9 ساعات مضت, bumb said:

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

 

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

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

 

جعفر

[kha9009lid]

13 ساعات مضت, bumb said:

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

 

3 ساعات مضت, jjafferr said:

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

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

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

 

[jjafferr]

4 ساعات مضت, kha9009lid said:

الرسالة تظهر

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

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

 

جعفر

[kha9009lid]

9 دقائق مضت, jjafferr said:

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

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

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

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

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

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

[jjafferr]

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

 

جعفر

[kha9009lid]

3 ساعات مضت, jjafferr said:

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

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

[د.كاف يار]

في ٢٤‏/٦‏/٢٠٢١ at 03:59, bumb said:

السلام عليكم

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

 

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

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