jjafferr

🙂

ومثل ما قال اخوي ابوعبدالله ، ولكن بشرح آخر جعفر

السلام عليكم 🙂 قراءة الرسائل من الجدول اسهل بكثير ، وجدا عملية ، ويمكن تغييرها ببساطة 🙂 بالاضافة الى المرفق في الرابط اعلاه ، هنا شرح آخر لنفس الطريقة : جعفر

وعليكم السلام 🙂 تفضل : جعفر

السلام عليكم 🙂 شكرا جزيلا اخوي حسين على هذه الخطوات وبالتفصيل 🙂 جعفر

وعليكم السلام 🙂 حيا الله ولد بلادي 🙂 نفس الاجابة اللي اخبرتك عنها هنا : جعفر

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

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

هذه الرسالة لا علاقة لها بأي من انواع الاكسس ، فهي تقول : بأن البرنامج لم يحصل على الوحدة النمطية InputBoxDK في برنامجك !! اذا ممكن ترفق لنا برنامجك ، او ترفعه الى احد مواقع الرفع واعطاءنا الرابط 🙂 جعفر

اخي الفاضل ، لا يكفي ان تنقل هذه الجزئية فقط الى برنامجك ، فهناك وحدة نمطية اسمها ويجب نقلها كذلك الى برنامجك الآخر 🙂 جعفر

تفضل 🙂 جعفر اخفاء الرقم السري.zip

السلام عليكم 🙂 شكرا جزيلا اخوي أبو إبراهيم على كلماتك العطرة 🙂 انا احاول قد الامكان ان استعمل الاستعلام لتنفيذ اي موضوع في الاكسس ، لأنه سيكون الاسرع ، ونفس الشيء حاولته لهذا التفكيك قبل ان اعمل الموضوع ، ولكني لم اصل لنتيجة !! ومن الوقت الذي وضعت فيه ملاحظتك ، وانا افكر ، وما توصلت لنتيجة : ما ممكن نستعمل Split ، إلا اذا عرفنا "شرط القطع" (علامة تجارية مسجلة 🙂 ) ، حاولت مع Split ان اخليه يتعرف على الارقام بواسطة "شرط القطع" isNumeric و IN ، ولكن اكسس لا يقبل هذا ، ما ممكن نستعمل inStr و inStrRev ثم isNumeric ، لأن الارقام اللي في السجلات ، ليست بأرقام في نظر الاكسس (استعملت inStrRev في الصورة المرفقة) : . وفي كل خطوة من الخطوات اعلاه في الاستعلام ، اشوف نفسي انجذب لعمل وحدة نمطية لجزئية معينه من كود الاستعلام جعفر

هل جربت هذا الموضوع ؟ جعفر

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

وعليكم السلام 🙂 سؤالك غير واضح !! جعفر

شكرا جزيلا 🙂 جعفر

وعليكم السلام 🙂 الافضل ان تجعل الاستعلام مصدر بيانات للنموذج ، لأنك هناك تقدر تعمل تصفية ، و فرز (التسلسل) الذي تريده ، ويمكن عمل فرز لأاكثر من حقل ، مثلا: الفرز الاول يكون باسم القسم ، ثم الفرز التالي يكون للدرجة ، ثم الفرز التالي يكون للإسم ، وهكذا 🙂 جعفر

وعليكم السلام 🙂 هذا رد على سؤالك : . والبرنامج يتحكم بهذا الكم الهائل من المرفقات في اول 2018 ، وفي 8/2019 وصل حجم المرفقات الى اكثر من 1 تيرا بايت : جعفر

السلام عليكم 🙂 وهذه طريقة اخرى ، للنواتين 32 و 64بت : . او ايش رايك في كلمة سر متغيرة ، يعني مافي داعي تخاف احد يشوفها ، لأنها تتغير دائماً كل دقيقة 🙂 جعفر

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

شكرا جزيلا اخي حسين 🙂 جعفر

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

حياك الله 🙂 جعفر

حياك الله 🙂 جعفر

بس الظاهر انك فهمت السؤال صح ، بينما انا قرأت رأس الموضوع ، وما لاحظت الملاحظة إلا بعد ان وضعت ملاحظتي !! على العموم ، هذه طريقتي ، لحدث الزر (طبعا بالاضافة الى الكود في مشاركتي السابقة) : Private Sub T_m_Click() On Error GoTo err_T_m_Click If Len(Me.FROM & "") = 0 Then MsgBox "رجاء تعبئة التاريخ من" Me.FROM.SetFocus ElseIf Len(Me.TO & "") = 0 Then MsgBox "رجاء تعبئة التاريخ الى" Me.TO.SetFocus ElseIf Len(Me.PN & "") = 0 Then MsgBox "رجاء اختيار اسم المشروع" Me.PN.SetFocus Me.PN.Dropdown Else DoCmd.OpenReport "All_Proj", acViewPreview End If Exit_T_m_Click: Exit Sub err_T_m_Click: If Err.Number = 2501 Then 'No data Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_T_m_Click End Sub . جعفر 1253.APE (1).accdb.zip