abo3aesha_2014

بفضل الله ثم بمعاونة أحد رواد المنتدي الرائع وهو الأستاذ @مرشدعلي تم التوصل للحل تصيد المتلاعب-3.rar

شكرا أخى مرشد ، جزاك الله خيرا فهذا هو عين المطلوب

المطلوب كود يجعل النموذج Form2 يفتح تلقائيا عند فتح النموذج Form1 إذا كان الجدول Table1 يحتوي على بيانات فتح نموذج بشرط.rar

بسم الله أجريت تعديل على قاعدة البيانات بعمل نموذج به محاولات التسجيل بكلمات سر خاطئة والمطلوب الذى لا أستيطع عمله هو : أريد هذا النموذج يفتح تلقائيا عند دخولي إلى نموذج اسم المستخدم وكلمة السر (إذا كان جدول تسجيل المحاولات يحتوي على بيانات) فيكيف يكون ذلك ؟؟ تصيد المتلاعب-2.rar

زادك الله علما وفهما أستاذنا الفاضل

تمام أخى ضبطت معي ، جزاك الله خيرا

عندى قاعدة بيانات بها نموذج يفتح من خلال نموذج آخر يحتوي على اسم مستخدم وكلمة سر إذا تم إدخالهم بشكل صحيح وسؤالى هل من طريقة تقوم بتسجيل عدد ووقت محاولات الدخول باستخدام كلمات سر خاطئة ؟؟ ويكون ذلك في جدول منفصل ؟؟ تصيد المتلاعب.rar

السلام عليكم أريد عندما أقوم بإدخال التاريخ في مربع النص A يكتب لي اليوم في مربع النص B فكيف السبيل إلى ذلك ؟؟ date.rar

تمام أستاذى الفاضل ، جزاك الله خيرا لكنى لاحظت فقط أنه يضيف يومين مع الضغطه الواحده على الزر وكذلك يضيف ساعتين بالضغط على الزر الآخر لكنى تغلبت عليها بهذا التعديل Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'KeyCode = 33 vbKeyPageUp PAGE UP key 'KeyCode = 34 vbKeyPageDown PAGE DOWN key 'KeyCode = 107 vbKeyAdd PLUS SIGN (+) key 'KeyCode = 109 vbKeySubtract MINUS SIGN (-) key 'KeyCode = 38 vbKeyUp UP ARROW key 'KeyCode = 40 vbKeyDown DOWN ARROW key If KeyCode = 107 Then tim = tim + 0.020833 ElseIf KeyCode = 109 Then tim = tim - 0.020833 'ElseIf KeyCode = 33 Then ElseIf KeyCode = 38 Then tim = tim + 0.5 'ElseIf KeyCode = 34 Then ElseIf KeyCode = 40 Then tim = tim - 0.5 End If End Sub

أثقلت على حضرتك أستاذى لكن للأسف لا شئ يتغير وإلى حضرتك قاعدة البيانات بعد التعديلات التى أضفتها حسب تعليماتك 3mdb.rar

الكود يعمل بالفعل لكن المشكلة تظهر إذا ما أغلقت قاعدة البيانات ثم فتحتها وبدأت أضغط على الأزرة

للأسف غير فعال

أرجو من الأفاضل تعريفي بالخطأ في هذا الكود استخدمته لزيادة وإنقاص الوقت والتاريخ يعمل معي فإذا أغلقت قاعدة البيانات وفتحتها وجربته تظهر لى رسالة خطأ Private Sub tim_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 107 Then tim = tim + 0.041666 ElseIf KeyCode = 109 Then tim = tim - 0.041666 ElseIf KeyCode = 33 Then tim = tim + 1 ElseIf KeyCode = 34 Then tim = tim - 1 End If End Sub 3mdb.rar

تمام شكرا أخى الكريم فهذا هو عين المطلوب

UP

شوف كده التاريخ.rar

هل هذا هو المطلوب ؟؟ التاريخ.rar

بعد إذن استاذنا أبو خليل هذه المشاركة استفدت منها في موضوع الترقيم التلقائي

الله ينور علي حضرتك يا أستاذنا ماشاء الله شرح وافي

أخي جعفر أحسن الله إليك وبارك لك في عمرك وزادك فهما وعلما

إليك الكود أين أضع Beep Private Sub ÃãÑ0_Click() If MsgBox("سيتم الخروج من البرنامج" & vbCrLf & "هل تريد الإستمرار ؟", vbYesNo Or vbQuestion) Then DoCmd.Close End If End Sub

أولا جزاك الله خيرا أخوك مبتدئ جدا وما فهمت كلامك أين أبحث ؟؟ جزاك الله خيرا ضبطت معي لحد كبير لكن بقي إصدار الصوت

أريد معرفة الأكواد التى تضاف للـ MasgBox وتتسبب في ظهور علامة الاستفهام أو العلامات الأخري بجوار النص وكذلك الأكواد الخاصة بإصدار أصوات نوافذ الرسائل

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

بسم الله ما شاء الله وفقك الله لكل خير أستاذنا وزادك من فضله ومن نجاح لنجاح بإذن الله