ابو عارف

بالضبط كما شككت على كل حال نحن كلنا اخوان و نساعد بعضنا بعض و الحمد لله لحصولك على الاجابة،

السلام عليكم و رحمة الله و بركاته اخي "حامل المسك " تحية طيبة و بعد، عنوان الموضوعك وضع علامة صح على كافة السجلات التي تحوي القيمة في مربع تحرير وسرد ثم كتبت: "المطلوب في حال اختيار مادة معينة ووضع علامة صح على الكل أن يضع علامة صح على المواد فقط التي تطابق القيمة في مربع التحرير والسرد وإذا قمت بإزالة الصح أن يزيلها من المواد التي تطابق قيمة مربع التحرير والسرد " ممكن معرفتي اختلاف بين مطلوب و تعديل في المرفق ارفقته قبل مشاركة الاخيرة لاستاذ "غريب" علما انني نزلت مرفق استاذ غريب يعمل عكس بالعكس للجميع سجلات بغض نظر ما هو في مربع تحرير وسرد !!! و لك مني اجمل تحايا،،،،

تفضل اخي اليك التعديل اختيار المقرر.rar

اخي موضوعك مكررة راجع موضو عك السابقة او جرب هذالكود ستجد ملف pdf في نفس مسار البرنامج file1 = CurrentProject.Path & "\Dlt.pdf" DoCmd.OutputTo acOutputForm, "FRM", acFormatPDF, file1 fileSz = FileLen(file1) / 1024 If fileSz > 300 Then If MsgBox("عفواً... لقد تجاوز حجم الملف من حد مسموح للمتابعة اضغط موافق و للالغاء اضغط الغاء", vbYesNo) = vbNo Then Kill file1 Exit Sub End If End If MsgBox "تم تصدير الملف بنجاح"

تفضل اخي جرب التعديل Database (1).rar

شكر لله و جزاك بمثله

السلام عليكم و رحمة الله و بركاته جرب هذا كود علما بان FRM غير الى اسم نموذج مراد تصديره و Dlt الى اسم ملف pdf الجديد file1 = CurrentProject.Path & "\Dlt.pdf" DoCmd.OutputTo acOutputForm, "FRM", acFormatPDF, file1 fileSz = FileLen(file1) / 1024 If fileSz > 300 Then If MsgBox("عفواً... لقد تجاوز حجم الملف من حد مسموح للمتابعة اضغط موافق و للالغاء اضغط الغاء", vbYesNo) = vbNo Then Kill file1 Exit Sub End If End If MsgBox "تم تصدير الملف بنجاح"

النموذج مخصص للبيانات جديدة فقط في لسان تبويب بيانات قم يتغير (ادخال بيانات) الى لا ثم افتح النموذج ثم تقربر و انظر النتيجة بالتوفيق

وعليكم السلام و رحمة الله و بركاته مجرد تغير معيار حقل "انتهت" في استعلام "العقوبة المستمرة" من "العقوبة مستمره" الى "انتهت" او انشاء استعلام مماثل "العقوبة المستمرة" ثم تسميته "انتهت" على معيار جديد كما هو في المرفق عقوبات.rar

شكر لله هناك اكثر من سبب منهم اسماء حقول غير اسماء كما كتيت في بداية مشاركة و علاقة جدولين و قيم افتراضي 0 لـ جدولين و في الحالة اضافة سجل من خلال اكيوال تنتج قيم مككرة في حقل مفهرس(تكرار غير مقبول) على كل حال جرب التعديل نقل قيمة من حقل الى اخر.rar

السلام عليكم و رحمة الله و بركاته اخي ممكن اضافة أمر حفظ سجل قبل تشغيل SQL في كود استاذ شفان او جرب هذا كود في حدث بعد تحديث الحقل DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE " & Form.RecordSource & " SET " & Form.RecordSource & "." & ActiveControl.Name & "= '" & Screen.ActiveControl & "'" DoCmd.SetWarnings True Form.Requery

وعليكم السلام ورحمة الله و بركاته نفترض جدول 1 اسمه Table1 و جدول الثاني اسمه Table2 او غير اسماء جدولين في الكود الى اسماء جدولين لديك انشيء زر الأمر في نموذج و الصق الكود التالي في حدث نقر Dim vl As String Dim i For i = 5 To 1 Step -1 vl = Nz(DLookup("Text" & i, "Table2")) If vl <> "" And Not IsNull(vl) Then Exit For End If Next i DoCmd.RunSQL ("INSERT INTO Table1 (txt)VALUES ('" & vl & "')")

و هذا دون تغير في مصدر الصف و ترك مصدر الصف كما هو حتى لا يضطر المستخدم تغير اسم عنصر في الكود عند تغير اسم عنصر في القائمة مثلاً استبدال "-" بأي حرف او كلمة اخرى Gender.rar

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

السلام عليكم و رحمة الله و بركاته حبيت مشاركة تعديل على فكرة مختلفة Private Sub Gender_AfterUpdate() Combo7 = "" If Me.Gender = "Male" Then Combo7.RowSource = "-" Else Combo7.RowSource = Chr(34) & "Yes" & Chr(34) & ";" & Chr(34) & "No" & Chr(34) Combo7.Requery End If End Sub Gender.rar

السلام عليكم بعد اذن الاستاذ خلف اخي محمد اليك الحل بتغير خاصية هيدر test 5000.mdb

تفضل اخي التعديل حسب فهمي من السؤال

السلام عليكم و رحمة الله و بركاته اخي جرب تغير كود زر "معاينة تقرير" الى: On Error GoTo Err_أمر12_Click Dim stDocName As String stDocName = "Testf" DoCmd.OpenReport stDocName, acPreview, , Datamasterform!TestF.Form.Filter Exit_أمر12_Click: Exit Sub Err_أمر12_Click: MsgBox Err.Description Resume Exit_أمر12_Click

السلام عليكم و رحمة الله و بركاته لاشك ان عمل استاذ شفان يستحق المدح وحبيت اضافة بسيطه الا وهو تحديد و تصدير اكثر من حقل في وقت واحد المثال: test 15.zip

السلام عليكم اليك المثال ان شاء الله يكن قريب الى ما طلبته تقرير.zip

السلام عليكم جرب هذا تعديل تقرير.zip

لان قيمة افتراضية ليست كقيمة مختارة من القائمة و يعتبر الكومبو فاضي حتى تختار له قيمة من القائمة و لجعلها كقيمة مختارة عليك مسح خانة قيمة افتراضية و وضع الكود Combo30 = 15 في حدث عند تحميل الفورم.

اكتب 15 او اكتب رقم عميل ما يقابلة اشرطة في جدول Customertفي ملف المرفق هو 15 و في ملف السابق 7

اكتب 7 في خانة قيمة افتراضي

تفضل اليك المثال Tst.accdb