ابوخليل

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

aa: IIf([hh]-[jj]<=0;"خالص";[hh]-[jj]) اريد كلمه خالص.rar

وان اردت اثبات الرقم داخل الجدول فيمكنك وضع السطر اعلاه في حدث مناسب في محرر الفيجوال

ويمكن الاكتفاء عن الوحدة النمطية بهذا السطر نضعه في مصدر عنصر الحقل المحدد =Day(DateSerial(Year(Date());Month(Date())+1;1)-1)

آمين وإياك تمت الاجابة

بتوفيق الله وفضله هذه وحدة نمطية صغيرة تقوم بالطلب Public Function MonthDays() Dim myMonth As Long myMonth = Month(Date) MonthDays = Day(DateSerial(Year(Date), myMonth + 1, 1) - 1) End Function عدد ايام الشهر الحالي.rar

الاستعلام الجدولي خير وسيلة لتحقيق ذلك اتنظر مثالك بعد التعديل db5.rar

مثالك يشتمل على مطلوبك حيث يتم البحث بين تاريخين فأين المشكلة في ذلك ؟

عدد ايام الشهور الميلادية ثابت يمكن ان تضع الشهور وعددها في جدول ليتم جلبها عند الحاجة

combo4 هذا الاسم لا وجود له والصحيح combo6 راجع مثالك الاول If Combo4.Value = "" or Text2.Value = "" Then هذه صحيحة ويمكن ان تكون هكذا if IsNull([Combo]) Or IsNull >>> ولكنها لن تعمل معك هنا والسبب ان الحقول غير منضمة الى جدول لذا فهي لا تحمل قيمة ولضبط هذه العملية يجب ان تضع في القيمة الافتراضية قيمة معينة كــ "" أو صفر .... وهكذا

الحمد لله ،،، ثم الشكر موصول لمبدع العمل استاذنا القدير عبدالله باقشير

نلتمس لاخونا الشمال العذر فعسى المانع يكون خيرا وبالنسبة لمثالك فاعتقد ان طريقة التطبيق لا يمكن تحققها فأنت طلبت منع تكرار المعرف وايضا منع تكرر ارقام متشابهه للمعرف نفسه فقط وعند التطبيق على الواقع حسب مثالك فإنه ضمنا لا يمكن تكرار ارقام للمعرف بل لا يمكن منحه سوى رقم واحد لانه لن يملك الا سجلا واحدا في هذا الجدول ومع هذا وضعت لك الاكواد الخاصة بمثل هذه المسألة في مثالك المرفق the form.rar

غير السطر الموجود في النموذج frm1 DoCmd.OpenForm "frmErr1" بهذا السطر : DoCmd.OpenForm "frmErr1", , , , , acHidden

Dim i As Integer i = DCount("number2", "tabl2", "number2=" & number1) If i > 0 Then Beep MsgBox "هذا العدد ضمن الاعداد الموجودة" Undo End If مثال.rar

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

If Combo4.Text = "" And Text2.Text = "" Then اولا وجود اللاحقة Text تستلزم وجود التركيز على الحقل عند تنفيذ الامر فإما ان تحذف وإما ان تستبدل بالقيمة Value الثاني انك استخدت And وهنا لن يعمل الكود حتى يكون الحقلان كلاهما فارغان والاولى استخدام Or لاننا لن نسمح لاي واحد منهما ان يكون فارغا

تفضل توقيت كل ثلاث ثواني لترى النتيجة ويمكنك تحديد الفترة حسب الرغبة حيث كل 1000 = ثانية واحدة timre.rar

اذا كانت البيانات وقتية فيمكن استخدام العبارات البرمجية لنقل القيمة من النموذج الى التقرير اما ان كانت البيانات ثابتة ومحفوظة للرجوع اليها فيجب رصدها في الجدول وبالنسبة لخانات الاختيار فيمكن التعبير عنها في الجدول بأرقام 1 ، 2 ، 3 والاسم التوضيحي يظهر في التقرير كترجمة للرقم عبر مربع تحرير وسرد ارفق مثالك على اصدار 2003 مكتملا يشتمل على الجدول والتقرير مع النموذج لتطبيق الطريقة التي تريدها

تفضل prog2.rar

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

المثال مرفق بعد تعديل الملاحظتين card12.rar

المشكلة تتمثل في جدول الملفات حيث يجب تفريغه من البيانات قبل جلبها مرة اخرى ضع هذه الاسطر في أعلى الوحدة النمطية وبالضبط تحت سطر on Error DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbl1.*, * FROM tbl1" DoCmd.SetWarnings True

انظر هذا وفي مكتبتي العديد من هذه الانواع ان لم يعجبك سأرفق لك غيره استيراد وتصدير اكسل اكسس خبور.rar

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

هذا ما تيسر وآمل ان يحقق الفائدة On Error GoTo Err_erru_Click Dim scfil, fil1, pafil As Object ' اعلان عن متغيرات تمثل كائنات 'اعلان عن متغير يمثل قاعدة بيانات Dim db As Database ' اعلان عن متغير يمثل سجلات Dim rs As Recordset ' اعلان عن متغير يمثل مصفوفة نصية Dim i As String ' القاعدة الحالية Set db = CurrentDb ' فتح سجلات الجدول Set rs = db.OpenRecordset("tbl1") 'انشاء كائن ضمن انظمة الملفات Set scfil = CreateObject("Scripting.FileSystemObject") ' الحصول على الملفات داخل مجلد الصور Set pafil = scfil.GetFolder(CurrentProject.Path & "\photos\").Files 'بداية دوارة : كل ملف في المسار الهدف For Each fil1 In pafil ' استخراج اسم اللاحقة او ما يسمى بالامتداد i = scfil.GetExtensionName(fil1.Name) ' ارجاع الى حروف كبيرة وهي زائدة فلسنا بحاجتها فاسماء الملفات ارقام i = UCase(i) ' بداية الشرط : اذا كانت اللاحقة (؟) وهنا يمكنك تحديد نوع الملفات المستخرجة If i = "JPG" Then ' اضف سجلات جديدة rs.AddNew ' استخراج اسم الملف ' rs("picNm") = (scfil.GetBaseName(fil1.Name)) السجلات ' تحديث rs.UpDaTe ' نهاية الشرط End If 'عودة للدوارة Next Exit_erru_Click: Exit Sub Err_erru_Click: DoCmd.CancelEvent Resume Exit_erru_Click Set scfil = Nothing Set pafil = Nothing Set rs = Nothing