استدعاء اخر عميل تم تسجيله في نموذج غير منضم

[حسين العربى]

السلام عليكم ورحمة الله وبركاته  ( اخواني اعضاء ومشرفي المنتدي الكرام 

سؤالي هو : استعداء اخر عميل تم تسجيله  من جدول العملاء في نموذج غير منضم من خلال زر امر في النموذج

اليكم المرفق المطلوب العمل عليه به جدول العملاء  ونموذج 

test.rar

[Shivan Rekany]

14 دقائق مضت, حسين العربى said:

السلام عليكم ورحمة الله وبركاته  ( اخواني اعضاء ومشرفي المنتدي الكرام 

سؤالي هو : استعداء اخر عميل تم تسجيله  من جدول العملاء في نموذج غير منضم من خلال زر امر في النموذج

اليكم المرفق المطلوب العمل عليه به جدول العملاء  ونموذج 

test.rar

اتفضل

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

Me.costmor_no = DMax("[costmor_no]", "tabol_costmor")
Me.costmor_name = DLookup("[costmor_name]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no)
Me.addres_costm = DLookup("[addres_costm]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no)
Me.tel_costmor = DLookup("[tel_costmor]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no)

 

[حسين العربى]

الف  الف شكر استاذي الفاضل  Shivan Rekany كود ممتاز هذا هو المطلوب

[Shivan Rekany]

3 دقائق مضت, حسين العربى said:

الف  الف شكر استاذي الفاضل  Shivan Rekany كود ممتاز هذا هو المطلوب

لا داعي للشكر
احنا في الخدمة ان شاء الله

[حسين العربى]

اخي شوفان معلش اتعبك معاي ينفع طلب اخير 

ينفع نحطها في زر خروج من النموذج بحيث لما يسجل بيانات العميل في فورم ادخال بيانات العميل  وعند الضغط علي زر خروج يستدعي العميل الذي تم تسجيله بالاخير في نموذج اخر اسمه forms1

[Shivan Rekany]

15 دقائق مضت, حسين العربى said:

اخي شوفان معلش اتعبك معاي ينفع طلب اخير 

ينفع نحطها في زر خروج من النموذج بحيث لما يسجل بيانات العميل في فورم ادخال بيانات العميل  وعند الضغط علي زر خروج يستدعي العميل الذي تم تسجيله بالاخير في نموذج اخر اسمه forms1

الكود في خلف زر الخروج في نموذج الخروج سيكون كالاتي

DoCmd.OpenForm "FORMS2", acNormal
Forms!FORMS2!costmor_no = DMax("[costmor_no]", "tabol_costmor")
Forms!FORMS2!costmor_name = DLookup("[costmor_name]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no)
Forms!FORMS2!addres_costm = DLookup("[addres_costm]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no)
Forms!FORMS2!tel_costmor = DLookup("[tel_costmor]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no)
DoCmd.Close acForm, "FORMS1", acSaveYes

 

[حسين العربى]

اخي الفاضل Shivan Rekany

انا طبقت الكود كما قلت ولاكن يستدعي الرقم فقط وباقي البيانات لا

اليك مرفق به ماطبق

test.rar

[Shivan Rekany]

44 دقائق مضت, حسين العربى said:

اخي الفاضل Shivan Rekany

انا طبقت الكود كما قلت ولاكن يستدعي الرقم فقط وباقي البيانات لا

اليك مرفق به ماطبق

test.rar

عفوا الان غير الكود كالاتي

Dim MeMaxRec As Integer
DoCmd.OpenForm "FORMS2", acNormal
MeMaxRec = DMax("[costmor_no]", "tabol_costmor")
Forms!FORMS2!costmor_no = MeMaxRec
Forms!FORMS2!costmor_name = DLookup("[costmor_name]", "tabol_costmor", "[costmor_no]=" & MeMaxRec)
Forms!FORMS2!addres_costm = DLookup("[addres_costm]", "tabol_costmor", "[costmor_no]=" & MeMaxRec)
Forms!FORMS2!tel_costmor = DLookup("[tel_costmor]", "tabol_costmor", "[costmor_no]=" & MeMaxRec)
DoCmd.Close acForm, "FORMS1", acSaveYes

اتفضل مع القاعدة

 

test.rar