اذهب الي المحتوي
أوفيسنا
بلال اليامين

تعديل كود زر تاكيد الحفظ

Recommended Posts

السلام عليكم 

لي كود اريد التعديل عليه 

1- ان الكود الموجود في الزر تاكيد الحفظ

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

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

اليكم الكود

Private Sub NoEmptyTexts()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Or ctl = "" Then
ii = 1
MsgBox "ÇáÑÌÇÁ ãáÁÌãíÚ ÇáãÚáæãÇÊ ÇáãØáæÈÉ"
DoCmd.CancelEvent
ctl.SetFocus
Exit For
Else
ii = 2
End If
End If
Next ctl
End Sub

Private Sub cmd_view_report_Click()
On Error Resume Next

Dim stDocName As String
 DoCmd.SelectObject acReport, "ØÈÇÚÉ ÇÓÊãÇÑÉ ãáÝ ÇáãæÙÝ", True
    stDocName = "ØÈÇÚÉ ÇÓÊãÇÑÉ ãáÝ ÇáãæÙÝ"
  DoCmd.OpenReport stDocName, acPreview


End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub ÃãÑ41_Click()
Call NoEmptyTexts
If ii = 1 Then
Exit Sub
DoCmd.CancelEvent
Else
Me.Refresh
MsgBox " ÊãÊ ÚãáíÉÇÖÇÝÉ ãæÙÝ ÌÏíÏ ÈäÌÇÍ ÇáÑãÒ ÇáæÙíÝí ááãæÙÝ " & " " & Me.sname & "  " & "" & " " & usr_ID, _
    vbInformation + vbOKOnly, _
    "ÈáÏíÉ ÓØíÝ"
End If
DoCmd.GoToRecord , ÇáÑãÒ, acNewRec

شارك هذه المشاركه


رابط المشاركه
شارك

وعليكم السلام

جرب استخدام هذا الكود

if isnull (me![اسم الحقل])=true then

msgbox "لم تدخل البيانات في الحقل"

else

dcomd.seve

end if

 

كود الحفظ.rar

تم تعديل بواسطه صلاح جبر

شارك هذه المشاركه


رابط المشاركه
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • المتواجدين الان   0 اعضاء متواجدين الان

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

×
×
  • اضف...