jjafferr

رسالة الخطأ تقول بأنها لم تحصل على الدالة isnothing !! فهل هي موجودة في الكود عندك ؟ او يمكن انك نسخت الكود هذا من برنامج آخر ، ونسيت ان تنسخ الدالة isnothing !! وجدت الدالة هنا : https://www.youtube.com/watch?v=MItoTRM8-kw فنسختها من الفيديو وكتبتها هنا لتسهيل الامر ، لهذا السبب فأنا لا علاقة لي مع الدالة 🙂 اعمل وحدة نمطية جديدة ، ثم احفظ هذه الدالة هناك : Public Function IsNothing(ByVal V) As Integer On Error GoTo nerr IsNothing = True Select Case VarType(V) Case 0 'empty GoTo fext Case 1 'null GoTo fext Case 2, 3, 4, 5, 6 'int, long, single, double, currency If V <> 0 Then IsNothing = False Case 7 'date/time IsNothing = False Case 8 'string If (Len(V) <> 0 And V <> " ") Then IsNothing = False End Select fext: On Error GoTo 0 Exit Function nerr: IsNothing = False Resume fext End Function جعفر

وعليكم السلام 🙂 1. ماهي رسالة الخطأ ؟ 2. رجاء لا تضع الصورة للشاشة كاملة ، فلا نستطيع قراءة الكود (جرب انت بنفسك وحاول تشوف الصورة المرفقة اعلاه 🙂 ) ، وإنما اقطع الصورة ، وضع الجزء المهم منها 🙂 او طبعا تقدر تضع نسخة من الكود. جعفر

وعليكم السلام 🙂 المشكلة مو في فتح التقرير ، ولا متغيرات ، وانما أمر اغلاق النموذج غير كامل ، لذا يجب ان يكون الامر هكذا : DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, "واجهه البرنامج",acsaveno او الافضل ان لا تذكر اسم النموذج بالاسم ، وانما بمناداة اسمه DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, me.name ,acsaveno جعفر

وعليكم السلام 🙂 تم نقاش هذا الموضوع في الرابط التالي ، والذي به رابط آخر كذلك : جعفر

🙂

وعليكم السلام 🙂 1- الكل 2- اي شيء بين هذه العلامتين هو نص 3- نهاية السجلات 4- مرجع ، سواء الى مكان السجل في النموذج ، او في نسخة سجلات النموذج (انظر الرقم 5) 5- اشارة الى نسخة من سجلات النموذج ، في ذاكرة الكمبيوتر المؤقته 6 و 7 - انواع المتغيرات ، وهنا شرح وافي للموضوع: جعفر

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

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

وعليكم السلاك ورحمة الله وبركانه 🙂 ماشاءالله عليك باشمهندس ، وفي الوقت الصحيح في هذا الشهر الفضيل 🙂 جعفر

🙂

وهاي طريقة ثانية EN2: Mid([Contact Name],1,InStr([Contact Name]," ")-1) جعفر

وعليكم السلام 🙂 عندك الاسم الاول والاخير في حقلين منفصلين في الاستعلام Contacts Extended : . فلماذا تريد ان تربطهم وتفكهم مرة ثانية !! استعمل حقل First Name 🙂 جعفر

🙂

الخطأ في الفرز لأنه كان يفرز حقل نص ، فاستبدلت الحرف A بالرقم 9999999999 (يعني رقم كبير) ، ثم استخدمت الدالة val لتحويل القيمة الى رقم : . ونفس الشيء في التقرير ، فطلعت النتيجة : . جعفر 1212.1.TEST_QUERY(1).accdb.zip

تم عمل تغيير على الاستعلامات مصدر بيانات التقرير : . والنتيجة . جعفر 1216.visit.accdb.zip

1. طيب وشو النتيجة ، انت ارفقت ارقام ، ولازم تشرحها ، شو الصح وليش ؟ 2. هاي مو مقبولة (نعم مقبولة لهذا الموضوع) 🙂 3. ما منه فائدة بملاحظتك رقم 2 !! 4. حياك الله أبوآمنة 🙂 جعفر

نعم ، انشئ استعلام خاص "بمعلومات المشرف" فقط ، ثم انشئ استعلام مجاميع لجدول "الزيارات" ، تجمع فيه الحقول m,q, ..... ثم اعمل استعلام ثالث ، تجمع فيه الاستعلامين اعلاه ، وهو يكون مصدر بيانات التقرير "معلومات المشرف" جعفر

اخي بلال 🙂 هناك الكثير من المواضيع في المنتدى بخصوص طلبك ، واخوي @ابوخليل شارك في الكثير منها ، فياريت تعمل بحث ، وان شاء الله تحصل على اللي تريده ، فما في داعي لإعادة العمل مرة اخرى 🙂 جعفر

ارفق مرفق به هذا الخطأ

حياك الله 🙂 على بركة الله 🙂 جعفر

بالعكس ، الفكرة جدا جميلة ، وتُظهر براعة المبرمج وفهمه في تسهيل امور المستخدم 🙂 انا شفت مجموعة من البرامج ، لما يفتح البرنامج ، نرى نموذج فارغ (شاشة بيضاء) ، ولا يوجد اي شيء ممكن ان يعمله المستخدم سوى الخروج من النموذج !! بينما الفكرة هنا ، ان نغير اعدادات النموذج : لجعل النموذج يقبل ادخال البيانات me.DataEntry = True me.allowedits = true me.allowadditions = true . هكذا فيتحول النموذج الى نموذج ادخال بيانات 🙂 جعفر

وعلشان يستفيد الجميع 🙂 1. بدأنا في الاستعلام ، فما ممكن ان نكتب اسم الحقل ، ثم نشير الى نفس الحقل في المعادلة (لأنه سيشكل حلقه LOOP في الحصول على النتيجة) : 2. في التقرير ، عينا ولنفس السبب ، فما ممكن ان نكتب اسم الحقل ، ثم نشير الى نفس الحقل في المعادلة (لأنه سيشكل حلقه LOOP في الحصول على النتيجة) : طبعا بإمكاننا ان نعطي الحقل اي اسم ، مثل ZZ ، ولكن حذاري ، فدائما استخدم اسم يعطي معنى للحقل/المتغير ، علشان بعد سنة لما تريد تعدل على الكود ، الاسماء تكون واضحة ولها معنى 🙂 جعفر

حياك الله اخوي ابو داود 🙂

السلام عليكم 🙂 لو تتبعت التاريخ لما يدخل في دالتي ، لوجدت انه غير الذي تم ارساله ، ولم استطع معرفة السبب !! لهذا السبب ، استعمل نفس دالة التجربة التي استعملتها انت ، ولكن ارسل التواريخ الى دالتي اولا ثم الى دالتك ، وسترى ان النتيجة صحيحة ، يعني : بدلا عن ارسال التواريخ الى دالتك اولا Debug.Print YMD_Diff(Date1, Date2) , YMDDif(Date1, Date2) ارسل التواريخ الى دالتي اولا Debug.Print YMDDif(Date1, Date2) , YMD_Diff(Date1, Date2) . جرب Sub Test2() Dim Date1 As Date Dim Date2 As Date Dim yy As Integer, mm As Byte, dd As Byte Debug.Print "YMDDif" ,"YMD_Diff" Date1 = DateSerial(1970, 2, 28) Date2 = DateSerial(1970, 3, 1) Debug.Print YMDDif(Date1, Date2) , YMD_Diff(Date1, Date2) Date1 = DateSerial(1970, 1, 31) Date2 = DateSerial(1970, 2, 27) Debug.Print YMDDif(Date1, Date2) , YMD_Diff(Date1, Date2) 'Debug.Print "--------------------" 'Debug.Print YMD_Diff(Date1, Date2, yy, mm, dd) 'Debug.Print yy, mm, dd 'Debug.Print "--------------------" 'Debug.Print YMD_Diff(Date1, Date2, yy, mm, dd, True) 'Debug.Print yy, mm, dd 'Debug.Print "--------------------" End Sub . لهذا السبب ، لما ارسلت التواريخ مباشرة الى الدالة ، كانت النتائج صحيحة : . ------------------------------------------------------------------------------------------------ ولكن هذا الكلام كله صار بسبب قولك : وفي الواقع تم اثبات ان الاكسس لا يعطي نتائج خطأ بين التاريخين ، وإنما الخطأ كان في دالتك اللي في اول مشاركة لك . وللعلم ، فتجاربك في مشاركتك الاخيرة ، ليست على دالتك الاصل (والتي اثارت كل هذا النقاش) ، وانما على دالتك التي قمت بتعديلها 🙂 ومثل ما قلت سابقا ، طريقة عمل دالتك جميلة 🙂 جعفر

لا وانت الصادق ، قصدك واضح في مشكلة 🙂 كما ذكرت في مشاركتي السابقة ، الكود موجود في هذا الرابط : Public Function YMDDif(sDate1, sDate2) 'sdate1 earliest date sdate2 later Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date Dim D As Integer Dim M As Integer Dim Y As Integer iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 YMDDif = CStr(Y) & " س/" & CStr(M) & " ش/" & CStr(D) & " ي" End Function جعفر