نقل قيمة من حقل الى حقل اخر

[عدي99]

السلام عليكم

لدي جدولين

الجدول الاول فيه حقل text

الجدول الثاني يحتوي على الحقول 

Text1

Text2

Text3

Text4

Text5

المطلوب 

هو عمل كود يقوم بالبحث عن القيمة الموجودة في text5 ووضعها في حقل text واذا كان الحقل text5 فارغ يقوم بالبحث عن القيمة الموجودة في text4 ووضعها في textوهكذا باقي الحقول text3 الخ .....

 

 

[عدي99]

بالمتابعة 

[ابو عارف]

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

نفترض جدول 1 اسمه Table1

و جدول الثاني اسمه Table2   او غير اسماء جدولين في الكود الى اسماء جدولين لديك

انشيء زر الأمر في نموذج و الصق الكود التالي في حدث نقر

Dim vl As String
Dim i
For i = 5 To 1 Step -1
vl = Nz(DLookup("Text" & i, "Table2"))
If vl <> "" And Not IsNull(vl) Then
Exit For
End If
Next i
DoCmd.RunSQL ("INSERT INTO Table1 (txt)VALUES ('" & vl & "')")

 

[عدي99]

شكرا استاذ ابو عارف

لكن لم يضبط فيه مشكلة ممكن تطلع على الملف المرفق

نقل قيمة من حقل الى اخر.rar

شكرا استاذ عارف

لكن لم يضبط فيه مشكلة ممكن تطلع على الملف المرفق

تم تعديل نوفمبر 24, 2018 بواسطه عدي99

[عدي99]

بالمتابعة

[ابو عارف]

في ٢٤‏/١١‏/٢٠١٨ at 07:10, عدي99 said:

شكرا استاذ ابو عارف

 

شكر لله

في ٢٤‏/١١‏/٢٠١٨ at 07:10, عدي99 said:

لكن لم يضبط فيه مشكلة ممكن تطلع على الملف المرفق

هناك اكثر من سبب منهم اسماء حقول غير اسماء كما كتيت في بداية  مشاركة و علاقة جدولين و قيم افتراضي 0 لـ جدولين و في الحالة اضافة سجل من خلال اكيوال تنتج قيم مككرة في حقل مفهرس(تكرار غير مقبول)

على كل حال جرب التعديل 

نقل قيمة من حقل الى اخر.rar