الفهرى

فى النموذج FROM TABLE10 عرف المتغير العام msg_sql أعلى صفحة كود النموذج Option Compare Database Dim msg_sql As String بعد ذلك انشأ الدالة العامة Change_Query Public Sub Change_Query() Dim Cntr_Cnd As String, Yr_Cnd As String If Nz(cmb_Org_Name) = "" And Nz(مرب…

ربما يحتوى الملف المرفق على حل 2018-4-2.rar

N3.rar ربما يكون يفيد هذا الحل أولاً يجب إضافة الدالة التالية Public Function my_calc(ByVal xkey1 As Long, ByVal xkey2 As Long) As Double On Error Resume Next Dim dbs As Database, strsql As String, rst As Recordset, rstT3 As Recordset Dim xprcent As Single, xs…

مرفق التعديل على النموذج الأصلى اعتقد أن النموذج الأصلى يحتوى على خطأ إذ لا يعمل زر البحث فى الغالب إلا بعد الضغط عليه للمرة الثانية يجب أن يعاد تصميمه sample2.rar

إذا كان ما تريد الحصول عليه هو التصفية فيمكن نقل الكود من النموذج الجديد ليعمل إلى نموذج الأصلى وبدلا من أن يعمل مع الإجراء Text_change يعمل مع الإجراء Command_click ربما ارفق غدا أن شاء الله المثال بعد نقل الكود

الحل المرفق يعتمد على فكرة التصفية تصفية السجلات حسب نص من حقل ما مع كل المكتبات أو مكتبة معينة جرب الملف المرفق إذا كان يحقق المطلوب سوف اشرحه sample.rar sample.docx

لم اتمكن من تنزيل الملف المرفق رغم أنى حاولت مرارا وتكرارا ذلك

بداية اعتذر عن التأخير في الرد يجب أن يحتوى النموذج الذى تريد تكرار فتحه على كود (أوامر Visual basic ) أفتح نافذة الوحدة النمطية النموذج وأكتب أي أوامر مثلاً Option Explicit Option Compare Database اسم النموذج FormName أي أسم مثلاً سعيد لا يفترض أن تكتب أسم ال…

كبداية يمكنك تجريب الخطوات التالية فكر فى أضافة السطر الدالة فى فى ملف وحدة نمطية (Module) Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long ثم أضف الدالة التالية في نفس الوحدة النمطي…

جرب ما يلى في بداية الوحدة نمطية Module للنموذج الذى ستفتح من خلاله نموذج الفاتورة أو وحدة نمطية مستقلة جرب بحيث تكون بداية الوحدة النمطية كالشكل التالى Option Compare Database Option Explicit Public clnClient As New Collection Dim xform As Integer المهم السطر…

بسم الله الرحمن الرحيم بداية أعتقد أن هناك خطأ فى تصميم الجدول ويجب تقسيمه إلى جدول رئيسى وجدول فرعى بالنسبة لكتابة نص رأسى فى مربع نص فى تقرير بواسطة خصائص - التبويب غير ذلك ( other tab) - عمودى Vertival - نعم yes RecivedForms1.rar

أعتفد أنك يجب أن تحدد الحقل الذى سيتم على أساسه المقارنة بين الأثنين ثم تختار إدراج أستعلام ثم تختار معالج البحث عن غير المتطابقات ثم تختار الجدول الأصلى ثم الثانى ثم الحقل المحدد سابقاً ثم الحقول التى تريد عرضها فى الإستعلام ta.rar