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

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

بس سيد جمال المرفق هذا قبل التعديل لو سمحت ارفق المرفق بعد التعديل

http://recordit.co/2fIJvFNMC6
 

السلام عليكم السؤال لمحترفي الاكسس
المطلوب فكرة توليد قيد الي لفاتورة البيع اوالشراء مع حجز رقم في سند القيد؟؟؟

شكر وتقدير للاستاذ/جمال السيد المشرف في هذا المنتدى الرائه لحله مسكله لي على الاكسس والشكر موصول الى جميع القائمين على هذا المنتدى