jjafferr

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

شكرا على التحليل والملاحظة 🙂 المرفق ، وفيه استعلامين ، احدهم بالتواريخ الصحيحة ، والآخر تستفيد منه في معرفة التواريخ الخطأ ، جرب نموذج البحث ، وبعدين نتكلن في التفاصيل ان شاء الله 🙂 جعفر 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 : جعفر

السلام عليكم 🙂 البارحة ، سؤالك كان يوجه تفكيري في اتجاه معين ، فعليه كان جوابي ، ولكن هناك طريقتين اتت على بالي اردت ان اوضحهم لك: 1. الآن عندك 3 طرق للبحث ، نموذجين وتقرير : 2. النموذج الاول ، وهو الذي ارفقه البارحة: لما تنقر على اي سجل ، سترى ان الكلمة التي تبحث عنها والمؤشرة باللون الاحمر ، اصبحت في منتصف السجل ، ويمكنك قراءة السطر ، 3. النموذج الثاني: يخبرك عدد كلمات البحث في السجل ، ويقوم بتضليل الكلمة ، وبالاسهم ، تستطيع الذهاب الى الكلمة التالية ، ويتم تضليلها : . 4. التقرير: بصيغة عرض التعيين: ويعرض السجل كاملا ، بلون كلمة البحث: . جعفر تلوين2.zip

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

استخدم القيم الموجودة في سجل الجدول ، والمفروض النتيجة = 1 🙂 جعفر

يجب استعمال دالة التاريخ Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And " myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And " 'myWhere = myWhere & "[DateOfBirth]=#" & Format([txtDateOfBirth], "dd/mm/yyyy") & "#" myWhere = myWhere & "[DateOfBirth] =" & DateFormat([txtDateOfBirth]) myWhere = myWhere & " And " myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function جعفر

وعليكم السلام 🙂 كود جدا جميل ، وجدا عملي 🙂 محتاج ترك مسافة بعد كل And : وقد تحتاج الى استعمال الدالة التالية للتاريخ (صدقني انها انقذتني مرات ومرات) : جعفر

على راسي🙆‍♂️

وهنا انا عملت مثال لنفس الغرض الذي اردته انت ، ولكن بشكل اوسع ، ولنموذج فرعي 🙂 جعفر

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