AhmedEmam

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

السلام عليكم السادة الاعضاء انا عايز اعمل شاشة فاتورة مبيعات و الفاتورة فيها اكثر من صنف المطلوب لما اختار كود الصنف من كمبوبوكس يعطينى الاسم ولما اختار الاسم يعطينى الكود يعنى يكون بالكود او بالاسم فى النموذج المنضم ولكم جزيل الشكر ارجوا ارسال مثال شبيه

السيد الفاضل المثال ده مش بيحفظ المسار لو اتغير يعنى بيثبت المسار للصورة ولو جيت عملت تتغيير للصورة مش بيحفظ المسار الجديد

السادة الاعضاء السلام عليكم اريد مثال على ارفاق صورة صنف مع الصنف عند التعريف وحفظ مسار الصورة فى الجدول مع التاكيد ان الامتداد يكون accdb وليس mdb الف شكر

محمد أبوعبدالله ألف ألف شكر

السادة الاعضاء السلام عليكم اريد برنامج لالغاء مفتاح الشفت بس يكون لامتداد(ACCDB) لان اللى عندى بشترط يكون الامتداد فقط MDB وشكرا

الف الف شكر الله يبارك فيك

النجاشي بيطلع رسالة خطأ

السلام عليكم السادة الاعضاء كل عام وانتم بخير والى الله اقرب انا عندى قاعدة بيانات اكسس وعامل تقسيم للقاعدة الجداول لوحدها والشاشات لوحدها انا عايز لما افتح الشاشة الرئيسيه للبرنامج وعند الخروج ياخد نسخه احتياطى من الجداول فقط اللى هي مقسومة لان طبعا دى الاهم انا عندى كود بياخد نسخه احتياطى من الشاشات والجداول اللينك يعنى لو الجداول الاساسيه اتمسحت كل النسخ الاحتياطى ملهاش لازمه وده الكود اللى عندى On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\Backup" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) End If OldFile = CurrentDb.Name StrNew = CurrentProject.Path & "\Backup" DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) If [BKUP] = True Then NewFile = StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 6) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End If

husamwahab بجد تسلم والله الله ينور عليك يا استاذنا الف الف شكر

husamwahab السلام عليكم لو تتكرم حضرتك لو انا عايز اكتب فى الوحدة النمطية بدل ماياخد صورة من المسار على الكل اخليه ياخد header بلون , detail بلون , footer بلون واكواد الالوان تتكتب فى الوحده النمطيه وانا ممكن اغير فيها بس بردو على الكل وشكرا

husamwahab الف شكر تسلم الله ينور هوا ده اللى انا عايزه

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

السلام عليكم الساده الاعضاء اريد كود تغيير لون الخلفية لاى نموذج فى البرنامج فى وقت واحد لان انا عندى حوالى 50 شاشة فمن الصعب ادخل على كل شاشة واغير الخلفية وشكرا

د.كاف يار الله ينور عليك تسلم هوا ده الف الف شكر