هل يمكن تشغيل كود مرة واحدة فقط عند الضغط على زر يعمل لمرة واحدة فقط

[ledoledo]

السلام عليكم

هل يمكن تشغيل كود مرة واحدة فقط عند الضغط على زر يعمل لمرة واحدة فقط

[أبو آدم]

نعم

[ledoledo]

ممكن الكود

 

ملف للتنفيذ عليه

New Microsoft Office Access 2007 Database.rar

[Shivan Rekany]

هل تريد تعمل زر لمره‌ واحده‌ في حياة الزر كله أو بيشتغل مرة واحدة كل من تفتح البرامج مع التقدير

[ledoledo]

اخر الكريم

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

مشكور

[أبو آدم]

قم بانشاء جدول بحقل واحد

اسم الجدول tblCheck

اسم الحقل strCheck

نوع الحقل Number

 

في النموذح وعند حدث عند الضغط لزر الأمر انسخ

Private Sub Command0_Click()
lntCount = DCount("*", "tblcheck")

If lntCount > 0 Then
MsgBox " mohamed"
MsgBox " salah"
Exit Sub
End If

MsgBox " waleed"
strSQL = "INSERT INTO tblcheck (strCheck) VALUES (1 );"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
MsgBox " mohamed"
MsgBox " salah"
End Sub

 

[ledoledo]

مشكور جدا على الرد الاخ ابو ادم

لكن هل فيه دالة او امر بالكود يقوم  بهذا الدور بشكل مباشر 

[Shivan Rekany]

تعديل على مرفق كما قال استاذ ادم
و بطريقة اخرى معا مع قدير

New Microsoft Office Access 2007 Database.rar

[ledoledo]

جزيل الشكر الاخوة ابو ادم و Shivan Rekany i هذا يفى بالغرض

تحياتي

[رمهان]

مشاركة مع الاستاذ ابو ادم وبعد اذنه

Private Sub Command0_Click()
Static x As Integer
If x = 0 Then
MsgBox " waleed"
Else

'''''''''''''''''''''''''''''' مطلوب كود هنا لظهور الرسالة الاولى مرة واحدة فقط
 ''''''''''' بعد ذلك عند كل كليك تظهر فقط الرسالتين الثانية و الثالثة
MsgBox " mohamed"
MsgBox " salah"
End If
x = x + 1
End Sub

بالتوفيق

تم تعديل أكتوبر 3, 2016 بواسطه رمهان

[طاهر الوليدي]

ياجماعة زر ينفذ الامر مرة واحدة دون رسائل ولايقبل النقر عليه مره ثانية الزر يفقد التمكين يتجمد فقط

[أبو آدم]

أخي طاهر 

هناك مشاركات عديدة ... أي كود استخدمت ...

شكرا

[طاهر الوليدي]

في ٢٦‏/١٢‏/٢٠١٧ at 16:37, أبو آدم said:

أخي طاهر 

هناك مشاركات عديدة ... أي كود استخدمت ...

شكرا

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

[أبو عبدالله الحلوانى]

40 دقائق مضت, طاهر الوليدي said:

لكن اريد كود زر لا يسمح بتنفيده مره واحد

السلام عليكم 

هذا تطبيق بسيط لفكرة أستاذنا أبو آدم أرجو أن تجد مرادك هنالك

 

Task For One Time.rar

[طاهر الوليدي]

اشكر اخي واستاذي ابو عبد الله الحلواني احسن الله اليك