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

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

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

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

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

test.rar

[Shivan Rekany]

  في 27‏/3‏/2017 at 07:35, حسين العربى said:

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

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

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

test.rarFetching info...

Expand  

اتفضل

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

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]

  في 27‏/3‏/2017 at 08:46, حسين العربى said:

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

Expand  

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

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

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

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

[Shivan Rekany]

  في 27‏/3‏/2017 at 10:35, حسين العربى said:

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

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

Expand  

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

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]

  في 27‏/3‏/2017 at 11:30, حسين العربى said:

اخي الفاضل Shivan Rekany

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

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

test.rarFetching info...

Expand  

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

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