اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

test.rar

رابط هذا التعليق
شارك

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)

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information