أبو هادي

السلام عليكم الأخ فيصل الحربي .. أخينا الفاروق نعم المرشح وهو معروف بنشاطه ولكني أميل أن يكون المرشح من الفاعلين في منتدى الأكسس . على خلفية الترشيح والتصويت على انتخاب المشرفين فأنا أجزم أنه لن يقوم أحد بترشيح نفسه . عليه فأنا أدعم هذا الترشيح .. والله الموفق…

السلام عليكم http://www.arabteam2000.com/vb/showthread....&threadid=17151 http://www.arabteam2000.com/vb/showthread....نت&pagenumber=3 تحياتي .

السلام عليكم أخي أبو طالب .. هل جربت هذا الإستعلام ؟!! هذا ليس الحل ، هذا فقط ما استطعت أن أجمعه من أفكار في برنامجك .. حيث وجدت نفسي في متاهة لفهمه ، وقد أضعت فيه الساعات . فاضغط على نفسك قليلا وخذ من وقتك 5 دقائق لتجرب الإستعلام وترد على المشاركة !! . تحياتي…

السلام عليكم أخي أبو طالب .. هذا استعلام تجميعي عملته فقط للتأكد إذا أنا فاهم المطلوب أو لا زلت بعيدا عن استيعابه . SELECT mok_aty.ma_id, mok_aty.nah_id, mok_aty.mok_id, mok_aty.ho_id, Count(mok_aty.tg_id) AS العمليات, Sum(IIf([tg_id]=1,[vale],Null)) AS سابق, …

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

السلام عليكم تعديل كود زر موافق حدث Click للنتيجة : Private Sub CmdOK_Click() Dim OutFeild As Boolean Dim FieldName As String On Error GoTo SubErr If Me.GrpCal <> InCal Then Beep Me.GrpCal = InCal Call GrpCal_AfterUpdate Exit Sub End If 'CurrCal = calendar Sel…

السلام عليكم ملخص للقائمة والتصويت قائمة المرشحين : aboaqeel2001 أبو صفاء فيصل الحربي رضا عقيل المالكي333 الأصوات : صوت أبو هادي لـ : aboaqeel2001 فيصل الحربي صوت alhajri لـ : فيصل الحربي المالكي333 صوت مبتدئ جدا لـ : فيصل الحربي aboaqeel2001 تحياتي .

السلام عليكم تعديل على دالة تحويل النص المستخدمة في البحث : Function ReStr(ByVal InStrng As Variant) As String Dim StrLn As Long Dim Cntr As Long Dim NewStr As String ReStr = "" StrLn = Len(Nz(InStrng)) If StrLn = 0 Then Exit Function NewStr = "" For Cntr = 1 …

السلام عليكم جرب تشغيل هذا الكود للتعرف على الحروف والآسكي : Sub Test() Dim AsciCode As Byte For AsciCode = 193 To 239 MsgBox Chr(AsciCode) & Space(5) & AsciCode Next AsciCode End Sub وعند تجربتي للكود اكتشفت بعض الآسكي تحتاج إلى استبعاد من نطاق الحروف العربية…

السلام عليكم أخي مبتدئ جدا آمل منك أعادة التصويت على أن يكون المنتخبين من قائمة المرشحين فقط . تحياتي .

السلام عليكم تم التعديل على الدالة : Function GetListCount(InControl As Control) As Long Dim dbs As Database Dim rst As Recordset Dim RS As String Dim RSName As String Dim FieldName As String Dim sPos As Integer, ePos As Integer Dim strSQL As String Dim strWhe…

السلام عليكم الأخ الفاضل falantokh .. نعم تستطيع . كل ما يمكن عمله بالجداول يمكن عمله بالإستعلامات فقط أن بعض الإستعلامات تكون غير قابلة للتحديث . تحياتي .

السلام عليكم مثال مرفق يحتاج إلى تجارب . تحياتي . getlistcount.zip

السلام عليكم لقد قمت بتحويل البرنامج إلى 2000 فعمل البحث معي وقمت بضغطه أيضا ولم تحدث مشاكل . ثم قمت بإعادة تحويله مرة أخرى إلى 97 وعمل البحث مرة أخرى . هل هناك تفسير لهذه المشكلة ؟ .. طبعا العيب ليس من الدالة وتستطيعون التجربة بالبحث بدون هذه الدالة .. هذه ال…

السلام عليكم واجهتني مشكلة غريبة حيث أنه بعد أن ضغطت قاعدة البيانات Compacting في أكسس 97 لم تعد دالة التحويل تعمل مما عطل معها البحث !! فهل هذا فقط معي أم مع الجميع ؟ وهل هذا يحدث مع أكسس 2002 أيضا ؟ . آمل منكم التجربة وموافاتنا بالنتيجة . تحياتي .

السلام عليكم جرب هذا الأمر : MsgBox Me.Combo1.ListCount أما التكرار في القوائم فهو خطأ يجب أن لا يقع وتستطيع تفاديه بعمل استعلام مجموعة Group Query . تحياتي .

السلام عليكم القائمة بعد استبعاد أخينا ابن مسقط . aboaqeel2001 أبو صفاء فيصل الحربي رضا عقيل المالكي333 وتصويتي الجديد لـ : aboaqeel2001 و فيصل الحربي . تحياتي .

السلام عليكم أخي أبو عقيل .. أشكرك على قبول فكرة الحل المؤقت لصندوق النص ولكن مع الفحص لاحظت أنه يحتاج إلى إضافة بسيطة في نهاية كود الحدث li1_AfterUpdate وذلك كالتالي : If Not Me.CmdPage.Enabled And Me.CmdPage.Caption = "2" Then Call CmdPage_Click End If كما ل…

السلام عليكم يبدو أنه كلما تأخرنا في التصويت انتظارا لمزيد من المرشحين توالت الإعتذارات وقل العدد بشكل كبير .. لذا وبعد أذنكم سأبدا التصويت وآمل من الجميع التفهم وعدم التحسس من المصوتين .. فهدفنا جميعا مصلحة منتدانا . آمل التصويت على إثنين فقط من آخر قائمة تم …

السلام عليكم لقد تم حل مشكلة عدم عرض السور الطويلة بنفس إقتراحي السابق . يوجد زر تبديل الصفحات بجانب زر الخروج . تحياتي . form.zip