osama457

الأخ أنس موضوع آخر لفينوس : خاصية (من اليمين إلى اليسار ) لعنصر تحكم Tap http://www.arabteam2000.com/vb/showthread....&threadid=23781

أخيرا علمت منذ لحظات بافتتاح منتدى الإبداع الإسلامي ولهذا عذرا إني راحل فلا مقام لي هنا

طريقة بدون اكواد كثيرة ولا اتسعلامات اجرائية stuansmarks.zip

ان شاء الله هذا اللي تبي sss.zip

استخدم التايمر في النموذج يعني في خصايص النموذج الفاصل الزمين لعدد الوقت 1000 يعني كل ثانيه في حدث عند عداد الوقت اكبت Private Sub Form_Timer() Dim theTime As Date theTime = الموعد ' يستخرج الموعد إما من نموذج مفتوح أو من الجدول مباشرة If Time() = theTime Then…

عساه المطلوب kh4_4.zip

من تلعيمات VBA في الورد عملت الكود : Sub LoadFonts() Dim strFont As Variant Dim AllFonts As String Dim ThewordObj As Object Set ThewordObj = CreateObject("word.application") ThewordObj.Visible = True For Each strFont In FontNames If AllFonts = "" Then AllFonts…

اخوي انا ما فهمت المشكلة لو تتكرم وتحط مثال بسيط ، يعني مثال توضح فيه وين مكان المشكلة بالظبط وان شا الله تلقى حل مني انا او من غيري من الاخوان

للرفع

اذكر مرة شفت مشاركة لابوهاجر او واحد ثاني فيه افكار كويسة في هالموضوع ويمكن الاخوان المتابعين في المنتدى يعرفونها اكثر مني لو بحثت في الراشيف

مثال ومعليش لو كان بسط exampl1.zip

السبب انه يقرأ من النموذج اللي تحت بس السجل الحالي اللي هو الاول وليس السجل الثاني الحل انك ما تقارن بالنموذج اللي تحت ، انما تقارن بالمعلومات من الجدول على طول يعني بدل الكود اللي انت كاتبه اكتب Private Sub رقم_AfterUpdate() x = DLookup("[رقم]", "[تعريف]", "[…

معذره الحقيقة المشكلتين ما مرت علي ، وما عندي فكرة عنها لكن ممكن تنزل مثال والاخوان ان شاء الله ما يقصرون

بالنسبة لـ : يتم تعديل نتيجة البحث تلقائيا بمجرد اضافة حرف أو ازالته الملف بعد التعديل db1_2.zip

اخوي مثالك صعب ويحتاج وقت لكن اذا عندك استعلامات زي بعض ولا تبغى تكثر منها اعمل نموذج واحد يصلح للاستعلامات المتشابهة ورح لكل استعلام سوي له عرض في وضع SQL وانسخ عبارة SQL ولصقها في النموذج في مصدر البيانات ، ثم قصها مرة ثانية وخلي مصدر البيانات فارغ وفي النمو…

لاحظ ان الفرز يختلف في حقل الرقم عن حقل النص يعني الارقم 1 - 2 - 3 - 10 - 11 - 22 - 33 - 55 - 103 - 145 اذا كان الحقل نص تترتب بالابجدي وتصير كذا 1 - 10 - 103 - 11 - 145 - 2 - 22 - 3 - 33 - 55 والحل اذا تحب تسويه حقل نص اما انك تحفظ الرقم باصفار علي يساره ، يع…

نفس الكود الاول للبحث عن رقم يكون Me.RecordsetClone.FindFirst "[no] = Me![مربع_تحرير_وسرد177] يعني تشيل علامة التنصيص "'"

اعمل txt1 (مربع نص) مصدر عنصر التحكم = 1 ومجموع تراكمي شاملي اعمل txt2 مصدر عمصر التحكم : =[txt1]+15 واذا تبغي تغيره حسب نموذج ثاني يختار المستخدم منه بداية الترقيم خلي مصدر عنصر التحكم =[txt1]+[forms]![form1]![txt3]

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

س : كيف احصل على قاءمة الخطوط الموجودة في الجهاز لاني اريد اعمل تقرير يتحكم المستخدم في نوع الخط ولازم طبعا يكون الخط من الخطوط الموجودة في الويندوز طبعا كيف اعرفها عشان أعرضها في قائمة