محمدvb

شكرا جزيلاً Comfort كثر الله من امثالك اخي العزيز

مرحبا طيب خليك معايه ،، إنته عرضت البيانات الموجوده في قاعدة البيانات في الشبكه msflixgrid1 كلام جميل ،، بعد تعديل البيانات يعني في كوماند تعديل قم بنسخ كود عرض البيانات في الشبكه وألصقه بعد التعديل وأيضاً بعد حذف سجل من البيانات وأيضاً بعد حفظ سجل جديد وبكذا …

مرحبا ،، اخي ممكن توضح ماذا تقصد من نوع Msflexgrid1 على العموم هذا مثال موجود هنا في المنتدى لأحد الأخوان،، وأنا حقيقة لا اتعامل مع الآدو ولا اعرف طريقته لعله ينفعك والحقيقه مثال جميل لمحبي الآدو تحياتي _______ADO.zip

شكراً جزيلاً اخ HnHn كثر الله من امثالك

شكرا Mr king العزيز والقدير HnHn شكراً جزيلاً بس الملف المرفق به مشكله ارجو مراجعته وجزاك الله خير اخي ،، تحياتي للجميع

شكراً اخي العزيز بس كنت اتمنا إجابة لو كان اكثر من ملف وأريد نسخهم جميعاً بكوماند واحد شاكر تعاونك وتحياتي للجميع

شكرا جزيلاً وفقك الله للخير

السلام عليكم ورحمة الله وبركاته لدي سوال ؟ نسخ مجموعة ملفات من مجلد داخل البرنامج يعني عن طريق App.path إلى مجلد آخر معلوم أو غير معلوم يتم عن طريق تحديده المهم كيف يتم ذلك ليس ملف واحد ،، لنفرض 50 ملف مثلاً أو أكثر ،، تحياتي علماً اني استخدم كود النسخ المعروف…

شكراً جزيلاً لكن بالنسبه لو كنت رابط قاعدة البيانات بالداتا Data1 كيف تغيير الكود وشكراً

db1.close Calendar = vbcalHijri dd= Format (date, "yyyy-mm-dd") aa=format(dd, "(yyyy-mm-dd)") & format (Time,"hh-mm-ss)") FileCopy app.path & "\" & "db1.mdb", "d:\db1" & aa & ".mdb" جربو هذا الكود وأعطوني الراي حيطلع اسم قاعدة البيانات للنسخه الاحتياطيه هكذا ف…

مرحبا اخي تفضل هذا مثال لعرض الصور أرجو ان يحوز الرضا ولو فيه اشكاليه انا موجود _____________________________________.zip

السلام عليكم ورحمة الله وبركاته الاخت ليان وجميع الأعظاء ،، الحقيقه وجدت الموضوع هذا متكرر في أكثر من منتدى بخصوص نعمل نسخه لقاعدة البيانات كيف وهي تكون متصله الحل هاهو db.Close Dim fso, F Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Ne…

أولاً وأخراً اخي استهدي بالله وأصبرو وصابرو ورابطو واتقوا الله لعلكم تفلحون اما من ناحيه الهجمات فعادي جداً والمومن مبتلى ،، فأحذر بأن تسميها هجمات مره أخرى ومن ناحية التحديث ليس مطلوب فأنا والله العظيم استخدم كريستال ريبور 7 وعمره ماهاجمني ولا عملي تحديث ولا …

Private Sub Command1_Click() Name "c:\ARABSQ.ttf" As "C:\windows\fonts\ARABSQ.ttf" End Sub حيث ان ARABSQ.ttf اسم الخط المراد نقله إلى مجلد الخطوط في ويندوز قد تواجهك مشكله لو الخط موجود في مجلد الخطوط فيمكن تلافيها بهذا الكود Private Sub Command1_Click() on er…

شكراً اخي Asm4all الله يوفقك للخير ،، تحياتي وكثر الله من امثالك ياغالي

العفو تمنياتي بالتوفيق والسداد ، ، تحياتي للجميع

شكرا جزيلاً اخي العزيز تحياتي

نعم تستطيع اخي عمل ذلك إليك المثال المرفق من هنا

ممتاز اخي البرنامج جربته على الهوتميل ، الياهو ، مرسول شغال 100% بس لو كان البرنامج بالسورس كود أفضل لتعم الفائده للجميع تحياتي

اخي العزيز الاداه اللي عندك تعرض التقويم بالتاريخ الميلادي على العموم لا تقلق هذا مثال للأداه بالتقويم الهجري مع مثال جميل جداً من هنا