محمد طاهر

http://www.arabteam2000.com/vb/showthread....&threadid=12157

نسيت أضيف انه للدخول علي شاشة تفاصيل الحساب التس بها الشجرة استخدم Double click علي رقم الحساب فى شاشة الحسابات

بعد اجتماع مغلق لمدة ساعتان مع أخوكم طارق تم تقفيل فورم اضافة حساب و تعديل حساب مع تضمين ال treeview و فى فورم تعديل الحساب يمكن التجول عن طريق double click علي ال Tree view هذه هي الفورم المبدئية ( حيث أن طارق مازال غير راضي عن بعض الاكواد فيها ) و نشكر طارق …

أما عن السؤال الخص بفصل القيمة الي جزئين فاجابته مع السؤال http://www.arabteam2000.com/vb/showthread....&threadid=12143

تضعها فى موديول جديد و تستدعيها كما يلي =NoToTxt2([textboxname];"دينار";"فلس") او فى حالة الفورم =NoToTxt2(Me.textboxname;"دينار";"فلس")

السلام عليكم مصطفي لم أفهم ما فوائد الثاني بخلاف التغلب علي فيروس 25 ديسمبر و عواقبه

نشكرك علي هذا الموقع الرائع (f) (f)

صادفتني مشاكل مع دالة طارق فحولت دالة أبو هاني أرجو أن يكون هذا هو الطلوب Function NoToTxt2(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As St…

ما سبق كلن للفورم أما فى الاستعلام فيمكن تطبيق نفس المفهوم بالطريقة التالية لنفرض أن لديك حقل به قيمة و اسمه x و سنقسم قيمته فى الاستعلام الي حقلين x1: +Int([x]) x2: Round(([X]-[X1])*1000;0) و فى حالة العملات التي وحدتها مائة نغير الالف الي مائة

يوجد فىموضوع روابط لمواقع نافعة المثبت أعلي المنتدي روابط لمواقع تعليمية أنصحك بقراءة أحد الكتب الآتية access 2002 Bible Mastering Access Access - Que و من طلب العلي سهر الليالي ، و لا يوجد شيئ اسمه صعب

وضعت ردا و مسحته لأني و جدت به خطأ و سأضع الكود الجديد باذن الله قريبا

اخواني هذا الموضوع خاص بقسم الاوفيس و لكني أري أن فيه ما يفيد من يريد تعلم الاكواد من لديه تعليق أو استفسار فليتفضل به فى قسم الاوفيس http://www14.brinkster.com/mtarafa/vbindex.htm ملحوظة نفس الدوال يمكن تطبيقها علي الاكسس بتبديل Mycell.Value ب Me.textboxname

فى هذا الدرس سنبحث كيفية استخدام بعض الاوامر مثل IF , Then IF , ELSEIF, ELSE, Then Select Case و و ذلك من خلال تطبيق استنتاج التقدير المناظر لنسبة مئوية من الدرجات برنامج اكسيل 2000 و تطبيفات الفيجوال بيزيك الدرس الاول /index.php?showtopic=9771 برنامج اكسيل 20…

http://www.arabteam2000.com/vb/showthread....=&threadid=4039

Dim MYtime1, Mytime2, Mytime3 MYtime1 = Timer و بعد عدة اجراءات Mytime3 = Timer myperiod = Mytime3 - MYtime1 myperiod = format(myperiod, "0.00") MsgBox "completed in : " & myperiod & "seconds" و بعد عدة اجراءات Mytime2 = Timer myperiod = Mytime2 - MYtime1 mype…

أبسط الطرق Private Sub Text6_AfterUpdate() Me.Text8 = Int(Me.Text6) Me.Text10 = Round((Me.Text6 - Me.Text8) * 1000, 0) End Sub حيث text6 هو مربع النص الذي تكتب به القيمة فتنقسم الي الصحيح فى text8 و الكسور فى text 10 و هناك طرق اكثر احترافا مثل ايجاد مكان العل…

لقد وضعت الرد منذ مدة فتابع سؤالك السابق و بشويش علينا شوية يا عم انت الي ما تابعت سؤالك

انا مازالت مش فاهم السؤال أوي المهم انك وجدت الحل :) :) :)

جرب اصلاح القاعدة و الاستيراد علي جهاز آخر فربما تكون المشكلة فى نسخة الاكسس لديك أو اضغط الملف و أرسله لي لأجرب mtarafa@link.net