jjafferr

طبعا اعرف هذا الشيء ، فهذه هي الحاسة السابعة للمبرمج 🙂 جعفر

وهذه مشاركتي مع اخوي ابوجودي 🙂 استعمل النموذج frm_Generate_Weeks . وهكذا اصبح الكود: Private Sub cmd_Calc_Click() 'all weeks of the year 'Week Number, Saturday, Thursday 'do we have a Year If Len(Me.iYear & "") = 0 Then MsgBox "رجاء ادخال السنه التي تريد العمل عليها" Me.iYear.SetFocus Exit Sub End If 'Do we have iYear data in the table? If DCount("*", "semaine", "Year([dates1])=" & Me.iYear) Then MsgBox "الجدول به بيانات سنة " & Me.iYear & vbCrLf & vbCrLf & _ "لا يمكن الاستمرار" Exit Sub End If Dim D As Date, Date_1 As Date, Date_2 As Date Dim i As Integer, W As Integer Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From semaine") For i = 0 To 366 D = DateAdd("d", i, "1-1-" & Me.iYear) If D >= "31-12-" & Me.iYear Then Exit For If Weekday(D) = 7 Then Date_1 = D 'Saturday Date_2 = DateAdd("d", 5, Date_1) 'Thursday W = W + 1 rst.AddNew rst!n_semaine = W rst!dates1 = Date_1 rst!dates2 = Date_2 rst.Update 'Debug.Print W & vbTab & Date_1 & vbTab & Date_2 End If Next i MsgBox "Done" End Sub جعفر Week, Saturday, Thursday of the year.zip

وعليكم السلام 🙂 بالاضافة الى ملاحظة اخوي حسين ، فقوانين المنتدى تتطلب ان يكون لكل سؤال موضوع خاص 🙂 جعفر

انا عن نفسي ، لم استخدم هذه الطريقة ابداً في اي من برامجي ، وإنما استخدم طريقة اكسس التقليدية 🙂 طبعا هذا لا يعني ان لا يكون هناك حالات خاصة في المستقبل قد استعملها فيها 🙂 بكلام آخر ، انا دائما استخدم طرق اكسس التقليدية : 1. استخدم ربط الجداول بالطريقة العادية ، 2. لا اعمل اخفاء للجداول والاستعلامات والنماذج و.. 3. استخدم قوائم زر الفأرة اليمين ، 4. واستخدم العمود الفقري وقوة الاكسس ، الاستعلامات العادية ، والجأ الى الكود وقت الحاجة ، 5. وووو جعفر

وعليكم السلام 🙂 تفضل: Private Sub Command4_Click() Call ApendData("MyTable", Me) End Sub Function ApendData(strTableName As String, frm As Form) Dim db As DAO.Database Dim rs As DAO.Recordset Dim ctl As Control Set db = CurrentDb() Set rs = db.OpenRecordset(strTableName) rs.AddNew For Each ctl In frm.Controls If ctl.ControlType <> acLabel And ctl.ControlType <> acCommandButton Then rs.Fields(ctl.Name) = ctl.Value End If Next ctl rs.Update rs.Close End Function جعفر ApendDataByRecordset.zip

الآن عندك بحر من الحلول 🙂 هلا والله بالمتواضع 🙂 جعفر

تم تعديل الطريقة الاولى ، بتسمية الاستعلام qry_Show_imgs1 ، والنموذج Form1 ، وتمت الاستفادة من جزئية من كود اخوي حسين @د.كاف يار لضبط المسار تلقائيا (مع اني جربته سابقا ولم يعمل لسبب ما!!) ، شكرا اخوي حسين 🙂 وتم اضافة طريقة ثانية للعمل ، بإضافة الصور الى جدول خاص بها (لأن الصور محدودة وصغيرة فلن تأثر كثيرا على حجم البرنامج) ، فما صرنا محتاجين الى صور خارج البرنامج ، وعليه ، الاستعلام qry_Show_imgs2 ، والنموذج Form2 ، يقومان بالعمل 🙂 جعفر 1501.2.icons_3.zip

السلام عليكم 🙂 في النموذج المستمر ، لا يمكن عمل شيء لحقل دون آخر ، إلا استعمال التنسيق الشرطي 🙂 الطريقة الاخرى ، ان يكون هناك حقل لمسار للصور: هذا المجلد الذي فيه الصور . الاستعلام مصدر بيانات النموذج ، وفيه مسار الصور ، 1- يجب تغيير المسار يدويا ، 2- اسم الصورة هو دمج (مو جمع) الحقلين Completed و Printed . لاحظ اسم الملفات . والنتيجة . جعفر icons_3.zip

مع اني التشفير مو تخصصي ، والظاهر انه في شيء انا مو فاهمه !! كنت اعتقد ان التشفير يكون عادة لجدول المستخدمين ، كلمة الدخول وكلمة السر فقط ، حتى لا يستطيع مستخدم آخر من معرفة هذه المعلومات. ولكن تشفير هذا الكم الكبير من الحقول !! هل برنامجك من السرّية اللي تشفر جميع هذه الحقول ؟ القصد ، مو بسبب توفر وسهولة استخدام مواد وطرق معينة ، اننا نستخدمها بإسراف 🙂 جعفر

شكرا على التحليل والملاحظة 🙂 المرفق ، وفيه استعلامين ، احدهم بالتواريخ الصحيحة ، والآخر تستفيد منه في معرفة التواريخ الخطأ ، جرب نموذج البحث ، وبعدين نتكلن في التفاصيل ان شاء الله 🙂 جعفر IsDate,CDate.zip

وعليكم السلام 🙂 ارفق البرنامج لوسمحت 🙂 جعفر

ممكن ان تستعمل النموذج الجديد (واعمل فيه حقل البحث txt1) ، كنموذج بحث وتتخلّص من النموذج book : استبدل اسم الحقل المحلي بدل عن حقل النموذج : فبدلا عن: str_Search = Forms!Book!tx1 يكون: str_Search = Me.tx1 ولكني انصحك بالتصفية كما تقوم به الآن ، بحيث يبقى فقط السجلات التي بها كلمة البحث. جعفر

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

حياالله ولد بلادي 🙂 استخدم Trim ، وابتعد عن Like قدر الامكان ، لأنها بطيئه نوعا ما 🙂 جعفر

مثل ما دائما اقول: المبرمج مثل الطباخ ، من نفس المكونات يصنع عشرات الوجبات وبنكهات مختلفة 🙂 جعفر

وهو الذي عملته انا في آخر مرفق

وإضافة بسيطة لم استطع اكمالها البارحة: 1. يخبرك تسلسل كلمة البحث الواقف عليها ، 2. الاسهم تبدا التضليل من جديد عندما تصل الى آخر كلمة (طبعا مع اختلاف ذلك ، صاعدا او نازلا) : . جعفر تلوين2.zip

السلام عليكم 🙂 لا وانت الصادق ، من 1-2-2021 الى 1-3-2021 يعتبر شهر 🙂 لأن يوم 28-2-2021 بعد منتصف الليل يكتمل اليوم ، وهذا معناه ان اليوم اصبح 1-3-2021 🙂 جعفر

السلام عليكم 🙂 صار لكم 15 ساعة وما وصلتوا الى نتيجة ، بسبب قلة المعلومات 🙂 محتاجين مرفق. جعفر

وعليكم السلام 🙂 تفضل: 'all weeks of the year 'Week Number, Saturday, Thursday Dim D As Date, Date_1 As Date, Date_2 As Date Dim i As Integer, W As Integer For i = 0 To 366 D = DateAdd("d", i, "1-1-" & Year(Date)) If D >= "31-12-" & Year(Date) Then Exit For If Weekday(D) = 7 Then Date_1 = D 'Saturday Date_2 = DateAdd("d", 5, Date_1) 'Thursday W = W + 1 Debug.Print W & vbTab & Date_1 & vbTab & Date_2 End If Next i . جعفر

المشكلة عندك بأن حقل التاريخ عندك عبارة عن نص ، فنستعمل الامر CDate ومعناه حوّل البيانات الى تاريخ Convert to Date ، ومنها تستطيع عمل الفرز 🙂 هي نفس المشكلة في اسماء الملفات في المجلد ، اذا كانت الاسماء عبارة عن تاريخ ، لا يمكن فرزها بالطريقة الصحيحة !! جعفر

تفضل ، الاستعلام مصدر بيانات النموذج : . والنتيجة: . جعفر

السلام عليكم 🙂 في الاستعلام ، اعمل حقل جديد للفرز : D: CDate([اسم حقل التاريخ]) جعفر

السلام عليكم 🙂 بالاضافة الى طريقة استاذنا ابوجودي ، اليك طريقة اخرى متوفرة على كمبيوترك : افتح برنامج الوورد . استخدم خط Wingdings3 : . انقر نقر مزدوج على الاسهم اللي تريدها (ونصيحة ، اختار اكبر كمية من الاسهم ، لأن شكلها وهي كبيرة قد تجعلك تختار الافضل) ، فتراها في ملف الوورد ، اغلق النافذة ، اعمل نسخ للسهم ، ثم الصقه في الحقل في الاكسس ، وطبعا تختار نوع الخط Wingdings3 🙂 . بس ما تقدر تعمل اي حروف مع السهم ، لأن الحقل في الاكسس يأخذ نوع واحد من الخطوط ، وخط Wingdings3 ما فيه حروف 🙂 ولكن ، يمكنك الحصول على بعض انواع الاسهم في الخطوط العادية ، مثل Arial او اي نوع آخر من الخطوط الموجودة اصلا على كمبيوترك: . وبعد نسخ السهم من الوورد ، ولصقه في حقل الاكسس ، تم كتابة الحرف L مباشرة خلف اللصق : . وصرت اغيّر الخطوط الى ان عجبني سهم هذا الخط 🙂 جعفر

حياك الله 🙂 اسمح لي اوضح لك بعض النقاط عن التاريخ : الاكسس يأخذ تنسيق التاريخ من اعداداتك في الوندوز ، إلا اذا قمت انت بعمل تنسيق آخر للتاريخ في قاعدة بياناتك (لاحظ ان كلامنا كله عن التنسيق ، وليس عن اصل التاريخ) ، انت لما عملت التنسيق هكذا: "mm/dd/yyyy" ، لأنه يتناسب مع التنسيق الذي رأيته في كمبيوترك ، بينما التنسيق في كمبيوتر مستخدم آخر يكون غير (وهذا ما حصل معي) ، فعليه لن يعمل الكود هناك !! وللتغلب على هذه الاشكالية ، استخدم التنسيق للطرفين: "Format([DateOfBirth], 'mm/dd/yyyy') ='" & Format(Me.txtDateOfBirth, "mm/dd/yyyy") & "'" لاحظ ان Format غيّرت نوع الحقل من تاريخ الى نص ، فتعاملي لها هنا هو نص ، ابحث في الانترنت عن "date format used natively by JET SQL" حتى تعرف ان المشكلة دولية 🙂 داخليا واثناء تنفيذ العمل ، الاكسس يتعامل مع التواريخ بالتنسيق الامريكي: شهر/يوم/سنه ، لهذا السبب ، بعض الاوقات ترى في الاستعلامات ان الاكسس قلب بين اليوم والشهر (1 الى 12) !! الدالة DateFormat تقوم بتحويل التاريخ الى النظام الامريكي ، ومنها يكون التاريخ صحيح ، هناك حوار جميل عن تنسيق التاريخ ، وطريقة اخرى للقيام بالعمل ، كما هو موضح بطريقة الاستاذ @Hawiii : جعفر