PERSONAL.ATA
چهارشنبه 25 اردیبهشت 1387, 20:05 عصر
با سلام و خسته نباشيد در مورد ماژول روبرو خواهشمند است توضيحاتی مربوط به کد هر خط با توجه به نوع متد های بکار رفته ی آن ارسال فرماييد
باتشکراز زحمات بی شائبه ی جنابعالی و اساتيد ارجمند
Sub CheckSave()
Dim msg As Integer
If issave = False Then
If Me.Dirty Then
msg = MsgBox(ايا تغییرات ذخيره شود"" & vbCrLf & _
"", vbYesNo + vbQuestion, " ")
If msg = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
issave = True
Else
Me.Undo
End If
End If
End If
issave = False
End Sub
End Function
باتشکراز زحمات بی شائبه ی جنابعالی و اساتيد ارجمند
Sub CheckSave()
Dim msg As Integer
If issave = False Then
If Me.Dirty Then
msg = MsgBox(ايا تغییرات ذخيره شود"" & vbCrLf & _
"", vbYesNo + vbQuestion, " ")
If msg = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
issave = True
Else
Me.Undo
End If
End If
End If
issave = False
End Sub
End Function