مصلح الحريصي

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

لا أعلم إذا كان يعمل على أكسيس 2000 ولكنني جربته على 7 أجهزة كمبيوتر والمثال يعمل بشكل صحيح طبعاً اللأوفيس 2003

أهميته تكمن في أنك قد تنقل البرنامج إلى جهاز ربما تكون إحدى المكتبات مفقودة فيه وبالتالي لن يعمل البرنامج وستظهر لك رسائل خطأ. لا لا يظر فالمكتبات ستكون في مجلد البرنامج والكود يتم تنفيذه عند تشغيل البرنامج فقط وهو كود صغير ولا يؤثر على البرنامج أنظر إلى وظيفت…

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

عنوان الموضوع مهم لدرجة كبيرة - فلا تجعلنا نغلق لك موضوعا - إضغط هنا لمعرفة قوانين الكتابة أولا: أهلا بك أخا كريم وعضواً فعال مفيد ومستفيد إن شاء الله ثانيا : بما أنك عضو جديد وهذه أول مشاركة لك فسنتغاضى عن أمر إغلاق الموضوع ولكن رجائي الإطلاع على قوانين المنت…

نعم يمكن وسنقوم بعمل ذلك عن طريق الكود في خطوات كما يلي جعل الشبكة من اليمين إلى اليسار بالكود التالي Grid1.ColAlignment(0) = 3 Grid1.ColAlignment(1) = 3 Grid1.ColAlignment(2) = 1 Grid1.ColAlignment(3) = 1 توسيط عناوين الأعمدة بالكود التالي Grid1.FixedAlignmen…

لكي تقوم بضغط وإصلاح البرنامج عن طريق زر أمر فأتبع التالي إنشيء وحدة نمطيه عامة كالتالي Public Function CompactRepairDatabase() On Error GoTo Err If MsgBox("سيتم عمل صيانة للبرنامج الآن هل هذا ما تريد فعله", vbMsgBoxRight _ + vbInformation + vbYesNo + vbDefaul…

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

أطلع على الموضوع التالي ففيه الحل طريقة رائعة للبحث المثال هنا على هذا الرابط

هناك خطأ في الكود أنظر إلى الأسطر التالية والموجود في حدث عند التغيير في مربع النص Select Case Me.OptSearch Case 1: SearchText = SearchText & "*" Case 2: SearchText = "*" & SearchText & "*" Case 3: SearchText = "*" & SearchText End Select مطلوب منك تعديل الأتي…

تفضل المثال بعد التعديل ونصيحة غير التسميات باللغة الإنجليزية ليسهل التعامل معها برمجياً db5.rar

تفضل المثال بعد التعديل ونصيحة غير التسميات باللغة الإنجليزية ليسهل التعامل معها برمجياً ______.rar

أي إصدار من أوفيس تستخدم

Reports("Report1").Printer.RightMargin = 339.6 الأيمن تحديد الهامش Reports("Report1").Printer.LeftMargin = 339.6 حديد الهامش الأيسر Reports("Report1").Printer.TopMargin = 1400 تحديد الهامش العلوي Reports("Report1").Printer.BottomMargin = 566 تحديد الهامش السفل…

أكتب الأمر التالي على زر أمر أو عند فتح التقرير Reports("Report1").Printer.Orientation = acPRORLandscape أكتب السطر التالي Reports("Report1").Printer.Orientation ثم علامة = ستظهر لك خيارات أختر منا عمودي أو أفقي حسب رغبتك

هل هذا البرنامج يخصك أو حصلت على إذن من صاحبها في فتح البرنامج

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

يا استاذ محمد First تعطينا أول قيمة في الوسيطتين الممررتين لها الأولى الحقل والثانية الجدول مثال VarSalary=DFirst("[Salary]","SalaryTbl") السطر السابق سيعطينا أول راتب في جدول الرواتب VarSalary=DFirst("[Salary]","SalaryTbl","[EmployedID=10") السطر السابق سيعطي…

الأخ فيصل دائماً يبادر للأفضل الله يوفقه الأخ أكسير الله يعطيك العافيه ويعينك على عمل الخير دائماً لا بأس في الترشيح الإخ فيصل إذا أمكن أن يبدأ العمل بعد عطلة الفطر

أين تريد أن تتم الإضافة في الجدول أم في مربع النص