Khalid Jnb

اخي العزيز النموذج البرتقالي هل هو بلا مصدر سجلات ( لايرتبط باي جدول) ؟؟؟؟؟

تفضل اخي انا شرحت لك هذا ورقفت لك صورة سابقا ( من خصائص الحقل المطلوب اجعل العمود المنظم عدد /2) بدلا من واحد Library.rar

السلام عليكم هذا نموذج لاحد الاخوة لحفظ الصور خارج قاعدة البيانات ارجوا ان يكون المطلوب test.rar

اخي العزيز emam1424 لاحظت انك تسال نقس السؤال اكثر من مرة بخصوص التاكد من ادخال البيانات بالجدول واظهار الرسالة Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك" ان الكود هو يقوم اصلا بحقظ البيانات في الجدول ومن ثم ينتقل للسجل التالي بالجدول DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec افضل مكان للتاكد من ادخال وحفظ البيانات هي وضع الرسالة بعد التحديث After Update كما في الصورة ( يعني لاتظهر الرسالة الا بعد حقظ البيانات ) وهذا ينطبق على كل النماذج

انظر للمرفق اخي العزيز توجد طريقة اسهل من الاستعلامات وربط الجداول تستطيع ان تقوم بعم قائمة منسدلة بالجدول مباشرة (بمكن الاضافة عليها او الحذف) عن طريق معالج البحث يدلا من النص وشكرا Library.rar

السلام عليكم ضع الرسالة ( في خصائص النموذج) بعد التحديث Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك" ادعمنا بالاعجاب اخي العزيز

اخي العزيز اتستخدم كود الاكسس الرسمي بالاضافة والحفظ DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec Library.rar

السلام علبكم تفضل اخي الكريم استحدم الكود التالي في حفل مجموع المبلغ الكلي الباقي =DSum("[مبلغ الباقي]";"[الوصل]";"[id] like '" & [id] & "'") test.rar

السلام عليكم لسه لم افهم قصدك اخي العزيز

السلام عليكم تفضل اخي ان شاء الله يكون المطلوب بعد عمل استغلام للجدولين 1212.rar

السلام عليكم تقضل ان شاء الله يكون المطلوب 'يمكن استخدام الكود التالي (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 Database4.rar Database5.rar

لقد قمت بتعديل وترتيب التقرير والنموذج Database2.rar Database3.rar

السلام عليكم جرب المرفق واعلمنا النتائج 'استخدم كود الاضافة التالي' DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec Database1.rar

السلام عليكم AhmedEmam ارفق لنا ملف للتصحيح بيكون افضل هذا ملف لاحد الاخوه اظهار كلمة المرور.rar

هذا مثال لاحدى الاخوات عسى ان يقي يالغرض za-FullControlOfPrintReport2010.rar

السلام عليكم بعد اذن الاستاذ محمد ابوعبد الله انت عامل بالجدول الرقم No(مزدوج ) غيره الى عدد صحيح طويل

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

اخي العزيز ارفق ملف يكون افضل للتصحيح

مثالين آخر ين للتقويم لاحد الاخوة التقويم.rar NA_Calendar2000-1.rar

السلام عليكم المفروض يكون الكود بدالة (if ) كالتالي If rs!No.Value = Me.MNo Then DoCmd.OpenForm "Dashboard" Else DoCmd.OpenForm "Copy" End If

السلام عليكم تفضل اخي الكريم ضع الكود في زر عند النقر DoCmd.OpenReport "اسم التقرير", acViewNormal 'لللطباعة المباشرة' DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة' DoCmd.RunCommand acCmdPrint 'اظهار الطابعة قبل المعاينة' DoCmd.OpenReport "اسم التقرير", acViewPreview

السلام عليكم هل تقصد طباعة مباشرة بدون ان ظهور التقرير

اخي العزيز 1- استخدمت مقاس عرض النموذج 36 2- عملت ارتساء للحقول عن طريق : - قمت بتحديد كل الحقول باللنموذج عن طريق (Ctrl+A) - من القائمة الرئيسية اخترت (ترتيب-ثم -ارتساء- ثم اعلى اليسار) ثم الحقظ بالنسبة للنسخة العربية واعتقد النسخة الانكليزية يكون الارتساء اعلى اليمين - حفظ التغيرات على النموذج وهذه الصور تمثل الشرح

السلام عليكم هل هذا طلبك اخي الكريم Database1.rar Database2.rar

اخي العزبز اجعل النموذج مفتوحا وافتح التقرير وتعمل الدالة لديك لماذا لم تعمل حداول واستعلامات كان الموضزع اسهل عليك