Honestvip
چهارشنبه 13 مرداد 1389, 11:30 صبح
سلام
این دستور برای حذف دیتابیس هست میخوا بزارم داخل یک تکست باکس بعد از زدن اینتر کار رو انجام بعد و اگر پسورد اشتباه بود پیغام بده .
If KeyAscii = 13 Then
If Text197.Text = "1234" Then
DoCmd.RunSQL "DELETE sale1.* FROM sale1;"
Quit
Else
Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???")
End If
End If
این دستور برای حذف دیتابیس هست میخوا بزارم داخل یک تکست باکس بعد از زدن اینتر کار رو انجام بعد و اگر پسورد اشتباه بود پیغام بده .
If KeyAscii = 13 Then
If Text197.Text = "1234" Then
DoCmd.RunSQL "DELETE sale1.* FROM sale1;"
Quit
Else
Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???")
End If
End If