osama457

ترشيحي فاجاني ، والسبب مشاركتي القليله وكنت اظن اول ان اسامة واحد غيري احب اعتذر لان ظروفي ما تسمح وشكرا لابو هادى

حفظك الله ووفقك وعسى غيبتك ما تطول

مثال myfieldscount.zip

معليش على الرد السابق ، لانه تطويل من دون داعي وما قدرت احذفه الحل ببساطة انه بعد ما نتاكد ان الدالة موجودة نستخدم application.Run (procedure, [arg1], [arg2], ..., [arg30]) وما فيه مشكلة مع Debuging لأن procedure من نوع String

طريقة تمشي مع الـ Function بس Function FoundFunction(FunctionName As String) As Boolean On Error GoTo TestZ_Err FoundFunction = True Dim dbs As Database Dim rst As Recordset Set dbs = Application.CurrentDb Set rst = dbs.OpenRecordset("SELECT " & FunctionName &…

جرب Function FoundFunOrSub(FunOrSubName As String, FunOrSubKind As Byte) As Boolean ' Function = 1 ' sub = 2 Dim mdl As Module Dim KindStr As String If FunOrSubKind = 1 Then KindStr = "Function " Else KindStr = "Sub " For I = 0 To Application.Modules.Count - 1…

اسف الشماركة السابقة لعرض الوقت لعرض التاريخ اعمل مربع نص في خصايص مربع النص في مصدر عنصر التحكم اكتب =Date وبالطريقة هذي يخرج التاريخ عندك منسق حسب الإعدادات الاقليمية من خيارات النويندوز اما اذا تبغى تنسيق محدد اكتب مثلا : = Format(Date, "yyyy/mm/dd") او = F…

اعمل مربع نص جديد من خصايصه : تمكين : لا ، مؤمن : نعم نفرض ان اسمه هو txt1 في خصايص النموذج : الفاصل الزمني لعداد الوقت : 1000 في حدث عند عداد الوقت اكتب Me.txt1 = Time وبالطريقة هذي يخرج الوقت عندك منسق حسب الإعدادات الاقليمية من خيارات النويندوز اما اذا تبغى…

في الاسعلام والنموذج http://www.arabteam2000.com/vb/showthread....&threadid=20616 http://arabteam2000.com/vb/showthread.php?...p?threadid=9497 http://www.arabteam2000.com/vb/showthread....&threadid=14581

اخوي أبو الهدى اللي فهمته انك تغرف كلمة المرور بس تبغى تلحق بلكود كان عند ي سول يشبهه وجاوب عله ابو هاجر http://www.arabteam2000.com/vb/showthread....&threadid=16008

الاستفسار الثالث Dim v As Variant Const nnull As Variant = Null v = "" & nnull & "Hello" If IsNull(v) Then MsgBox "Null" Else MsgBox v v = "" + nnull + "Hello" If IsNull(v) Then MsgBox "Null" Else MsgBox v

الاسفسار الثالث Dim v As Variant Const nnull As Variant = Null v = "" & nnull & "Hello" If IsNull(v) Then MsgBox "Null" Else MsgBox v v = "" + nnull + "Hello" If IsNull(v) Then MsgBox "Null" Else MsgBox v

مثال arbwdah.zip

موضوع شدني من البداية وكان لازم نشارك اللي عملته اني استخدمت الشفت وعن طريق تخصيص أشرطة الادوات اضفت محرر Visual لقايمة ملف des_mde2_form2s2000.zip

تقويم ام القرى في الارشيف بعنوان تقويم أم القرى بما يشبه النتيجة http://www.arabteam2000.com/vb/showthread....?threadid=12761 ممكن تطويره عشان يستخدم بنفس الطريقة في الامثلة هنا

تمام ...مشكور وما قصرت الله يجزاك خير ويكثر امثالك

الفكرة اللي فهمتها اني افتح قاعدة البيانات بالكود DAO بعدين اسوي الاستيراد ان شا الله اجرب واخبرك بالنتيجة

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

اعجبنتي الفكرة ، وهذي شوية اضفات http://www.pcpages.com/osama457/NavigationButtons.zip او الرابط http://mypage.ayna.com/osama457/NavigationButtons.zip

http://www.arabteam2000.com/vb/showthread....%C7%E1%C8%CD%CB