bumb قام بنشر يونيو 23, 2021 مشاركة قام بنشر يونيو 23, 2021 السلام عليكم عندي textbox اضع فيه رقم الموظف وتقوم الدالة بجلب بيانات الموظف ووضعها في الـ Textboxs الخاصة بها ولكني احصل على رسالة خطأ رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يونيو 23, 2021 مشاركة قام بنشر يونيو 23, 2021 حاول الكتابة بهذه الصورة .... " & me.textbox & " 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 23, 2021 مشاركة قام بنشر يونيو 23, 2021 اذا كان نوع الحقل txtEmpNumber نص ، فيجب كتابة الكود هكذا: ='" & me.txtEmpNumber & "'") وبدل ان تطلب البيانات من الجدول/الاستعلام 3 مرات عن طريق الامر Dlookup ، يمكنك جلبهم مرة واحدة ، هكذا: جعفر 1 رابط هذا التعليق شارك More sharing options...
bumb قام بنشر يونيو 23, 2021 الكاتب مشاركة قام بنشر يونيو 23, 2021 50 دقائق مضت, jjafferr said: ='" & me.txtEmpNumber & "'") تظهر لي رسالة خطأ رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يونيو 23, 2021 مشاركة قام بنشر يونيو 23, 2021 منذ ساعه, Barna said: حاول الكتابة بهذه الصورة .... " & me.textbox & " لم تجب هل جربت هذه الطريقة ؟؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
bumb قام بنشر يونيو 23, 2021 الكاتب مشاركة قام بنشر يونيو 23, 2021 Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber) الكود بهذا الشكل كيف اضيف طريقتك؟ رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يونيو 23, 2021 مشاركة قام بنشر يونيو 23, 2021 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 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 24, 2021 مشاركة قام بنشر يونيو 24, 2021 9 ساعات مضت, bumb said: تظهر لي رسالة خطأ كان المفروض تستخدمه هكذا : Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]='" & Me.txtEmpNumber & "'") جعفر رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر يونيو 24, 2021 مشاركة قام بنشر يونيو 24, 2021 13 ساعات مضت, bumb said: تظهر لي رسالة خطأ 3 ساعات مضت, jjafferr said: كان المفروض تستخدمه هكذا " لايمكن تخصيص قيمة لهذا الكائن " اخي جعفر هذه الرسالة تظهر عند محاولة تنفيذ الكود بسبب ان مربع النص في النموذج مستخدم ضمن عمليه حسابية في النموذج او مسند له قيمة في منشئ التعبير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 24, 2021 مشاركة قام بنشر يونيو 24, 2021 4 ساعات مضت, kha9009lid said: الرسالة تظهر شكرا اخوي خالد 🙂 يعني يجب التأكد من وجود قيمة في الحقل قبل تنفيذ الامر !! جعفر رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر يونيو 24, 2021 مشاركة قام بنشر يونيو 24, 2021 (معدل) 9 دقائق مضت, jjafferr said: يعني يجب التأكد من وجود قيمة في الحقل قبل تنفيذ الامر لا المقصود انه اذا اردنا استخدام اي كود لاحتساب قيمة حقل عن طريق الكود مثلا me.tx2 = ([tx3]+[tx4]) او اي دالة من دوال التجميع مثلا me.tx2 = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]='" & Me.txtEmpNumber & "'") الخ لابد ان يكون هذا الحقل مصدر بيانته الجدول او حقل غير منظم و لا يكون مصدر بياناته منشئ التعبير وباختصار اكثر اذا استخدمنا الحقل في منشئ التعبير لايمكن اسناد قيمة له عن طريق الكود تم تعديل يونيو 24, 2021 بواسطه kha9009lid رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 24, 2021 مشاركة قام بنشر يونيو 24, 2021 اذن فنحن مجتاجين الى مرفق 🙂 جعفر رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر يونيو 24, 2021 مشاركة قام بنشر يونيو 24, 2021 3 ساعات مضت, jjafferr said: اذن فنحن مجتاجين الى مرفق نعم هذا صحيح استاذي 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يونيو 25, 2021 مشاركة قام بنشر يونيو 25, 2021 في ٢٤/٦/٢٠٢١ 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.