اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

بلال اليامين

بواسطه بلال اليامين
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by Khalid Jnb,

الردود الموصى بها

بلال اليامين

بلال اليامين

قام بنشر
قام بنشر

السلام عليكم

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

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

2020.rar

رابط هذا التعليق
شارك
بلال اليامين

بلال اليامين

قام بنشر
  • الكاتب
قام بنشر (معدل)

السلام عليكم

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

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

 

تم تعديل بواسطه بلال اليامين
رابط هذا التعليق
شارك
عفرنس

عفرنس

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

السلام عليكم

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

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

 

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

رابط هذا التعليق
شارك
Khalid Jnb

Khalid Jnb

قام بنشر
قام بنشر (معدل)

اخي العزيز

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

LIKE.gif

 

Accept_Answer.gif

تم تعديل بواسطه خالد سيسكو
رابط هذا التعليق
شارك
Khalid Jnb

Khalid Jnb

قام بنشر
قام بنشر (معدل)

السلام عليكم

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

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

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

تحياتي

حياتي

تم تعديل بواسطه خالد سيسكو
  • Like 1
رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر

طريقة العمل:

image.png.cab2ce1dfd8f51c6d12466e903f39294.png

.

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

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

image.png.8188b5c5e6e68f457f8a7fe35981cb5c.png

basBalloonTooltip  في Module

BalloonTooltip       في Class Module

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

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

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

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

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

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

Private Sub cmd_Update_Click()

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

.

image.png.c929b84b40187b7ac62214833d8078bf.png

.

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

    btNone
    btInformation
    btWarning
    btCritical

.

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

image.png.805439003f1eded5dbf64ef478721f2c.png

.

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

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

.

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

 

1480732591_BaloonTooltip.gif.ea85fc7fb3e089ca16485abf334a3c9f.gif

.

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

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

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

image.png.2bdb522358b20285226f6f7f392dce29.png

.

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

image.png.4c67bb0a20fbec306411a9201f781bf7.png

.

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

image.png.37c94ff81818bc30b2abb4897ebf53ec.png

.

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

image.png.e1af6ed16305cf89a2b7c637e3bf62b6.png

.

 

جعفر

1191.222.zip

  • Like 2
رابط هذا التعليق
شارك
بلال اليامين

بلال اليامين

قام بنشر
  • الكاتب
قام بنشر (معدل)

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

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

 

1191.222.rar

تم تعديل بواسطه بلال اليامين
رابط هذا التعليق
شارك
Khalid Jnb

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

تم تعديل بواسطه خالد سيسكو
رابط هذا التعليق
شارك
jjafferr

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

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept