بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
774 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Khalid Jnb
-
-
اخي العزيز
النموذج البرتقالي
هل هو بلا مصدر سجلات ( لايرتبط باي جدول) ؟؟؟؟؟
-
تفضل اخي
انا شرحت لك هذا ورقفت لك صورة سابقا ( من خصائص الحقل المطلوب اجعل العمود المنظم عدد /2) بدلا من واحد
-
4
-
-
-
اخي العزيز emam1424
لاحظت انك تسال نقس السؤال اكثر من مرة بخصوص التاكد من ادخال البيانات بالجدول واظهار الرسالة
Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك"
ان الكود هو يقوم اصلا بحقظ البيانات في الجدول ومن ثم ينتقل للسجل التالي بالجدول
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec
افضل مكان للتاكد من ادخال وحفظ البيانات هي وضع الرسالة بعد التحديث After Update كما في الصورة ( يعني لاتظهر الرسالة الا بعد حقظ البيانات ) وهذا
ينطبق على كل النماذج
-
2
-
-
انظر للمرفق اخي العزيز
توجد طريقة اسهل من الاستعلامات وربط الجداول
تستطيع ان تقوم بعم قائمة منسدلة بالجدول مباشرة (بمكن الاضافة عليها او الحذف) عن طريق معالج البحث يدلا من النص
وشكرا
-
1
-
-
-
اخي العزيز
اتستخدم كود الاكسس الرسمي بالاضافة والحفظ
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec
-
السلام علبكم
تفضل اخي الكريم
استحدم الكود التالي في حفل مجموع المبلغ الكلي الباقي
=DSum("[مبلغ الباقي]";"[الوصل]";"[id] like '" & [id] & "'")
-
1
-
-
-
-
1
-
-
السلام عليكم
تقضل ان شاء الله يكون المطلوب
'يمكن استخدام الكود التالي (Is Null) للدلالة على الحقل الفارغ' If IsNull(Me.XVisitorName) Then 'اسم الزائر MsgBox "فضلا أدخل اسم الزائر" Me.XVisitorName.SetFocus Exit Sub ElseIf IsNull(Me.XVisitorDay) Then 'اليوم MsgBox "فضلا أدخل اليوم" Me.XVisitorDay.SetFocus Exit Sub ElseIf IsNull(Me.XVisitorDate) Then 'التاريخ MsgBox "فضلا أدخل تاريخ الزيارة" Me.XVisitorDate.SetFocus Exit Sub ElseIf IsNull(Me.XVisitorTaime) Then 'الوقت MsgBox "فضلا أدخل وقت الزيارة" Me.XVisitorTaime.SetFocus Exit Sub ElseIf IsNull(Me.XTarget) Then 'سبب الزيارة MsgBox "فضلا أدخل سبب الزيارة" Me.XTarget.SetFocus Exit Sub End If
-
2
-
-
-
السلام عليكم
جرب المرفق واعلمنا النتائج
'استخدم كود الاضافة التالي' DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec
-
-
2
-
-
-
1
-
-
السلام عليكم
بعد اذن الاستاذ محمد ابوعبد الله
انت عامل بالجدول الرقم No(مزدوج ) غيره الى عدد صحيح طويل
-
1
-
-
اخي العزيز
عمل الرواتب بالاكسس افضل من الاكسل لجمالية البرنامج والواجهات وعمل سجل راتب لكل موظف على حده ووجود التقارير للطباعة
جرب ان تعمل الرواتب بالاكسس ونجن معك ان شاء الله
-
اخي العزيز
ارفق ملف يكون افضل للتصحيح
-
-
2
-
-
السلام عليكم
المفروض يكون الكود بدالة (if ) كالتالي
If rs!No.Value = Me.MNo Then DoCmd.OpenForm "Dashboard" Else DoCmd.OpenForm "Copy" End If
-
3
-
-
السلام عليكم
تفضل اخي الكريم
ضع الكود في زر عند النقر
DoCmd.OpenReport "اسم التقرير", acViewNormal 'لللطباعة المباشرة' DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة' DoCmd.RunCommand acCmdPrint 'اظهار الطابعة قبل المعاينة' DoCmd.OpenReport "اسم التقرير", acViewPreview
-
1
-
-
السلام عليكم
هل تقصد طباعة مباشرة بدون ان ظهور التقرير
-
اخي العزيز
1- استخدمت مقاس عرض النموذج 36
2- عملت ارتساء للحقول عن طريق :
- قمت بتحديد كل الحقول باللنموذج عن طريق (Ctrl+A)
- من القائمة الرئيسية اخترت (ترتيب-ثم -ارتساء- ثم اعلى اليسار) ثم الحقظ بالنسبة للنسخة العربية واعتقد النسخة الانكليزية يكون الارتساء اعلى اليمين
- حفظ التغيرات على النموذج
وهذه الصور تمثل الشرح
-
3
-
-
-
1
-
العدد المدخل في النموذج خطأ في الجدول
في قسم الأكسيس Access
قام بنشر · تم تعديل بواسطه خالد سيسكو
العقو منك اخي emam1424
نحن هنا نتعلم جميعا بفضل اساتذتنا الاعزاء وهذا المنتدى الرائع
لدي بعض الملاخظات عن عملك (قاعدة البيانات)
1- التصميم جميل
2- النماذج في عملك تقريبا متشابهة لذلك انسخ الاكواد التي تؤدي نفس العمل في النماذح المختلفة والتي تعمل بصورة جيدة
3- عند اكمال عمل يرجى منك عمل (تمت الاجابة) كما في الصورة