m.saber1981

dlookup in vba 2.accdb

السلام عليكم احبيتي في الله امل تعديل معادلة d lookup كما في الصورة والملف المرفق ولكم مني جزيل الشكر

السلام عليكم ورحمة الله وبركاته احتاج تعديل الكود التالي للنسخ من نموذج لجدول Private Sub Command107_Click() DoCmd.RunSQL "INSERT INTO trans_head " & "(trans_num,trans_date) VALUES " & "(trnum, invoice_date);" DoCmd.RunSQL "INSERT INTO trans " & "(trans_num1,acount_num1,debit_amount) VALUES " & "(trnum,me.AX,me.Text36);" 'DoCmd.RunSQL "INSERT INTO trans " & "(trans_num1,acount_name1,credit_amount) VALUES " & "(trnum, 'ÇáãÈíÚÇÊ',Text19);" MsgBox "POST DONE THANKS" End Sub حيث ان اسم الجدول في الصور التالية

السلام عليكم هل يمكن ربط حقل في الاستعلام رقم القيد مثلا مع نموذج بدلالة نفس الرقم وشكراً

السلام عليكم اهل الخبرة عاوز اعدل الكود ده لفتح حقل جديد في جدول ميعين trans_head DoCmd.GoToRecord acDataForm, "tans_head", acNewRec وشكرا

رمصان كريم مفيش مساعدة

alwazeer عفوا هذا هو الملف بدون كلمة مرور https://drive.google.com/open?id=0B1pdM1cXt3XQMExBeE5sTGFiYW8

السلام عليكم ورحمة الله رمضان كريم وكل عام وانتم بخير احتاج المساعدة حيث اني اريد ان ارقم دفعات الموردين مثال عندي مورد احمد ومورد محمود احمد حصل على ثلاث دفعات ومحمود حصل على خمسه اريد عند الضغط علة جديد في سند واختياري المورد احمد يظهر الرقم اللي عليه الدور لدفعة احمد يعني رقم 4 وعندما اختار جديد واختار محمود يظهر رقم 5 . شكرا لكم https://drive.google.com/open?id=0B1pdM1cXt3XQNTdETjFPR1AxQ3c

هلا انتو زهقتوا من ولا ايه حد يجاوبني الله يجزاكم خير

شكرا لكم جميعا الكود اشتغل بعد السطر اللي اضافه الاخ ابوعارف ...معلش انا جديد في الاكسس وبالف عشان اتعلم انا عاوز الكودده يشتغل عند فتح قاعدة البيانات Private Sub database_load() If MsgBox("هل تريد فتح البرنامج", vbYesNo, "برنامج منجز") = vbNo Then DoCmd.SelectObject acDatabaseProperties, "اسم قاعدة البينات" DoCmd.Quit Else DoCmd.SelectObject acDatabaseProperties, "اسم قاعدة البينات" DoCmd.OpenDataAccessPage End Sub http://recordit.co/vOPl3nS8ez ممكن التصحيح انا عاوز اقله لو نعم افتح قاعدة البيانات لو لا اغلق القاعدة زحطيته في لود الداتا بيز بس مشتغلش

الاخ ابوعارف نتمنى شرح الكود الاخير الذي الصقته DoCmd.SelectObject acForm, "FormName"

معلش ماحددت ايه خطائي لانه نفس الكود اللي انا ارفقته بس مااشتغل

السلام عليكم السادة محترفي الاكسس انا تو بادئ في تعلم vba وارفقت لكم صوره لمعرفة خطائي في دالة اف حيث اريد ان اقول عند التحميل مسج بوكس نعم اولا في حالة لا اعطي رسالة لا وفي حالة نعم اعطي maxmize form فما هو الخطاء في كتابة عبارتي http://recordit.co/uN0uSft7dV

جزيت خير elsayed bn gemy

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