تحديث المعلومات في النموذج

[بلال اليامين]

السلام عليكم

لدي نموذج عنصر_تحكم_علامة_جدولة فيه اربع نماذج اريد وضع زر تحديث 

وعند الظغط على الزر تظهر رسالة تنبيه  (( تما تحديث معلومات الموظف باسم ورقم الموظف بنجاح))

2020.rar

[بلال اليامين]

لقد قمت باعادة الملف

222.rar

[Khalid Jnb]

السلام عليكم

تفضل اخي الكريم

فقط اضغط على زر تحديث

اتمنى يكون المطلوب

تحياتي

222.rar

[بلال اليامين]

السلام عليكم

اخي هذه هي الاجابة بارك الله فيك

اخي خالد اريد رسالة تنبيه تظهر لمدة 3تواني وتغلق بدون الظغط على الزر

 

تم تعديل مارس 18, 2020 بواسطه بلال اليامين

[عفرنس]

4 ساعات مضت, بلال اليامين said:

السلام عليكم

اخي هذه هي الاجابة بارك الله فيك

اخي خالد اريد رسالة تنبيه تظهر لمدة 3تواني وتغلق بدون الظغط على الزر

 

لا تنس الضغط على افضل اجابة 

[Khalid Jnb]

السلام عليكم

تفضل اخي الكريم طلبك 

رسالة بعد 3 ثوان تختفي

يمكنك كذلك تغيير عدد الثواني

تحياتي

222.rar

[Khalid Jnb]

اخي العزيز

 من قواعد المشاركة فى الموقع
لما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة)
 

 

تم تعديل مارس 19, 2020 بواسطه خالد سيسكو

[jjafferr]

12 ساعات مضت, بلال اليامين said:

اريد رسالة تنبيه تظهر لمدة 3تواني وتغلق بدون الظغط على الزر

 

اليك الرابطين التاليين :

.

 

جعفر

[بلال اليامين]

اخي خالد اريد رسالة التنبيه كما هو المثل المرفق 

2023.rar

[Khalid Jnb]

السلام عليكم

لم افهم طلبك في ملفك

 هل تريد رسالة مكتوبة  داخل مربع نص ام ماذا 

ممكن توضح لي

تم تعديل مارس 19, 2020 بواسطه خالد سيسكو

[بلال اليامين]

السلام عليكم

اخي  اريد رسالة تنبيه  تغلق في 2ثواني وتظهر في الاسفل مع اخفاء زر الغاء

 

تم تعديل مارس 19, 2020 بواسطه بلال اليامين

[Khalid Jnb]

السلام عليكم

 ان صاحب  الموضوع  هو استاذ @jjafferr  هو صاحب الفكره واتمنى ان يشرح الموضوع بدقة

جزاه الله خير الجزاء

والموضوع في الرابط التالي"

تحياتي

حياتي

تم تعديل مارس 19, 2020 بواسطه خالد سيسكو

[بلال اليامين]

اخي خالد اريد تحويل هذا الزر الى الملفي المرفق وبارك الله فيك

 

[jjafferr]

طريقة العمل:

.

1. من برنامجك ، تستورد الوحدتين النمطية ، BalloonTooltip و basBalloonTooltip ، من البرنامج BalloonToolTipSample.mdb ،

واذا اردت ان تعمل نسخ ولصق للوحدتين النمطية ، تأكد بأنك تلصق كل وحدة نمطية في مكانها الصحيح :

basBalloonTooltip  في Module

BalloonTooltip       في Class Module

2. تشغل برنامج اللي في رابط مشاركتي اعلاه : BalloonToolTipSample.mdb ،

ثم تضع النص اللي تريده ،

3. اختار احد الاختيارات ،

4. جربه ، وشوف نتيجته ،

5. ولما تختار من رقم 3 ، انقر على الرقم 5 حتى يعطينا البرنامج الكود الذي نستعمله ،

6. ننسخ الكود في الذاكرة ، ثم نلصقه في برنامجنا :

Private Sub cmd_Update_Click()

    ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning
End Sub

.

.

وانواع الايقونات هي :

    btNone
    btInformation
    btWarning
    btCritical

.

ونستطيع التوسع ، وجعل بيانات معينة تظهر ، مثل:

.

والذي عملناه بهذا الكود :

    ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44  form]![التسلسل] & vbCrLf & _
                                                  "اللاسم: " & Forms!الرئيسية![44  form]![named] & vbCrLf & _
                                                  "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _
                                                  "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _
                                                  btWarning

.

وهناك كمية معينة من البيانات التي ممكن اظهارها ، وإلا ، فلن يظهر إلا الكم المسموح به فقط 🙂

 

.

الى هنا وينتهي العمل .

----------------------------------------------------------------

اذا عملنا ايقونه خاصه لبرنامجنا ، انا عملت حرف J باللون الازرق :

.

ومن اعدادات البرنامج ، نختار صورة الايقونه للبرنامج :

.

فنلاحظ انه تظهر في اعلى يسار الشاشة :

.

وكذلك ستظهر الايقونه مع الرسالة :

.

 

جعفر

1191.222.zip

[بلال اليامين]

اخي وعند تكون الحقول فارغ  الرجاء ملء الحقول

[بلال اليامين]

اخي خالد اليك البرنامج بخصصوص الحقول الفارغة

اريد عندما تكون الحقول فارغة تظهر رسالة تنبيه مكتوبة الرجاء القيام بملء الحقول

 

1191.222.rar

تم تعديل مارس 20, 2020 بواسطه بلال اليامين

[Khalid Jnb]

السلام عليكم

اخي العزيز @بلال اليامين

افتح موضوع جديد على اعتبار ان الموضوع الاساسي هنا تم الاجابه عنه حتى تعم الفائده للجميع 

المهم

انت بعتت ملفات كثيرة لااعرف اي ملف تقصده

ساكتب لك الكود  هنا 

'انقل هذه الوحدة النمطية في اي مكان بالنموذج كماهي
Private Function officena()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
If IsNull(ctl) Or ctl = "" Then
Beep
MsgBox "      اخي الكريم ... لقد تركت الحقل ..." & "(" & ctl.Name & ")" & "... فارغاً  ", vbOKOnly, "اوفيسنا"
DoCmd.CancelEvent
ctl.SetFocus
Exit For
End If
End If
Next ctl
End Function

تم من خلال الضغط على اي زر  استدعي الكود الاول 

' انقل هذا الامر الى  زر 
Call officena

ملف مني مرفق للعمل 

تحياتي

عدم ترك حقل فارغ.rar

تم تعديل مارس 20, 2020 بواسطه خالد سيسكو

[بلال اليامين]

اخي خالد اسم البرنامج الذي اريد فيه وضع الكود  1191.222.rar171.78 kB · 0 تنزيلات  

بارك الله فيك

[jjafferr]

السلام عليكم 🙂

 

عملت بعض الاضافات في مشاركتي السابقة ،

وهذه هي الجزئية التي تتأكد ان الحقول مليانة :

Private Sub cmd_Update_Click()
    
    If (Len(Forms!الرئيسية![44  form]![التسلسل] & "")) = 0 Then
        MsgBox "حقل التسلسل فارغ"
        Forms!الرئيسية.Form![44  form].SetFocus
        Forms!الرئيسية![44  form]![التسلسل].SetFocus
        Exit Sub
        
    ElseIf (Len(Forms!الرئيسية![44  form]![named] & "")) = 0 Then
        MsgBox "حقل الاسم فارغ"
        Forms!الرئيسية.Form![44  form].SetFocus
        Forms!الرئيسية![44  form]![named].SetFocus
        Exit Sub
        
    ElseIf (Len(Forms!الرئيسية![5 form]![تاريخ التولد] & "")) = 0 Then
        MsgBox "حقل تاريخ التولد فارغ"
        Forms!الرئيسية.Form![5 form].SetFocus
        Forms!الرئيسية![5 form]![تاريخ التولد].SetFocus
        Exit Sub
        
    ElseIf (Len(Forms!الرئيسية![8 form]![العمر] & "")) = 0 Then
        MsgBox "حقل العمر فارغ"
        Forms!الرئيسية.Form![8 form].SetFocus
        Forms!الرئيسية![8 form]![العمر].SetFocus
        Exit Sub
        
    ElseIf (Len(Forms!الرئيسية![form1]![المهنة] & "")) = 0 Then
        MsgBox "حقل المهنة فارغ"
        Forms!الرئيسية.Form![form1].SetFocus
        Forms!الرئيسية![form1]![المهنة].SetFocus
        Exit Sub
        
    ElseIf (Len(Forms!الرئيسية![form1]![رقم الموظف] & "")) = 0 Then
        MsgBox "حقل رقم الموظف فارغ"
        Forms!الرئيسية.Form![form1].SetFocus
        Forms!الرئيسية![form1]![رقم الموظف].SetFocus
        Exit Sub
    
    End If
 
  


    ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning
    
    
'    ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44  form]![التسلسل] & vbCrLf & _
                                                  "اللاسم: " & Forms!الرئيسية![44  form]![named] & vbCrLf & _
                                                  "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _
                                                  "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _
                                                  btWarning
       
End Sub

 

جعفر

1191.1.222.accdb.zip