محمد طاهر

أيضا يمكنك مراجعة هذا الشرح بالنسبة للاكسل و هو تقريبا يصلح للوورد http://www14.brinkster.com/mtarafa/VBExcel.htm

هل هذا هو المطلوب Sub Macro2() a = Cells(3, 2) & "," & Cells(3, 3) & "," & Cells(3, 4) Dim Filename As String Filename = "c:testfile.txt" Open Filename For Output As #1 Print #1, a Close #1 End Sub writetotext.zip

جزاك الله خيرا و هذا حل آخر عن طريق الكود يمكنك عكس الكلام الموجود فى b2 عن طريق استدعاء الدالة كالتالي =refverseText(B2) و الكود الموجود في الدالة كالتالي Function refverseText(mycell) Dim mcount As Long, mtxt As String mcount = Len(mycell.Value) mtxt = mycel…

اقتراح آخر من ال Control Pannel اختار ال Reginonal Setting و أضف لغة أخري ( أي تأكد من وجود لغتين العربية و الانجليزية ) و أعتقد أن هذا يتم من الtab الاخيرة علي ما أذكر و اعد تشغي لالجهاز فان لم تعمل بعدها فاعد تحميل الاوفيس بعدها نسخ الاوفيس 2000 التي مرت علي…

الاوفيس 2000 له اسطوانة ثانية تسمي language pack لا بد من تحميلها لتحصل علي ما تريد

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

رابط آخر http://www14.brinkster.com/mtarafa/forms/Arabic.zip arabic.zip

يمكن التحكم بذلك بالكود راجع الارشيف http://www14.brinkster.com/mtarafa/VBAccessForm.htm و بالتحديد http://www.arabteam2000.com/vb/showthread....=&threadid=9640

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

لم أفهم المطلوب أقترح نشر المثال شخصيا و التوضيح عليه

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

لكتابة الكود استخدم كود 2 http://www.arabteam2000.com/vb/showthread....%C7%E1%DF%E6%CF

جرب اختيار مجال المجموعة من ورقة العمل (worksheet) ثم نسخ copy ثم لصق paste فى الرسم البياني

يمكن ارسال القيمة عند فتح النموذج و بالتالي يمكن تعديلها me.fieldname=DLast("[toto]";"table1")

الدالة DLast =DLast("[toto]";"table1") حيث toto هو اسم الحقل الذي تريد آخر قيمة به و table1 هو اسم الجدول

الملف التنفيذي http://www.arabteam2000.com/vb/showthread....&threadid=14714 و يوجد أيضا و اضافة الي ذلك توجد برامج عديدة تحول الملفات الي Setup و لكن لا تغني عن وجود الاكسس علي الجهاز مثل install-us install-sheild setup Factory الا اذا حصلت علي ملف Run Time لل…

من خصائص الكومبو بوكس اختار Row Source ثم اضغط علي ال 3 نقاط يمين صندوق الحوار فيظهر لك معالج الاستعلامات فضع تحت ال UPS شرط فى خانة المعايير هو is not null و هذا هو ما قصده أخونا فى رده السابق ثم أغلق المعالج و سيسألك هل تريد حفظ التغيير فى الجملة فاجب بنعم و…

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

مثال علي ما تريد الي أن تحل موضوع القاعدة Private Sub Report_Open(Cancel As Integer) DoCmd.SetWarnings False Dim y As String If DCount("[ID]", "table2") > 0 Then y = Nz(DLookup("[TITLE]", "table2"), "") If y = "" Then y = InputBox("jjj") DoCmd.RunSQL "UPDATE T…

جرب www.brinkster.com أو أرفق الملف مع الرد مباشرة بدون مواقع