jjafferr

السلام عليكم 🙂 نعم طلبك واضح ، واجابتي هي مفصلة لطلبك 🙂 اذا الشيء اللي نريده موجود في اوامر الاكسس ، فممكن بكود سطر او اثنين ونحل الموضوع ، ولكن لما اللي نريده مو موجود في الاكسس ، فنضطر: يا نعمل له كود بأوامر الاكسس ، واما اذا اوامر الاكسس ما تفي بالمطلوب ، نضطر نستخدم دوال ومكتبات الوندوز ، وهذا اللي صاير مع طلبك 🙂 1. اذا قاعدة بياناتك كبيرة ، تقدر تضغطها وترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا ، 2. من المواضيع اللي اعطيتك اعلاه ، انزل هذا المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=150388 وفيه طلبك 100% وما فيه اي اضافات اخرى ، وكلمة السر فيه هي: 147 حسب ماهي موجودة في الجدول ، جربه واذا اشتغل كما يجب ، فما عليك إلا ان تعمل نسخ للاكواد اللي فيه ، وانقلها الى برنامجك ، مع تعديل على كلمة السر و كود زر فتح نافذة كلمة السر 🙂 جعفر

اخوي ابو جودي احسن الله عزاكم ولا اراكم الله مكروها فيمن تحبون ، إنا لله وإنا اليه راجعون خرج من هم الدنيا وغمها الى رب غفور رحيم فهنيئأ له ، هم السابقون ونحن اللاحقون ونسأل الله حسن الخاتمه

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

وعليكم السلام 🙂 اجعل البحث في المنتدى صديقا لك ، ففي المنتدى ما لذ وطاب 🙂 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 . جعفر