اتفضل
DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX"
TABLE1 بدلها باسم جدول اللي عندك
D:\TABLE1.XLSX بدلها حرف د بمسار اللي انت تريد ان يحفظها فيه و تابل1 باسم اللي تريد ان يخزن به وخليه الباقي
مع تقدير
اليك حل لكن بها مشكلة بسيطه
واتمنى من الخبراء من لديه خبرة ان يعدلها
والمشكلة هو حين بيطبع الفواتير اليوم المختاره كله
راح يفتح ريكورد جديد
انا عملت بعد تحديث او بعد اغلاق النموذج ان يحذف الريكورد الجديد
لكن انا اعترف في ذلك هذا مش حل الافضل
اليكم مع المرفق
مع تقدير
111 (1).rar
'تحويل الى اكسل
DoCmd.OutputTo acOutputReport, "myreport", "excelworkbook(*.xlsx)"
' تحويل الى وورد
DoCmd.OutputTo acOutputReport, "myreport", "richtextformat(*.rtf)"
اتفضل اخي
بدل كلمة myreport الى اسم تقريرك
مع تقدير
من اكسس الى اكسل
بهذا الكود
DoCmd.OutputTo acOutputForm, "namemyform", "excelworkbook(*.xlsx)"
بدل namemyform الى اسم فورم اللي تريد تحويلها الى اكسل
لكن باستخدام هدول الايكونات تكدر تتحول بنتهما
الشيء المهم في عمل العلاقات هي حقل عدم تكرار فيه ونفضله ان بيكون رقم حسب ما فهمت منه في احد جداول و الجدول الاخر بيكون تكرار مقبول اذا كان نوع العلاقة one to many
بلى لكن انا نسيت زر الاضافة وهو كان خطئ مني
مع تقدير
اتفضل اخي
اتمنى ان ينال اعجابك
استخدمت دى ماكس
لكن انا حذفت العلاقات مع جدول ستيودنت لكي اغير خاصية اوتونمبر الى نمبر
لكن تكدر تعمل العلاقات من جديد
SchoolDB.rar
شكرا استاذي على الرد
لكن من قبل انا حسيت انتم راح تفهمون مني بالخطأ
لاني ضعيف في اللغة العربية
لذا ما اكدرت ان اوصل اليكم الطلبي
...
اخوي وعزيزي واستاذي رمهان
انا اريد ان اغير نوع الخط
قصدي اغير الخط مثلا من Times New Roman الى Ali-A-Alwand
واعتذر منكم جميعا
مع تقدير
اخوكم شفان ريكاني
شكرا على رد الجميل يا استاذ القدير
اولا شكرا على المعلومة في الحيقة انا ما عرفت انو ما بيسمي لداتاشيت نموزج
وثانيا يا استاذي انا ما اكدرت ان اعمل كما قلت
انا بس كان اكدرت ان اعمل اغير لون او احط اسفل الفونت خط
لكن فشلت لكي اغير نوع الفونت
نوع الفونت قصدي اغير فونت ب فونت اخر لكي للا تفتهمون مني خطأ
وفي الاخير اسف من شان انا ضعيف في اللغة العربية
واتمنى ان تعمل التطبيق على المرفق المسبق لو سمحت لك الوقت
مع اجمل تحياتي لك
تلميذك
شفان ريكاني
اخي العزيز اذا بترفق الملف راح يكون اسهل لكي نساعدك والا اعمل كالاتي
في جدول حقل تلفون غير خاصية التكرار الى نعم
وبعدين في نموذج وفي مربع نصي تلفون بعد تحديت في محرر فيجوال اكتب
dim x as integer
x = nz(dcount("[telephone]" , "dalil")
if x > 1 then
if msgbox"هذا الرقم موجود مسبقا"
me.telephone = ""
endif
مع تقدير
شفان ريكاني