MasterPiece

تم تحميل الملف ,, اخي العزيز , تسمية الجداول والحقول بالعربية من اكبر الاخطاء التي قد تندم عليها عندما يكبر كود البرنامج . ينصح وبشدة تغيير الاسماء للإنجليزية لسهولة تتبع اخطاء التهجئة + الفراغات . سأعيد تسمية الحقول والجداول قبل البدء

ارفق مثال لو سمحت ,,,, انا الحين اتغديت والدماغ عندو :rolleyes: Fatel Error

ما هو الاستفسار ؟؟ ارجو التوضيح

هذا برنامج الامين !!!! الامين يستخدم OCX من صنعهم وخاص فيهم . جرب TrueDBGrid OCX . للاسف , لا اعرف كيفية الحصول عيه .

تفضل Create_DNS.zip

تفضل احلا مثال . Test_Report.zip

عندك طريقتين لمنع التكرار : الاولى : عمل Primary Key في قاعدة البيانات واصطياد (قوية اصطياد) الخطا رقم 2147467259 - On error goto Errorhunter Error Hunter : If err.number = 2147467259 then msgbox "Duplicated record" else msgbox Err.number end if الثانية : كتاب…

ابشر بسعدك , حمل البرنامج ليتسنى فحص المشكلة . اعتقد انك لا تستخدم جمل SQL لذلك يعرض التقرير كل البيانات .

جرب الملف المرفق tests.zip

تم تعديل : مسار الصور ال VAT الDiscount ال Total My_program.zip

(h) ;) (h) -waf

جرب الكود التالي findstr = "No_b = " & Trim(Text7.Text) & ""

تفضل المثال مرفق mujaini.zip

اشد شعري ولا اخبط راسي بالحيط :wacko: للأسف مافي شعر اشده :rolleyes: غير اسم الجدول من Table لاي كلمة بالدنيا وراح يشتغل معك Table كلمة محجوزة بالSQL سلام المثال mezonezo.zip

تفضل TEST.zip

RS.open "Select * from employee order by ID "

عند كتابة المسار استخدم App.path & "\" & db1.mdb

للكتابه على الملف النصي استخدم الكود التالي : Open "C:\text.txt" For Append As #1 Print #1, '" & text1.text & "' Close #1 لنسخ الملفات Call FileCopy(App.Path & File1.Filename, App.Path & File1.Filename ) (Call FileCopy(App.Path & File1.Filename, destenation pa…

الرجاء تحميل الكود لتعديله والرد على سؤالك .

الامر MAX يعطيك اكبر رقم الامر MIN يعطيك اقل رقم الامر SUM يعطيك مجموع الاعلامات (تحتاج Group) وهكذا ,,, "SELECT max FROM scol where name = " & Text1.Text & "" "SELECT min FROM scol where name = " & Text1.Text & ""