Elsayed Bn Gemy

اخى الكريم الجدول الموجود فى قاعدة البيانات ناقص اسم الشركة

اختر هذا التنسيق لمربع نص التاريخ

المعزرة لك يااخى fruit twig.rar

اخى الكريم تم استعمال الاكواد التالية If Me.Combo5 = "مبيع" Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO trans_head " & "(trans_num,trans_date) VALUES " & "(trnum, invoice_date);" DoCmd.RunSQL "INSERT INTO trans " & "(trans_num1,acount_name1,debit_amount) VALUES " & "(trnum, 'الصندوق',Text19);" DoCmd.RunSQL "INSERT INTO trans " & "(trans_num1,acount_name1,credit_amount) VALUES " & "(trnum, 'المبيعات',Text19);" DoCmd.SetWarnings True MsgBox "تم ترحيل القيد بنجاح", vbInformation, "قيد مبيعات" Else If Me.Combo5 = "شراء" Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO trans_head " & "(trans_num,trans_date) VALUES " & "(trnum, invoice_date);" DoCmd.RunSQL "INSERT INTO trans " & "(trans_num1,acount_name1,debit_amount) VALUES " & "(trnum, 'المشتريات',Text19);" DoCmd.RunSQL "INSERT INTO trans " & "(trans_num1,acount_name1,credit_amount) VALUES " & "(trnum, 'الصندوق',Text19);" DoCmd.SetWarnings True MsgBox "تم ترحيل القيد بنجاح", vbInformation, "قيد شراء" End If End If طريقة العمل http://g.recordit.co/CHybNVntER.gif المرفق fruit twig(2).rar

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

هل جربت ?? DoCmd.SetWarnings False 'الكود DoCmd.SetWarnings True

اخى الكريم الكود صحيح ولكن استبدل Me.Refresh استبدلها بالسطر التالى قبل تنفيذ سطر الحذف Me.Requery

المرفق sedo.rar

تم تعديل العلاقة مرة اخرى ليتناسب مع فورم الاضافة

مشاركة مع اخونا ابو عبد الله برنامج شركات.rar

ضعه فى حدث عند فتح التقرير

اخى الكريم اضف زر فى التقرير المراد طباعته وادرج هذا الكود به DoCmd.RunCommand acCmdPrint

اخى الكريم ارجو ارفاق مثالا معغ الشرح عليه

اخى الكريم ارفق مثالا او استعمل الدالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ .. صيغتها كما يلي : A = NZ(B,0) أو A = NZ(B) S = NZ (V,"") ومن هذا يتضح أن لهذه الدالة ممران 1- القيمة المطلوب فحصها 2- القيمة المعادة في حال كون القيمة الأولى Null وفي حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر في حال كون القيمة الأولى Null

السلام عليكم استاذتى الافاضل اسمحولى ان اشاركم فى الرد عسى الله ان يسدد خطانا تم تعديل العلاقة بين جدول اجازة ودول اجازة ترصيد تم اضافة مرع بحث سريع فى نموذج الاستعلام تم اضافة استعلام اجمالى بعدد السنوات لكل موظف باقى نموذ الادخال استاذنى اخى الفاضل هانى ان شاء الله غدا لانى اتضور جوعا ولكن من النوم هههههه اما بالنسبة للمرفق اتمنى ان تهرسه النهاردة وتطلع فيه اى خطا يقابلك علشان نقدر نشوف فيه ايه صورة متحركة من مربع البحث http://g.recordit.co/xWfxwyuGPE.gif sedo.rar

الرسالة تخبرك بان مربع النص الذى تريد استداعء القيمة منه فارغ ؟؟

اخى الكريم اضف هذه الوحدة النمطية Public Function defaultvalue () As String Dim strdefaultvalue As Integer strdefaultvalue = [Forms]![fbillcr]![acc_code] defaultvalue = strdefaultvalue End Function وفى ز ر فاتورة جديدة اضف هذا الكود Me.acc_code = defaultvalue()

شكرا لك اخى الكريم وبارك الله فيك

نعم يجوز لانه ياخذ نسخة من قاعدة البيانات الحالية ولا يتعرض الى الربط بين النماذج او الجداول

سبب المشكلة هى اللغة لقد قمت بتصميم البرنامج فى بيئة اوفيس 2013 عربى وانت اعدادات اللغة لديك غير العربية حل مؤقت افتح البرنامج فى طريقة عرض التصميم ستجد نموذج اسمه logo فقط قم بتسميته اى اسم اخر وبعد التسميه اجعله نموذج البداية لقاعدة البيانات وافتح البرنامج من جديد اخى الكريم اقترحاتك قيمة وتحت النظر واعتقد انا اخونا ابو خليل قد افاض واستفاض فى هذا كثيرا اسالك الدعاء لانى اقوم على تصميم برنامج لتركيب هذا المعالج على اى قاعدة بينات اخرى ليتسنى للمصمم السهولة فى تحويل برنامجه الى قابل للتثبيت

مبارك عليك اخى الكريم والى الامام دائمااااا

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

اخى الكريم عن اى كود تتحدث والصورة المرفقة لم تظهر بارك الله فيك عموما من باب الراى ان تقوم بادراج حقل جديد فى الجدول الخاص بالقيود وليكن ترقيم تلقائى خاص بكل قيد ليتسنى لك طباعة القيد من الرقم الخاص به

السلام عليكم اسمحو لى بالتطفل عليكم الكود الذى يطبع من الفورم مباشره هذا هو DoCmd.OpenForm "واجهة ادخال البيانات", acNormal, , , , acDialog DoCmd.PrintOut ولكن يجب عليك ضبط الحدود علشان متطلعش الطباعة زى كدا وكمان لازم تخفى الازرار علشان متطبعش معالفورم ولاخفائها اتبع الاتى كل زر عاوز تخفيه عدل التسيق بتاعه كالاتى

اخى الكريم الاستعلام بالمقطع الاول Expr1: ForSearch(Left([per6];InStr([Per6];" "))) الاستعلام بالمقطع الاخير Expr1: ForSearch(Right([per6];InStr([Per6];" "))) المرفق مع العلم ان مرفقك الاول لم يكن به اكواد البحث هذه فى الاستعلامات تجاهل الهمزات.rar