ابو ياسين المشولي

هذا مثال للاستاذة زهرة Shift-On.mdb

حطي في اي امر كي يفعل الشفت وهذا لفتح الشفت Dim msg, style, title, result msg = "سيتم تفعيل الشيفت" style = vbYesNo title = " تحذير - إيقاف مفتاح" result = MsgBox(msg, style, title) If result = vbYes Then ChangeProperty "AllowBypassKey", DB_Boolean, True MsgBox "تم تفعيل الشيفت ", vbInformation, "إتمام العملية" ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "تم الترجع عن تفعيل الشيفت", vbInformation, "إلغاء العملية" End If

هذا كود ايقاف الشفت Dim msg, style, title, result msg = "سيتم توقيف الشيفت" style = vbYesNo title = " تحذير - إيقاف مفتاح" result = MsgBox(msg, style, title) If result = vbYes Then ChangeProperty "AllowBypassKey", DB_Boolean, False MsgBox "تم إيقاف الشيفت", vbInformation, "إتمام العملية" ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "تم الترجع عن ايقاف الشيفت", vbInformation, "إلغاء العملية" End If

احب اشارك معكم وهذة طريقه في حدث عند الفتح On Error Resume Next Dim x As String If date > #6/6/2018# Then x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج") DoCmd.Quit Else x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/6/2018# - date) & " يـوم هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ") If x = vbNo Then DoCmd.Quit End If End If

اذا صدقت بانه تبعك عندما فرمت الجهاز ما اشتغل هو مربوط بالجداول والجداول موجوده بفلاشه مخرج H واذا هو تبعك بتعرف تحياتي برغم انه موضوعك مخالف وقد والسبب عنوان الموضوع

من خصائص النموذج مربع عنضر التحكم = لا

الف الف شكر على المثال ان شاء الله اجد فرصه واشوفه

للرفع

ارجو ان يكون هو طلبك الرصيد: Abs(Nz(DSum("[دائن علينا]-[مدين لنا]";"الادخال";"[رقم العملية]<=" & [رقم العملية]);0))

تسلم اخي ابا ابراهيم للاسف لم اعرف اطبقها ياليت لو تطبقها بكون شاكرا لك

للرفع

هذا مثال بسيط يتم فيه بناء جدول من حقلين واريد اضيف تسمية توضيحية عربية للحقلين ضمن الكود اشاء.mdb

للرفع

السلام عليكم ورحمه الله وبركاته اخواني مشرفي واعضاء المنتدى الكرام لدي كود انشاء جدول اريد اضيف اليه التسميه التوضيحيه كي اكتبها بالعربي strSQL1 = "CREATE TABLE [لم يسلم] ([nofatora] LONG,[name] TEXT(255) ,[daftar] LONG,[sar] CURRENCY ,[date] DATETIME,[56] BIT NOT NULL,[madfoa] CURRENCY ,[bage] CURRENCY ,[komash] TEXT(15) ,[kiyat] TEXT(15) ,[notaslem] BIT NOT NULL,[kasm] CURRENCY ,[goal] TEXT(255) ,[ملاحظات] MEMO ,[tob] LONG, CONSTRAINT [PrimaryKey] PRIMARY KEY ([nofatora]));" DoCmd.RunSQL strSQL1 وهذا هو الكود

اخي ابو زاهر لا تستطيع روايه العلاقات من البرنامج افتح القاعده اللي فيها الجداول بتشوف العلاقات

بارك الله فيك ونفع بك انت استاذي ولك كل الشكر والتقدير وكما قلت نحن بهذا المنتدى كل يدلي بما عندة وما نحن الا تلاميذكم الصغار

بارك الله فيك اخي أبو آدم وجعله في ميزان حسناتك الله يعطيك الصحه والعافيه انت دائما ماتقصر بك موضوع وبعد اذنك استاذ ابو ادم بما ان الاخ ابو زاهر عندة مشكلة في الربط جعلت له الربط اتماتيك عند الاقلاع NA_B&R Final.rar

الاخ ابو زاهر الرساله تفيد في اعادة ربط الداول بالمكان اللي فيه الداتا

بارك الله فيك اخي وان شاء الله ما فهمت المصود بهذة الكلمه بخصوص الحل فهو يكفي في حالة وجود مصروف او اثنان ليس هو ما تريد

اتفضل اخي حسب مافهمت اذا طلع المطلوب فدعوه بظره الغيب تكفي قفل خلايا نموذج فرعي.accdb

حاول بعد الحدث If Me.الاسم = "مصاريف2" Then جهة_التوزيع.Locked = True End If

حسب مافهمت اتفضل شوف المرفق المسدد.rar

هل انت من حائل بالنسبه اذ لم تريد يطلع -1 اي لم يطلع بالسالب في التنسيق ضع هذا تنسيق خانات التقرير #,###;#,###[أحمر];0

اخي الكريم ليس له علاقه بالربط ارفق المثال ونعدل عليه