king5star

تسلم اخى @صالح حمادي لقد قمت بانزالها وحفظها لدى فى ملف وبرجع اليها دائماً برجاء تكملة باقى الدروس .

استاذ @صالح حمادي ولا اتمنى اكثر من ذلك تسلم ايدك على هذا البرنامج وشكراً جزيلاً لك .

شكراُ لك اخى جعفر على هذا الرابط وسوف اقوم بتجربته واطلاعك على النتائج .

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

السلام عليكم اخوانى . هل يمكن عمل Ribbon باكسس 2010 اقوم بفتح النماذج من خلالة والتحكم فى اخفائه وظهوره باستخدام الصلاحيات ؟ مثل هذه الصوره :-

الف مبروك يا مُعلِم وتستاهل هذا وفقك الله دائماً وبارك لك فى مولودك .

اعلم هذا ولكنى اريد ان افعل مثلها ولقد وجدت هذا المثال وضبط معى If Age = > 46 And age <= 50 Then وشكراً جزيلا لك اخى @sandanet

السلام عليكم اخوانى سؤالى هو طريقة تركيب between مع دالة IF كما بالمثال If 90 > Great > 80 Then Text1 ="ناجح" Else Text1 ="راسب" End If

لدي مشكلة عويصة مع العلامة العشرية حيث عندما اكتب 1.73 تقريب الى 2 اتوماتيك وانا لا اريد هذا وضبطت نوع البيانات الى رقم والمنازل العشرية الى2 فما الحل ؟

الحمد لله وجدت الكود المطلوب With Me.TextBox .SelStart = 0 .SelLength = Len(.Text) DoCmd.RunCommand acCmdCopy End With برجاء من المشرفين غلق الموضوع

السلام عليكم اخوانى ما اريده هو عند حدث عند النقر تأخد القيمة التى بداخل مربع النص Copy او نسخ والصقها باى مكان اريد ببرنامج اخر حتى كالامر Past

لا اخى لا بد من وجود هذه الخاصية وهى موجودة بالفعل فى نموذج تسجيل الدخول فتنبهه قبلها بخمس ايام 4,3,2,1 حتى فات الميعاد واذا وقف مؤقت فيوجد مربع باعلى نموذج البيانات مكتوب به لاعب خامل فلا يتم تنشيطة حتى يعود ويحجز الكود الخاص به ولا يظهر فى قائمة الاكواد عند التسجيل . جربة اخى بالله عليك .

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

يظهر هذا الخطا نتيجه فتح البرنامح بصوره غير طبيعيه ادخل على الخيارات وسوف تجد نموذج البدايه قم بفتح هذا النموذج حتى يحصل على قيمه وهو نموذج welcome ولا يفتح على 2007 لان يوجد مكتبات مستخدمه لا توجد فى 2007 وتوجد فى 2010

طبعاً لا يتفوق التلميذ على معلمه ولاكن فى النموذج الرئيسي يوجد زر امر مكتوب به تخطي لان البرنامج يعطي 25 مره تجربة وهذه الطريقة قمت انت بشرحها فى مشاركة قديمة وقمت بالاستفاده منها وبعد ذلك اسم المستخدم admin الرقم السري الخاص به 123456 وشكراً لهذه الملحوظة وسوف اقوم بتصحيحها . هو لاداره صالات الجيم لاعبين واموال وللاسف فقط اوفيس2010 مع انى اريدك بشدة ان تراه .

بسم الله الرحمن الرحيم اولاً : لكم جزيل الشكر اخوانى على مساعدتكم الدائمة ومشاركتكم الفعالة معي ومع كل اخوانى . ثانياً : لقد انهيت برنامجى بشكل 90% من المطلوب واردت مشاركته معكم قبل اخذ خطوات اخري . فارجو التعقيب او الافكار الاضافية او التحسينات ولكم جزيل الشكل . متطلبات التشغيل . AccessRuntime 2010 او MicroSoft Access 2010 باسورد المستخدم : 123456 روابط التحميل : MediaFire m5zn

سلمت يداك اخى Shivan Rekany وذادك الله من لدنه علماً .

تفضل اخى مع تطوير بسيط لحقل إجمالي الفاتوره برنامج مخازن.zip

هل من طريقة لاخفاء هذه الرسالة وابدالها برسالة اخري .

هذا لمنع الحذف Private Sub Form_Delete(Cancel As Integer) DoCmd.SetWarnings False If User_Num = 1 Then If MsgBox("لا يمكن حذف هذا المستخدم") = vbOK Then DoCmd.CancelEvent On Error Resume Next End If End If DoCmd.SetWarnings True End Sub وهذا لمنع التعديل إلا ان يقوم بادخال رقم المدير . Private Sub User_ID_GotFocus() Dim MYP As String MYP = DLookup("[User_Pass]", "User_Inf", acFirst) If User_Num = 1 Then passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير اسم الدخول الخاص به") If passwd = MYP Then User_ID.SetFocus Else DoCmd.CancelEvent MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله" أمر15.SetFocus End If End If End Sub Private Sub User_Pass_GotFocus() Dim MYP As String MYP = DLookup("[User_Pass]", "User_Inf", acFirst) If User_Num = 1 Then passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير الرقم السري") If passwd = MYP Then User_Pass.SetFocus Else DoCmd.CancelEvent MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله" أمر15.SetFocus End If End If End Sub

شكراً لكم على هذا ووفقكم الله جميعاً بما تقدموه دون مقابل ولدي مشكلة صغيرة اتمنى ان يوجد لها حل لديكم قمت باستخدم الموديل الذي توصلتم اليه فى النهاية وايضاُ الاكواد ولكن لا تظهر الارقام فى مربع النص المحدد وبحثت فى الـ reference وجد مكتبات لم اقم باستخدامها وجدت هذه المكتبة لم اقم بتفعيلها Microsoft DAO 3.6 Object Library وعندما افعلها يظهر هذا الخطأ Name conflicts with existing module, project, or object library والخطأ هذا نتج من استخدامي لمكتبة Microsoft Office 14.0 Access Database engine object library فلا يجوز استخدامهم معاً تقريباً فقمت بالغاءها وفعلت المكتبة Microsoft DAO 3.6 Object Library ولكنها لم تعمل ايضاُ وعندما قمت بايقاف البرنامج واعادة تشغيلة فؤجع كل شئ كما هو ولم تعمل فهل يوجد حل ؟

تسلم يدك اخى Shivan Rekanyو اخى صالح حمادي وجزاكم الله خيراً فهذا ما اريده .

اخى صالح تسلم يدك على هذا العمل وانها فكر جديد جيد جداً . ولكن ليس هذا ما طلبت فطلبى هو ان اقوم بتغير ارتفاع تفصيل مع الإبقاء عليه بمثل ان اترتفاعه الحالى 2.8333 بوصه اريده 1.8333 بوصه فقط .

السلام عليكم اخوانى اريد ان يكون الجزء الخاص بتفصيل بالنموذج ان يقلص ويخفى معه النموذج الفرعي وعند الضغط على زر امر يطول ويظهر النموذج الفرعي . التفاصيل.zip

شكراً اخى على اهتمامك لقد جربت هذا سلفاً ولكن الرسالة تظهر دون شروط اننى استخدم هذا الكود داخل قاعدة if اخري ولكنها لم تعمل فتظر الرسالة سواء الشرط محقق او لا وهذا مثال للمقصود Dim msg, style, Title, result As String style = vbYesNoCancel + vbMsgBoxRight + vbQuestion Title = "تجربة" result = "تجربة1" msg = MsgBox(result, style, Title) If Acti = 1 Then If msg = vbYes Then MsgBox "تم بنجاح", vbInformation ElseIf msg = vbCancel Then DoCmd.Requery ElseIf msg = vbNo Then DoCmd.Quit Else 'no thing End If Else DoCmd.Quit End If