-
Posts
1,411 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
23
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو kaser906
-
-
-
لن تستطسع فتح الملف باصدار 2010 قم بفتح الملف عن طريق اصدار 2016 بعد ذلك قم بعمل نسخه عن طريق حفظ باسم واختر الاصدار من القائمة التي ستظهر لك ::بالتوفيق::
-
الغالبية هناتعمل على اصدار اوفيس 2007 و 2010 قم بعمل نسخه بصيغة 2007 أو 2010 ليتم النظر بطلبك وبعد ذلك يمكنك تطبيق الحل على نسختك ::بالتوفيق::
-
-
السلام عليكم جربو هذا الكود فهو يفرغ مربعات النص والكمبو بوكس التي تحتوي على علامة الناج "En" مع اسثناء الحقول التي لا تحمل العلامة فالمفترض حقل الترقيم التلقائي لا يجب وضع علامة التاج اليه Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "En" Then ctl = Null End If Next ::بالتوفيق::
-
نحتاج لمثل هذه المواضيع شكرا لك استاذ صالح 🌹
-
موضوع مهم وجميل شكرا لك استاذنا 🌹
- 19 replies
-
- القائمة المختصرة
- shortcut menu
-
(و2 أكثر)
موسوم بكلمه :
-
- 1 reply
-
- 1
-
استعادة قاعدة الجداول محمية بباسورد أو إلحاق للقاعدة
kaser906 replied to qathi's topic in قسم الأكسيس Access
المواضيع كثرة بالمنتدى انظر هذا المثال للأخ محمد عصام أنقر هنا ::بالتوفيق:: -
استعادة قاعدة الجداول محمية بباسورد أو إلحاق للقاعدة
kaser906 replied to qathi's topic in قسم الأكسيس Access
اسهل حل هو حذف قاعدة البيانات الخلفية السابقة و وضع النسخه الاحتياطية مكانها مع إعادة تسميتها بنفس الاسم ونفس الباسورد الحل الثاني حذف الجداول من القاعدة الخلفية واستيرادها من القاعدة الاحتياطية الحل الثالث عمل استعلام الحاق في القاعدة الاحتياطية واختيار جدول الوجهة من قاعدة أخرى واختيار القاعدة الخلفية ::بالتوفيق:: -
استعادة قاعدة الجداول محمية بباسورد أو إلحاق للقاعدة
kaser906 replied to qathi's topic in قسم الأكسيس Access
ممكن توضيح اخي القاضي هل قاعدة البيانات محذوفة وتريد استراجعها أم انك نسيت الباسورد؟ ماهي صيغة الملف ؟ اذا لم تكن محذوفة هل القاعدة حاليا مرتبطه بالواجهة أم لا ::بالتوفيق:: -
ممتاز فقط واجهة خطأ برقم 2501 عندما يكون خيار تأكيد الاستعلامات الأجرائية مفعل وعند ظهور رسالة التأكيد والنقر على زر لا اعتقد يمكن التغلب عليها بوضع رسالة تأكيد التوزيع وإلغاء الأجراء شكرا لك استاذ 🌹
-
يستحسن وضع كود أخفاء اطار الاكسس في حدث عند الفتح ::بالتوفيق::
-
أستخدم هذا الكود On Error GoTo Err_Form_Open ChangeProperty "AllowBypassKey", 1, 0 fAccessWindow acHide, False, False With New Access.Application Dim strDbName As String strDbName = CurrentProject.Path & "\Start.accdb" .UserControl = True .RunCommand acCmdAppMaximize DoCmd.RunCommand acCmdAppMaximize .OpenCurrentDatabase strDbName, , "K@serwww$0ficena%9o6" End With Application.Quit Exit_Form_Open: Exit Sub Err_Form_Open: MsgBox "خطأً " & " " & vbCr & vbCr & " تم حذف البرنامج أو تم أعادة تسميته ", 0 + 16 + 1572864, "بدأ التشغيل" Application.Quit Resume Exit_Form_Open ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم
-
أخي قاضي لازم تحط في بالك عملية حجم النموذج عند تصميمه فلا يمكن عمل نموذج أطول أو أعرض من الشاشة وعند عرضه تريده يكون ملائم لحجم الشاشة فالواقع لم يمر علي مثال كهذا حتى الآن ولكي تتضح لك الصورة اكثر ارجع الى موضوعك طلب توسيط النماذج في مختلف قياسات الشاشات وأنظر الى المثال الذي وضعته لك هذا المثال يقوم باعادة تحجيم النموذج حسب مقاسات الشاشة عند فتحه بوضع docmd.Maximize ولكن يجب عليك اولا ضبط المقاسات حسب الشاشة لديك قبل استخدام كود إعادة التحجيم وبعد ذلك سوف يفتح على جميع مقاسات الشاشات بنفس الشكل ملاحظة : تأكد أن كرت الشاشة تم تعريفه على جهاز الحاسب لديك بشكل صحيح ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم
- 75 replies
-
- تغيير الأيقونة
- إخفاء إطار الأكسس
- (و3 أكثر)
-
نعم إستاذ @sandanet هذا من أفضل الأمثلة التي تعيد تحجيم النموذج عند فتحه بملئ الشاشة وليس هذا فقط بل يقوم على اظهار عناصر النموذج ف اماكنها ولا يقوم بازاحتها الى اليمين أو اليسار ,اعلى وأسفل وقد جربته على خمس شاشات مختلفة المقاسات وكانت النتائج ممتازه جدا ولكن توجد ملاحظة للحصول على أفضل نتيجة دائما اجعل اتجاه النموذج من اليسار إلى اليمين ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم
-
هل قمت بعمل اي تعديل في المو ديل؟ جرب اعمل قاعدة بيانات جديده واستورد جميع الكائنات
- 75 replies
-
- تغيير الأيقونة
- إخفاء إطار الأكسس
- (و3 أكثر)
-
قمت باستيراد الكائنات الى قاعدة بيانات جديده وعملت نموذج بنفس أسم النموذج اللي عندك واشتغل بدون مشاكل جرب اعمل ضغط وأصلاح وإذا ما نفع جرب طبق الطريقة بالرابط
- 75 replies
-
- تغيير الأيقونة
- إخفاء إطار الأكسس
- (و3 أكثر)
-
-
حسب فهمي أنظر إن كان هذا يلبي رغبتك ::بالتوفيق:: إن كنت ترى هذه المشاركة مفيده فلا تنسى التقييم Utilities Hide Ico Minimze To SysTray V.02.906.rar
- 75 replies
-
- 1
-
- تغيير الأيقونة
- إخفاء إطار الأكسس
- (و3 أكثر)
-
-