AhmedEmam

الفا مليون شكر الاساتذة الكرام

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

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

السلام عليكم السادة الاعضاء الكرام انا عندى جدول اسمه FORM مخصص فيه كود لكل نموذج يتم انشاءه فى قاعدة البيانات انا عايز نموذج مربوط بالجدول FORM لما اختار اى كود منه يفتح النموذج المطلوب مع الاخذ فى الاعتبار انى هعمل مثلا 50شاشة فمن الصعب احط شرط على كل كود وشكرا FAST_CA.rar

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

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

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

السادة الاعضاء السلام عليكم اريد مثال على ارفاق صورة صنف مع الصنف عند التعريف وحفظ مسار الصورة فى الجدول مع التاكيد ان الامتداد يكون 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 بلون واكواد الالوان تتكتب فى الوحده النمطيه وانا ممكن اغير فيها بس بردو على الكل وشكرا