jjafferr

بغير فارزه . وبغير فواصل . جعفر

اخي بشاردو :) اخوي خالد قصده ، اختر الاجابة الافضل لك ، وليس قصده ان تختار اجابته 🙂 جعفر

يا لطيف !! اعدادات الجقل في الجدول . والنتيجة بدون تنسيق . . وطبعا تقدر تغير طريقة العرض بإستخدام التنسيق Format ، وبإستخدام: . النتيجة: . جعفر

او عند تمرير الفأرة على الكائن في النموذج: جعفر

هذا بسبب ان الحقل غير مضمن (اي غير مرتبط بحقل في جدول/استعلام) ، في نموذج مستمر 🙂 جعفر

السلام عليكم 🙂 المرفق من :https://www.msaccesstips.com/2009/02/controltip-text-and-time-delay.html افتح النموذج MainSwitchBoard ، وضع الفأرة على اي من الكائنات في النموذج 🙂 هو مثل مثال اخوي ابو آمنه ، ولكنه متطور 🙂 جعفر ControlTip2K.zip

وعليكم السلام 🙂 جرب هاي: if len(me.parent!B & "")=0 then 'me.parent.setfocus 'بعض الاحيان نحتاج الى هذا السطر ايضا me.parent!B.setfocus end if جعفر

اخي رابح 🙂 الرابط يعطيك جميع التفاصيل ، ومرفق جاهز للتجربة وفحص الكود ومعرفة اين يتم وضعه 🙂 جعفر

حياك الله 🙂 وللتذكير جعفر

تفضل 🙂 عملت تقرير جديد ، فارغ ، وحفظته بإسم Report1 ، ثم عملت نسخ ولصق لكائنات تقريرك ، والصقتها في التقرير الجديد ، مع مراعاة ان يكون عرض التقرير الافتراضي هو : Print Preview جعفر 1186.New Microsoft Access Database.accdb.zip

السلام عليكم 🙂 وهذا دلوي 🙂 Private Sub cmb_Month_NotInList(NewData As String, Response As Integer) Call Items_NotInList("cmb_Month", NewData, Response) End Sub Private Sub STATION_OUT_DEP_NotInList(NewData As String, Response As Integer) Call Items_NotInList("STATION_OUT_DEP", NewData, Response) End Sub Private Sub Items_NotInList(fld As String, NewData As String, Response As Integer) Response = acDataErrContinue Me(fld).Undo End Sub . جعفر 1185.COMBO BOX ERROR.accdb.zip

رجاء ارفق برنامجك علشان نشوف شو عندك 🙂 جعفر

وعليكم السلام 🙂 هذا الرابط فيه كل اللي تحتاج تعرفه جعفر

🙂

هنا البداية : . والخطوة التالية هي ، متابعة الاسئلة في المنتدى (وخصوصا الاسئلة التي تمت الاجابة عليها) ، فقم انت بالرد على السؤال ، ثم انظر لرد بقية الاعضاء ، ومنها ستتعلم ان السؤال له اكثر من جواب 🙂 جعفر

هذه المعلومة غير صحيحة ، فالماكرو يحتاج كود كذلك !! تفضل 🙂 اليك طريقتين: . هلا والله بالحلوين 🙂 جعفر Disable_Command_Buttons.zip

وعليكم السلام 🙂 اخوي رمهان ، حيا الله هذه الطلّه ، ولو من الجوال 🙂 اخوي حسين ، الظاهر انك خبير في كيفية لفت نظر اخوي رمهان ، وجعله يطل علينا ، فلوسمحت كثّر من هذه الاسئلة 🙂 ونعود لنفس اللبس في موضوعك السابق: اذا كان قصدك اول ثلاث ارقام = 777 ، فالجواب مثل ما قال اخوي رمهان: اذا كان الحقل رقم If Left(Me.serh_Barcod, 3 )= 777 Then او اذا كان الحقل نص If Left(Me.serh_Barcod, 3 )= "777" Then ومثال مني If InStr(Mid(Me.serh_Barcod, 1,3), 777)>0 Then . اما اذا كان قصدك اول ثلاث ارقام تحتوي على الرقم 7 ، فالجواب سيكون: اول 3 احرف/ارقام من الحقل Mid(Me.serh_Barcod, 1,3) فيصبح كود البحث في الثلاث احرف/ارقام الاولى If InStr(mid(Me.serh_Barcod, 1,3), 7)>0 Then . جعفر

السلام عليكم 🙂 هذه جميع مكتبات مايكروسوفت ، بصيغة نواة 32bit ومقابلها نواة 64bit ، في ملف Win32API_PtrSafe.TXT https://www.microsoft.com/en-us/download/details.aspx?id=9970 وقد ارفقت الملف لسهولة الوصل اليه 🙂 جعفر Win32API_PtrSafe.zip

او ، وبدون الاختيار من المكتبة ، تستطيع استعمال: dim MAINMENU as object ولكن لا يُفضل استعماله وانت في حالة تصميم البرنامج ، لأن طريقة الاستاذ عصام (وتسمى Early Binding ، اي الربط المسبق) ، وعند الضغط على النقطة او المسافة ، فإن البرنامج سيساعدك ويعطيك خيارات للأمر الذي تكتبه (مثل بقية اوامر الاكسس) ، ولكن لما تنتهي من البرنامج ، يمكنك استعمال طريقتي (والتي تُسمى Late Binding ،اي الربط المتأخر) ، وميزته ، انه في جهاز المستخدم ، لن يحصل على الخطأ الذي حصلت عليه ، بسبب عدم اختيار المكتبة 🙂 جعفر

وعليكم السلام 🙂 مثل ما اخوي emam1424 قال ، لا يمكن تكبيرها !! مايكروسوفت لم تحدث هذه لايقونات لأكثر من 20 سنة لهذا السبب ، يمكنك ان تنزل ايقونات من الموقع الذي اشار اليه اخوي emam1424 او من http://www.iconarchive.com/ ، او ان تعمله بنفسك بأي من برامج الرسومات ، او حتى تستعمل احد صور كاميرا هاتفك ، بالحجم اللي يناسبك ، ولكن ، تأكد ان لا تستعمل صور كبيرة في الحجم (وخصوصا في التقرير ، فإنها قد لا تظهر في الطباعة بسبب عدم وجود ذاكرة كافية في الطابعة لطباعتها) ، فإنها ستجعل برنامجك بطئ !! جعفر

اخي سليمان ، احنا في البرمجة محتاجين شرح اكثر من مجرد : لأن هذه الجملة لا تخبرنا شيء !! ورجاء ان تتأكد ان الخلفية غير شفافة . جعفر

وعليكم السلام 🙂 انا اشتغلت على برنامجك في المشاركة الاولى 🙂 . جعفر 1184.كنترول.mdb.zip

انت سؤالك كان في الحقل text2 ، جرب الرقم 1231231172564 واخبرنا النتيجة 😁 اما لو سؤالك كان: والحقل text2 = رقم ( 7 ) ، فالموضوع مختلف 🙂 جعفر

وعليكم السلام 🙂 تفضل : If Left(Me.text1, 1) = 7 And InStr(Me.text2, 7) > 0 Then MsgBox "رسالة التنبيه هنا" End If جعفر

حياك الله 🙂 يعني ما بتنقص درجاتي لأني اختصرت الطريق 😁 جعفر