charkhi
سه شنبه 21 آبان 1392, 16:48 عصر
دوستان سلام
بنده می خواهم چنانچه در یک فرم مقدار وارده نامعتبر بوده باشد دیگر به فیلدهای بعدی نرود و صرفا امکان بستن فرم مهیا باشد
اگر امکان دارد لطفا راهنمایی فرمائید
Private Sub t1_AfterUpdate()
If t1 = 0 Or Null Then
MsgBox ("مقدار وارده نامعتبر است")
Me.t1.SetFocus
Me.t1.BackColor = vbRed
End If
بنده می خواهم چنانچه در یک فرم مقدار وارده نامعتبر بوده باشد دیگر به فیلدهای بعدی نرود و صرفا امکان بستن فرم مهیا باشد
اگر امکان دارد لطفا راهنمایی فرمائید
Private Sub t1_AfterUpdate()
If t1 = 0 Or Null Then
MsgBox ("مقدار وارده نامعتبر است")
Me.t1.SetFocus
Me.t1.BackColor = vbRed
End If