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

شكرا لكم جميعا

نعم اخي صالح بارك الله فيك الان انتبهبت بعض الاحيان الانسان يتعب والسبب عدم التركيز الف شكر لك

هذا مثال اخي AlwaZeeR تقارير.accdb

للرفع

شكرا لمرورك اخي الكريم من اي ناحيه في التصميم

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

الله يسلمك اخي ابو زاهر بالتوفيق اخي

جرب هذا Forms.frmSales.AllowAdditions = False DoCmd.Close Forms.frmSales.AllowAdditions = False Forms!frmSales!SubSales!نص4.SetFocus DoCmd.Close

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

تسلم اخي جعفر فكرة ممتازة ولكن للاسف انا كان ودي تغير حجم الصورة الاساسيه وهي في الجلد

تسلم اخي على الهديه انا مسافر اذا وجد باليمن نت نتواصل

اخي جعفر jjafferr عند صور مقاساتها 1650*3200 مثلا اريد احولها الى 800*650 كما تغيرها في الرسام اريد اغيرها عبر كود http://www.mediafire.com/file/2u7c7b8d7w6xvt2/Desktop.rar/file

للرفع

نورت المنتدى بعودتك

لا اخيkanory ليس هذا ما اقصد قد شفت هذا الكود من قبل عندي الصورة مثال في هذا المسار "D:\بـرنـامـج الـخـيـاط\DATA\StPic" & ".jpg"

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

جرب هل هذة الرسالة اللي تريدها جدول الحصص (1) (1).rar

اتفضل test0772008174s.accdb

اتفضل Dim x x = MsgBox("( هـل تـريـد حـذ ف بـيـانـات الـعـمـيـل " & " ( " & [اسم العميل] & " " & vbCrLf & _ "إضغط موافق للحذف أوإضغط لا لعدم الحذف أو إضغط الغاء الأمر", _ vbInformation + vbMsgBoxRight + vbYesNoCancel, _ "( تنبيـــه : سـوف يـتـم حـذف بيانات العميل ( " & [اسم العميل] & " ") If x = vbYes Then Retry: TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) Dim MyPassword As String str_Title = "بـرنـامـج الـخـيـاط" str_Prompt = "أدخـل كـلـمـة الـسـر لـحــذف بـيـانـات الـعـمـيـل" MyPassword = InputBox(str_Prompt, str_Title) Select Case MyPassword Case "123" Beep MsgBox "الأن... يـمكـنـك حــذف بـيـانـات الـعـمـيـل""( " & [اسم العميل] & " ) ", vbOKOnly + vbInformation, " تبيه " Case Else Beep If MsgBox(" عــفــوا .. كــلــمــة الــســر خــاطــئــة " & vbCrLf & " مــن حــســن إســـلام الـمــرء تــركــه مــا لا يــعــنــيــه ", vbInformation + vbRetryCancel, " تبيه ") = vbRetry Then GoTo Retry Exit Sub MsgBox "تم الرجوع", vbInformation, "إلغاء العملية" End Select Me.Refresh DoCmd.SetWarnings False DoCmd.RunSQL "DELETE data.* FROM data where nofatora = [forms]![data]![رقم الفاتورة2];" Me.Requery If Not IsNull(Me.[اسم العميل]) Then Dim strdeleterMssage As String strdeleterMssage = "تـم حـذ ف بـيـانـات الـعـمـيـل " strdeleterMssage = strdeleterMssage & " بـنـجـاح" MsgBox (strdeleterMssage), vpInFormation, " تنبيه " DoCmd.SetWarnings True DoCmd.GoToRecord , , acLast End If End If End If عدل مسميات النموذج والحقول

تختار القاعده بشرط بصيغه mdb

هذا مثال للاستاذة زهرة 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