عفرنس

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

في انتظار مشاركتك

صحيح 600 طالب تقريبا سامحني أستاذي الفاضل ماذا لو كان عندي عدد 600 فأكثر ؟؟ هل ستظهر اسماؤهم في الكود كما صاحبنا يوسف ؟؟

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

وعليكم السلام فيما أعلم لا يمكن ذلك . لأن التقارير مرتبطة بالجدول أو الاستعلام .

أحاول استيرد الملف فيعطيني الخطأ التالي .. شاكرين ومقدرين تعاونكم @jjafferr @أحمد الفلاحجى@Barna Posters.zip

إخواني الكرام @Barna @ابوآمنة شكر الله لكما .. تم المطلوب ..

في الصورة المرفقة لا أريد أن يظهر الصف المكتوب فيه الاسم والبريد الإلكتروني في جدول techer. @ابوآمنة

شكر الله لك أستاذ خالد حلول رائعة .. مبدع ..

@أحمد الفلاحجى @ابوآمنة @kha9009lid تفاعلكم في الردود يخليني ادور مشكلة في احد البرامج واطرحها هنا علشان تثرونا بما لديكم .. 😉😉😉

شكرا لك أخي @kha9009lid ولك أحلى 🌹

بإذن الله أوافيك بالنتيجة شكر الله لك . ولك أحلى تفاحة 🍎

لا يمكن اضافة اسم المعلم وتظهر هذه الرسالة في الصورة المرفقة علما أن إضافة الصنف تمام ولا مشكلة في الاضافة Library.rar

أحسنت أستاذ @أحمد الفلاحجى استفسار : ما معنى هاتين الكلمتين : true --- false

ممتاز جدا .. أخي @Shivan Rekany استفسار بعد اذنك : في حال أردت يحفظ دون أن يفتح كيف يكون الكود .

السلام عليكم لدي هذا الأمر يحفظ التقرير بصيغة Pdf ويضعه في المستندات . أريده يحفظه قي مجلد البرنامج . DoCmd.OutputTo acOutputReport, "احتياج المدرسة من المواد", acFormatPDF, ("احتياج المدرسة من المواد" & Format(Now(), "mmmyyyy") & ".pdf"), True دمتم سالمين

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

أخي أحمد .. مازال هناك مشكلة في الكود وهي تكرار البيانات المدخلة مرتين

السلام على الجميع يوجد خطأ في كود زر الإضافة لم أستطع إيجاد الحل .. علما أن الكود هو نفسه في زر إضافة في نموذج آخر من نفس البرنامج . @jjafferr A_Library.rar

جزاك الله خيرا معلمي الفاضل @jjafferr خذ هذه الدعابة : في أحد مجالس الخلفاء سأل الخليفة أحدهم : من أين أنت ؟ فأجاب : من حماه حماك الله فأمر له الخليفة بكيس من الذهب وسأل الثاني : من أين أنت ؟ فأجاب : من حمص حمصك الله . فأمر بجلده .. 🏃‍♂️🏃‍♂️🏃‍♂️🏃‍♂️

السلام عليكم في هذا الكود أريد بعد إضافة البيانات يفرغ الحقول . If Len(Me.ZTeacher & "") = 0 Then 'المعلم MsgBox "فضلا أدخل اسم المعلم" Me.ZTeacher.SetFocus Exit Sub ElseIf Len(Me.Zday & "") = 0 Then 'اليوم MsgBox "فضلا أدخل اليوم" Me.Zday.SetFocus Exit Sub ElseIf Len(Me.ZDate & "") = 0 Then 'التاريخ MsgBox "فضلا أدخل التاريخ" Me.ZDate.SetFocus Exit Sub ElseIf Len(Me.ZProduct & "") = 0 Then 'الصنف MsgBox "فضلا أدخل الصنف" Me.ZProduct.SetFocus Exit Sub ElseIf Len(Me.ZA2 & "") = 0 Then 'العدد MsgBox "فضلا أدخل العدد" Me.ZA2.SetFocus Exit Sub ElseIf Len(Me.ZA3 & "") = 0 Then 'ملحوظة MsgBox "فضلا أدخل الملحوظات" Me.ZA3.SetFocus Exit Sub End If Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Stationary_Table.*FROM Stationary_Table;") Rs.AddNew Rs("Teacher") = Me.ZTeacher.Column(1) Rs("Product") = Me.ZProduct.Column(1) Rs("A2") = Me.ZA2.Column(1) Rs("day") = Me.Zday Rs("idate") = Me.ZDate Rs("A3") = Me.ZA3 Rs.Update Rs.Close Me.Requery Beep MsgBox ("تم إضافة البيانات بنجاح"), , "مبروك" End Sub

@jjafferr @kha9009lid @أحمد الفلاحجى الحمد لله رب العالمين أساتذتي الفضلاء شكر الله لكم .. أصبحت الأمور على خير ما يرام ..

أخي @أحمد الفلاحجى.. لماذا إذا ضغطت زر معاينة قبل الطباعة يعطيني رسالة لا يوجد بيانات يمكن طباعتها ؟؟ علما البيانات موجودة .. فيه شي أثر على شيء .

الأستاذ @أحمد الفلاحجى @kha9009lid لا زال هناك مشكلة في عملية التقرير المحفوظ ذكرتها سابقا . وهي باختصار : يحفظ التقرير باسم كل معلم >> لكن لما تفتح التقارير المحفوظة تجد أن المحتوى هو لمعلم واحد فقط .. أي لم يحفظ التقرير الفعلي للمعلم .

@أحمد الفلاحجى @kha9009lid شكر الله لكما سأجرب بعد التعديلات البرنامج وأوافيكم بالنتائج ..