jjafferr

وعليكم السلام 🙂 اجعل البحث في المنتدى صديقا لك ، ففي المنتدى ما لذ وطاب 🙂 https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=dkinputbox&sa=Search هذه بعض نتائج البحث: جعفر

وعليكم السلام 🙂 خليني أسأل سؤال كلنا متفقين عليه: ما فائدة وجود حقل المرفقات في الجدول ، ما دام استخدامه وادخال الصور فيه يجعل حجم البرنامج يكبر كثيرا وقد يصل الى حجمه النهائي 2 جيجا ويتوقف البرنامج عن العمل!! والجواب: الاكسس يستعمله الهاوي والمحترف ، وكلٌ له طريقة في استعماله ، وميزة الاكسس انه بإمكانك عمل اي شيء تريد بعدة طرق ، فكما ان المحترف لا يستخدم حقل المرفقات 99% من الوقت ، ولكن قد يستعمله لإرفاق بعض الصور الصغيرة مثل شعار المؤسسة او إحمل برامجك داخل قاعدة بياناتك فمو واجب استعمال جميع الميزات اللي يعطينا البرنامج ، ولكن نستخدم اللي يناسبنا كهاوين او مبتدئين 🙂 جعفر

هذه روابط مواضيع من نفس رابط البحث الذي اعطيتك: . . . . جعفر

تفضل 🙂 1543.Print_Form_Records.accdb.zip

السلام عليكم 🙂 ممكن نستخدم اول رقم وآخر رقم ID ، والتقرير يكون بين هذين الرقمين ، او نستخدم حقل vDate اللي عمله اخوي ابوخليل ، بتغيير بسيط ، فبدل ان تكون قيمته الافتراضبة =Date ، نجعلها =Now حتى نحصل على الوقت بالثواني (حتى يتمكن المستخدم من طباعة مرات اخرى في اليوم) ، والتقرير يكون بين هذين التاريخين 🙂 هذا كود زر المعاينة ، واستخدمت متغير بمعرف Variant ، حتى اقدر استخدمه لأي نوع ، سواء رقم او نص او تاريخ : Private Sub Command37_Click() 'save the last Record If Me.Dirty = True Then Me.Dirty = False Dim rst As DAO.Recordset Dim rFirst As Variant, rLast As Variant Dim myWhere As String Set rst = Me.RecordsetClone 'ID: rst.MoveFirst: rFirst = rst!ID rst.MoveLast: rLast = rst!ID '1 'myWhere = myWhere & " ID>=" & rFirst 'myWhere = myWhere & " And " 'myWhere = myWhere & " ID<=" & rLast '2 myWhere = "ID Between " & rFirst & " And " & rLast 'vDate: 'rst.MoveFirst: rFirst = rst!vdate 'rst.MoveLast: rLast = rst!vdate '3 'myWhere = myWhere & " vDate>=#" & rFirst & "#" 'myWhere = myWhere & " And " 'myWhere = myWhere & " vDate<=#" & rLast & "#" '4 'myWhere = "vDate Between #" & rFirst & "# And #" & rLast & "#" DoCmd.OpenReport "Report1", acViewPreview, , myWhere End Sub جعفر 1543.Print_Form_Records.accdb.zip

وعليكم السلام 🙂 في ذيل النموذج ، في حقول المجاميع ، استخد التالي كمصدر لبيانات الحقل: مجموع نعم =Sum(IIf([mtwajd]=-1,1,0)) مجموع لا =Sum(IIf([mtwajd]=0,1,0)) جعفر

اخوي حمدي 🙂 رجاء ضع الكود بهذه الطريقة ، حتى يظهر الكود بالطريقة الصحيحة: . . جعفر

الحمدلله 🙂 جعفر

وعليكم السلام 🙂 في الواتساب ، للإنتقال للسطر التالي ، لا تستعمل vbcrlf او chr(10) او chr(13) ، وانما استعمل "%0a" وكذلك تم ترجمة هذه الجزئية من موقع الواتساب: https://faq.whatsapp.com/539178204879377/?locale=en_US يتيح لك WhatsApp تنسيق النص داخل رسائلك. يرجى ملاحظة أنه لا يوجد خيار لتعطيل هذه الميزة. مائل لجعل رسالتك مائلة ، ضع شرطة سفلية على جانبي النص: _نص_ بالخط العريض لجعل رسالتك غامقة ، ضع علامة النجمة على جانبي النص: *نص* يتوسطه خط لتخطي رسالتك ، ضع علامة تلدة على جانبي النص: ~ نص ~ مونوسبيس لفرد رسالتك ، ضع ثلاث علامات خلفية على جانبي النص: ```نص``` ملحوظة: بدلاً من ذلك ، يمكنك استخدام الاختصارات على Android و iPhone. Android: اضغط مع الاستمرار على النص الذي تدخله في حقل النص ، ثم اختر غامق أو مائل أو المزيد. انقر على "المزيد" لاختيار خط يتوسطه خط أو مسافة أحادية. iPhone: اضغط على النص الذي تدخله في حقل النص> تحديد أو تحديد الكل> B_I_U. ثم اختر Bold أو Italic أو Strikethrough أو Monospace. جعفر

اخ طاهر ، رجاء لا تكتب موضوع اثناء متابعتك مباريات كأس الخليج ، وإلا النتيجة انك تنسى المرفق 😁 جعفر

وعليكم السلام 🙂 بما انه يوجد في برنامجك ، فتستطيع الاستفادة منه 🙂 او تستطيع انزال هذا البرنامج: http://lebans.com/DownloadFiles/A2KMonthCalenderVer205.zip والشرح هنا: http://lebans.com/monthcalendar.htm انزل المرفق ، افتح البرنامج ، افتح النموذج ، ثم انقر نقر مزدوج على حقل التاريخ ، وسترى روزنامة التاريخ 🙂 جعفر تم انزال المرفق واضافته هنا A2KMonthCalenderVer205 (2).zip

للاسف الشديد ، محاولاتي فشلت ، وفتحت الملف عن طريق برنامج Hex ولم ارى في الملف غير اصفار !! يمكن احد الشباب يقدر يساعد

وعليكم السلام 🙂 هذا معناه ان البرنامج معطوب ، وقد استطاع اخونا @kkhalifa1960 ان يُصلح برنامجه كاملا (تابع الموضوع في المرفق) ، فياريت يساعدنا هنا 🙂 . فرجار ارفاق برنامجك حتى نحاول استعادة ما يمكن استعادته 🙂 جعفر

وعليكم السلام 🙂 همممم ، هذا تعريف للمتغير rst على انه "مجموعة سجلات" Recordset ، وهذا Recordset من نوع DAO . هناك طريقتين لإستدعاء البيانات عن هذا الطريق: 1. من الجداول او الاستعلامات ، 2. بيانات النموذج تلقائيا تكون في Recordset النموذج ، فلا يوجد داعي لمناداتها من الجدول/الاستعلام مرة اخرى. جعفر

وعليكم السلام 🙂 تفضل بعضها : رسالة عادية ، ولكن تختفي بتوقيت : . 6 طرق ، ومنها بالونه فوق ساعة الكمبيوتر ، وتختفي بتوقيت : . وهنا شرح عمل البالونه . جعفر

اخبرني ماهي الفقرات التي لم يتعرف عليها ؟ اما اذا فالحمدلله 🙂

حياك الله اخي الفاضل 🙂

الله يطول عمرك، علشان اقدر اساعدك، رجاء تخبرني بالضبط وين المشكلة 🙂

شوف نتائج الاستعلام 3 ، ان شاء الله تكون مرادك ، وإلا ، فمحتاج معلومات ومثال من بياناتك لوسمحت 🙂 جعفر 1540.1.A.accdb.zip

هي مشكلة تنسيق التاريخ بين الكمبيوترات ، وتفضل الحل 🙂 جعفر 1540.A.accdb.zip

تفضل 🙂 . الوحدة النمطية الجديدة (شايف خط يدي في الوحدة النمطية القديمة 🙂 ) ، فكما تلاحظ ، التعديل جدا بسيط : Public Function Concatenate_pcode(C As String, D As Date) As String Dim rst As DAO.Recordset Dim myWhere As String myWhere = myWhere & "[PName]='" & C & "' " myWhere = myWhere & " And" myWhere = myWhere & " [DDate]=#" & D & "#" Set rst = CurrentDb.OpenRecordset("Select [TName] From [1_JO] Where " & myWhere) Do Until rst.EOF Concatenate_pcode = Concatenate_pcode & ", " & rst!TName rst.MoveNext Loop Concatenate_pcode = Mid(Concatenate_pcode, 3) rst.Close: Set rst = Nothing End Function . جعفر 1540.A.accdb.zip

وعليكم السلام 🙂 الكود هو: Name oldpathANDname As newpathANDname Name "اسم ومسار الملف الحالي" As "اسم ومسار الملف الجديد" مثلا dim oldpathANDname As string, newpathANDname as string 'oldpathANDname = currentdb.path & "\myFles\myText.txt" oldpathANDname = "c:\abc\myText.txt" newpathANDname = "d:\DBs\new_File.txt" Name oldpathANDname As newpathANDname . جعفر

وعليكم السلام 🙂 ايه ده ، جوسف عنده سؤال من السنة الفايته وملقاش جواب 😉 هناك طريقتين لحل طلبك: 1. تكرار الاسم لكل تاريخ ، وفي حقل C يتم تجميع الفحوصات ، وهذه الطريقة الافضل في نظري ، 2. عدم تكرار الاسم ، وحذف حقل التاريخ من النموذج ، ثم جعل الحقل C يحتوي على التاريخ والفحوصات ، هكذا مثلا: 29/11/2022 CBC, Urine Culture and Sensitivity 01/01/2023 CBC, PT_Prothrombin Time, PTT_ Partial Thromboplastine Time . بس علشان نعمل اي من الطريقتين: 1. تختار الطريقة الافضل لك ، والطريقة الصحيحة للاختيار ، هي معرفة طريقة عمل المستخدم للنموذج وفرزه وتصفيته ، فإذا اخترت الطريقة الاولى ، فيمكنك الفرز والتصفية بالتاريخ مباشرة من النموذج بالفأرة اليمين ، بينما اذا اخترت الطريقة الثانية ، فلعمل الفرز او التصفية ، فيحتاج كود واستعلام خاص له. 2. يجب ان ترفق بيانات الشخص لأكثر من يومين (على الاقل شخصين ، علشان التجارب) ، لأني ما عرفت كيف اضيف 🙂 جعفر

السلام عليكم 🙂 انا لازلت على ابو كلتش ، ما تحولت على الاوتوماتيك 🙂 عملت دالة علشان نتأكد ايهم الصح ، فجربت الطرق الثلاث على جميع السجلات : Function Which_Chr_is_used() As String Dim x() As String, x1() As String, x2() As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select ID, Nass From book Order by ID") Do Until rst.EOF x = Split(rst!Nass, vbCrLf) 'chr(13) & chr(10) x1 = Split(rst!Nass, vbCr) 'chr(13) x2 = Split(rst!Nass, vbLf) 'chr(10) Debug.Print rst!ID, UBound(x), UBound(x1), UBound(x2) rst.MoveNext Loop rst.Close: Set rst = Nothing End Function . والصقت البيانات في الاكسل ، وبعد عمل تنسيق شرطي ، عرفت بأن فاصل الفقرات هو chr(13) ، لأنه موجود في جميع السجلات اللي نحتاج لها : . للجزء الثاني ، عملت وحدة نمطية : Function Search_for_Two_Numbers(ID As Integer, txt As String) As String On Error GoTo err_Search_for_Two_Numbers Dim x() As String Dim i As Integer, How_Many_Numbers As Integer How_Many_Numbers = 0 '1st letter If IsNumeric(Left(txt, 1)) Then How_Many_Numbers = How_Many_Numbers + 1 End If x = Split(txt, Chr(13)) 'Do we have a new Paragraph 'check if the begining of the new Paragraph is a number For i = 1 To UBound(x) If IsNumeric(Mid(x(i), i + 1, 1)) Then 'Debug.Print ID, Mid(x(i), i + 1, 1) How_Many_Numbers = How_Many_Numbers + 1 End If Next i Search_for_Two_Numbers = How_Many_Numbers Exit_Search_for_Two_Numbers: Exit Function err_Search_for_Two_Numbers: If Err.Number = 9 Then Resume Next ElseIf Err.Number = 13 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . نناديها من الاستعلام. عملت لك استعلامين ، Query2 حتى تعرف كيف ناديت الوحدة النمطية ، وحتى اذا اردت اللعب بها وترى نتائجها ، والاستعلام Query3 ليعمل تحديث في الجدول: جعفر 1539.check_Book2.zip

انا اشتريت نسخة مايكروسوفت اوفيس 2021 Pro Plus الذي يحتوي على مايكروسوفت اكسس بمبلغ 39.99$ يعني حوالي 40$ من هنا : https://store.techspot.com/sales/microsoft-office-professional-plus-2021-for-windows?utm_source=techspot.com&utm_medium=referral&utm_campaign=microsoft-office-professional-090922 في هذه الحالة ، حُسم الامر ، Microsoft 365 هو المستقبل 🙂 بس اذا فيه عزيمة ويوزعون فيه اصدار 365 ، فلا تنسى الشباب 🙂 جعفر