وضع قيمة استعلام بالفورم

[زياد الحسناوي]

السلام عليكم ارجو من الاساتذة الافاضل مساعدتي في التالي

وضعت بالفورم text38

اريد ان يكون مصدر بياناته ليس الجدول الرئيسي وانما قيمة موجودة في استعلام ؟ 

هل توجد طريقة ؟ استخدمت الدالة dlookup

ولكن لم تنجح (وضعتها في Control Source)

[ابوخليل]

عليكم السلام

طريقتك صحيحة 100%

اكتب الكود هنا  لفحصه وتصحيحه

[زياد الحسناوي]

59 دقائق مضت, ابوخليل said:

عليكم السلام

طريقتك صحيحة 100%

اكتب الكود هنا  لفحصه وتصحيحه

 Dlookup ([اسم الحقل];اسم الكويري)

[غريب طرابلس]

طريقتك صحيحة

كما قال استادنا الفاضل ابو خليل

هدا هو الكود اكتبه بنفس الطريقة DLookUp("[اسم الحقل]";"الاستعلام")

[زياد الحسناوي]

10 ساعات مضت, غريب طرابلس said:

طريقتك صحيحة

كما قال استادنا الفاضل ابو خليل

هدا هو الكود اكتبه بنفس الطريقة DLookUp("[اسم الحقل]";"الاستعلام")

تمام المشكلة كانت بالبرنامج 

غلقته و فتحته رجع اشتغل طبيعي 

[زياد الحسناوي]

22 ساعات مضت, ابوخليل said:

عليكم السلام

طريقتك صحيحة 100%

اكتب الكود هنا  لفحصه وتصحيحه

 

21 ساعات مضت, غريب طرابلس said:

طريقتك صحيحة

كما قال استادنا الفاضل ابو خليل

هدا هو الكود اكتبه بنفس الطريقة DLookUp("[اسم الحقل]";"الاستعلام")

عند وضع الكود 

والانتقال من موظف،الى اخر 

القيم الموجود في التيكست لا تتغير تبقى ثابتة للجميع

بالرغم من تغيرها بالاستعلام 

تم وضع كود ع التيكست docmd.requary

ولم تنفع وتم،اضافتها ع زر 🔘 السابق والتالي

ونفس الشي

[زياد الحسناوي]

 

 

 

[ابوخليل]

جرب التنشيط بهذه الطريقة :

Private Sub Form_Current()
text1.requary
End Sub

على اعتبار text1   هو الحقل الهدف

[زياد الحسناوي]

46 دقائق مضت, ابوخليل said:

جرب التنشيط بهذه الطريقة :

Private Sub Form_Current()
text1.requary
End Sub

على اعتبار text1   هو الحقل الهدف

جربت ما نفعت

تم تعديل ديسمبر 15, 2018 بواسطه zYo

[qathi]

5 ساعات مضت, zYo said:

جربت ما نفعت

جرب

Private Sub Form_Current()
Text1 = Null
End Sub

 

[زياد الحسناوي]

24 دقائق مضت, qathi said:

جرب

Private Sub Form_Current()
Text1 = Null
End Sub

 

ينطيني مشكلة بالكود ويحدده باللون الاصفر

[77061]

السلام عليكم 

اريد كود ينسخ بيانات من جدول ويحطها في جدول اخر بنفس الحقول

 

[ابوخليل]

اقتباس

جربت ما نفعت

لو انت تعمل مثال صغير وترفقه للتطبيق عليه كان حصلت على الاجابة الشافية من اول مشارك

[زياد الحسناوي]

منذ ساعه, ابوخليل said:

لو انت تعمل مثال صغير وترفقه للتطبيق عليه كان حصلت على الاجابة الشافية من اول مشارك

هذا رابط الملف التجريبي 

https://www.mediafire.com/file/rm8ky6i6r8adlmi/000_-_Copy.accdb/file

تم تعديل ديسمبر 15, 2018 بواسطه zYo

[غريب طرابلس]

جرب اخي الكريم 

ما قمت به وهو جلب قيمة من الاستعلام بدون شرط

ولم تضف شرط 

فلهاد السبب  لم تتغير الارقام مع تغيير السجلات 

ووافينا بنتيجة هل هو المطلوب 

000 - Copy.rar

تم تعديل ديسمبر 15, 2018 بواسطه غريب طرابلس

[زياد الحسناوي]

16 دقائق مضت, غريب طرابلس said:

جرب اخي الكريم 

ووافينا بنتيجة هل هو المطلوب 

000 - Copy.rar

عاشت ايدك استاذي 

هذا المطلوب بالضبط 

 

 

في هذا الموضوع مشكلة اخرى لنفس الملف يرجى للاطلاع عليها

 

تم تعديل ديسمبر 15, 2018 بواسطه zYo

[غريب طرابلس]

الحمد لله

ونشكر استادنا الشيخ ابو خليل

على مد يد العون للجميع

دائما نراه سباق للاجابة

بارك الله فيه واطال الله عمره

[زياد الحسناوي]

2 دقائق مضت, غريب طرابلس said:

الحمد لله

ونشكر استادنا الشيخ ابو خليل

على مد يد العون للجميع

دائما نراه سباق للاجابة

بارك الله فيه واطال الله عمره

اشكر جميع الاساتذة الي قدموا المساعدة

ولم استطع ارفاق مثال لان الحاسوب ما كان فيه نت 

ولهذا اعتمدت ع الصور 

 

اشكركم مرة ثانية ع رحابة صدركم