پیغام (yes , no) از کاربر

[hf.farhadi]

با سلام خدمت دوستان عزیز
چطوری میتونم کد زیر رو به صورت پرسشی از کاربر اجرا کنم و در صورت yes بودن کد های زیر اجرا بشه و در صورت no بودن اجرا نشه. ممنون

Private Sub Npersenel_GotFocus()
If Time() > #3:00:00 PM# And Me.setare.Visible = False Then
Me.setare.Visible = True
Me.setare.SetFocus
MsgBox "آيا ميخواهيد کادر ظاهر شده را تکميل نماييد؟"
End If
End Sub

[programmermp]

سلام

از کد زیر می تونی استفاده کنی



Private Sub Npersenel_GotFocus()
If Time() > #3:00:00 PM# And Me.setare.Visible = False Then
Me.setare.Visible = True
Me.setare.SetFocus
dim msgres as vbmsgboxresult
msgres=msgbox ("آيا ميخواهيد کادر ظاهر شده را تکميل نماييد؟",vbyesno)
If msgres = vbYes Then
دستورات در صورت تایید
Else
دستورات در صورت عدم تایید
End If

End If
End Sub




امیدوارم مفید بوده باشه

[hf.farhadi]

با سلام
دوست عزیز کد شما رو چطوری باید در کد خودم ادغام کنم که بتونم به هدفم برسم . اگه ممکنه کد خودمو اصلاح کنید. ممنون میشم

[bemilove]

نمونه بزار

[hf.farhadi]

با سلام دوست عزیز programmermp ممنون بابت زحمتی که کشیدی

تو دستوراتی که میخوام کاربر no رو کلیک کنه ، دستورات اجرا نمیشه و به مشکل میخورم .

[programmermp]

با سلام دوست عزیز programmermp ممنون بابت زحمتی که کشیدی

تو دستوراتی که میخوام کاربر no رو کلیک کنه ، دستورات اجرا نمیشه و به مشکل میخورم .

بفرمایید این هم قسمت های اصلاح شده


Private Sub Npersenel_GotFocus()
If Time() > #3:00:00 PM# And Me.setare.Visible = False Then
Me.setare.Visible = True
Me.setare.SetFocus
Dim msgres As VbMsgBoxResult
msgres = MsgBox("پیام مورد نظر", vbYesNo)
If msgres = vbYes Then
Me.setare.Visible = True
Me.setare.SetFocus
ElseIf msgres = vbNo Then
Me.Npersenel.SetFocus
Me.setare.Visible = False
End If
End If
End Sub



در ضمن وقتی می خوایید کنترلی رو مخفی کنید (خط سبز) نباید فعال باشه ، واسه این کار باید ابتدا اون را غیرفعال کنید ,یعنی کنترل دیگری رو به حالت انتخاب دربیارید (خط آبی فسفری) تا خطای کامپایل صادر نشود

[bravia2009]

سلام
کد دوستمون کاملا درسته از کد ایشون استفاده کنید
موفق باشید

[hf.farhadi]

programmermp عزیز خیلی لطف کردی خوده خودشه
ممنون از زحماتت