باستخدام زرار id طريقة نقل بيانات من فورم مصدره جدول لفورم اخر بناء على

[safaa salem5]

 فى البدايه حابه اشكر الجروب المحترم والاساتذه الكرام على حسن تعاونهم فى نشر العلم جزاكم الله خيرا على ماتقدموه لنا 

 

 عندى فورم اسمه 

reservation_frm

 وفيه زرار  اسمه النتائج 

عايزه لما اضغط على زرار النتائج يفتحلى فورم اسمه

visit_frm

بنفس ال 

id

 وينقلى باقى البيانات للفورم

visit_frm

lab.rar

تم تعديل نوفمبر 4, 2023 بواسطه safaa salem5

[kkhalifa1960]

تفضلي أستاذة @safaa salem5  سويت طلبك فقط كملي باقي الحقول . ووافني بالرد .

واذا كان هذا طلبك اضغطي على أفضل اجابة 

lab-1.rar

[safaa salem5]

 

 

1 hour ago, kkhalifa1960 said:

تفضلي أستاذة @safaa salem5  سويت طلبك فقط كملي باقي الحقول . ووافني بالرد .

واذا كان هذا طلبك اضغطي على أفضل اجابة 

lab-1.rar 169.14 kB · 3 downloads

صباح الخير تسلم ايديك

بس انا مش عايزه الفيلدات ليها 

control source

عايزاه فاضى زى ماهو

 

تم تعديل نوفمبر 5, 2023 بواسطه safaa salem5

[kkhalifa1960]

امسحيهم !!!!!!

[شايب]

منذ ساعه, kkhalifa1960 said:

امسحيهم !!!!!!

اذا اردنا بقاء نموذج visit_frm غير منضم وبدون اجراء تغيير على النماذج والحقول

فمن اسهل الطرق تحميل قيمة الحقول ضمن امر فتح النموذج

في مثال الاخت في زر الامر النتائج نضع الامر التالي

DoCmd.OpenForm "visit_frm", , , , , , ID & "|" & ptitle & "|" & pname & "|" & code

وكما تشاهد حملنا قيمة اربع حقول ويمكن زيادة عدد اكبر من ذلك وفصلنا بين كل حقل والاخر بـ

&"|"&

والغرض استخدامها كفاصل بين قيمة كل حقل والاخر

ثم في نموذج visit_frm في حدث عند الفتح نضع الامر

If Not IsNull(Me.OpenArgs) Then
Dim k As Variant
k = Split(Me.OpenArgs, "|")
ID = k(0)
ptitle = k(1)
pname = k(2)
code = k(3)
End If

اخونا الشايب

[safaa salem5]

1 hour ago, شايب said:

اذا اردنا بقاء نموذج visit_frm غير منضم وبدون اجراء تغيير على النماذج والحقول

فمن اسهل الطرق تحميل قيمة الحقول ضمن امر فتح النموذج

في مثال الاخت في زر الامر النتائج نضع الامر التالي

DoCmd.OpenForm "visit_frm", , , , , , ID & "|" & ptitle & "|" & pname & "|" & code

وكما تشاهد حملنا قيمة اربع حقول ويمكن زيادة عدد اكبر من ذلك وفصلنا بين كل حقل والاخر بـ

&"|"&

والغرض استخدامها كفاصل بين قيمة كل حقل والاخر

ثم في نموذج visit_frm في حدث عند الفتح نضع الامر

If Not IsNull(Me.OpenArgs) Then
Dim k As Variant
k = Split(Me.OpenArgs, "|")
ID = k(0)
ptitle = k(1)
pname = k(2)
code = k(3)
End If

اخونا الشايب

تمام هو دا بالظبط اللى انا عايزاه بس فى رساله ارور بتطلع

lab.rar

[شايب]

3 دقائق مضت, safaa salem5 said:

تمام هو دا بالظبط اللى انا عايزاه بس فى رساله ارور بتطلع

جربي الان

 

lab.accdb

[safaa salem5]

13 minutes ago, شايب said:

جربي الان

 

lab.accdb 640 kB · 0 downloads

 تمام كدا  حضرتك تسلم لذوقك

ممكن لو سمحت عايزه لما اضغط على الاسم فى اليمين بياناته تظهر معايا فوق زى الصوره

lab.rar

[شايب]

40 دقائق مضت, safaa salem5 said:

عايزه لما اضغط على الاسم فى اليمين بياناته تظهر معايا فوق زى الصوره

ممكن وبعيد عن التعقيدات

ممكن نستدعي البيانات باستخدام دالة Dlookup  على شكل مصفوفة

في حدق عند النقر على الاسم في النموذج الفرعي نضع الامر

Dim a, x As Variant
a = DLookup("[id]&'|'&[ptitle]&'|'&[pname]&'|'&[code]", "reservation_tbl", "[pname]='" & [pname] & "'")
x = Split(a, "|")
Me.Parent!ID = x(0)
Me.Parent!ptitle = x(1)
Me.Parent!pname = x(2)
Me.Parent!code = x(3)

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

&'|'&

لنتمكن بعد ذلك من تقسيم المصفوفة

الملف مرفق

اخونا الشايب

 

lab.accdb

[safaa salem5]

28 minutes ago, شايب said:

ممكن وبعيد عن التعقيدات

ممكن نستدعي البيانات باستخدام دالة Dlookup  على شكل مصفوفة

في حدق عند النقر على الاسم في النموذج الفرعي نضع الامر

Dim a, x As Variant
a = DLookup("[id]&'|'&[ptitle]&'|'&[pname]&'|'&[code]", "reservation_tbl", "[pname]='" & [pname] & "'")
x = Split(a, "|")
Me.Parent!ID = x(0)
Me.Parent!ptitle = x(1)
Me.Parent!pname = x(2)
Me.Parent!code = x(3)

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

&'|'&

لنتمكن بعد ذلك من تقسيم المصفوفة

الملف مرفق

اخونا الشايب

 

lab.accdb 728 kB · 1 download

بجد انت ممتاذ متشكره اوى لتعاونك معايا 

[ابوخليل]

منذ ساعه, شايب said:

ممكن وبعيد عن التعقيدات

ممكن نستدعي البيانات باستخدام دالة Dlookup  على شكل مصفوفة

في حدق عند النقر على الاسم في النموذج الفرعي نضع الامر

Dim a, x As Variant
a = DLookup("[id]&'|'&[ptitle]&'|'&[pname]&'|'&[code]", "reservation_tbl", "[pname]='" & [pname] & "'")
x = Split(a, "|")
Me.Parent!ID = x(0)
Me.Parent!ptitle = x(1)
Me.Parent!pname = x(2)
Me.Parent!code = x(3)

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

&'|'&

لنتمكن بعد ذلك من تقسيم المصفوفة

الملف مرفق

اخونا الشايب

 

lab.accdb 728 kB · 3 downloads

ولا اجمل يا شايبنا 

[شايب]

1 ساعه مضت, safaa salem5 said:

متشكره

الشكر لله يا بنتي

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

ولا اجمل يا شايبنا 

الاجمل مروركم استاذنا