دالة if

[العبيدي رعد]

السلام عليكم

اريد كود بدالة  if في حدث بعد التحميل لتكيست بوكس يكون كالتالي

اذا كانت قيمة com تساوي  تعزيز الرصيد عندها

اذهب الى تكست t1

واذا كانت قيمة com تساوي تسديد قرض

افتح  النموذج  mok

 

[ابوخليل]

ما فيه شي اسمه حدث بعد التحميل لتيكست بوكس 

فيه حدث بعد التحميل للنموذج

وانت كتبت الكود فعلا .. فقط قم بترجمته

if com = "كذا" then
t1.SetFocus
elseif com = "كذا" then
DoCmd.OpenForm " mok", acNormal
end if

 

[العبيدي رعد]

3 ساعات مضت, ابوخليل said:

ما فيه شي اسمه حدث بعد التحميل لتيكست بوكس 

فيه حدث بعد التحميل للنموذج

وانت كتبت الكود فعلا .. فقط قم بترجمته

if com = "كذا" then
t1.SetFocus
elseif com = "كذا" then
DoCmd.OpenForm " mok", acNormal
end if

 

Private Sub td_AfterUpdate()
If Com = "تعزيز الرصيد" Then
t5.SetFocus
ElseIf Com = "تسديد قرض" Then
DoCmd.OpenForm "frm_mok"
End If
Me.Visible = False
End Sub

شكرا جزيلا  استاذي  ابو خليل  كنت  اقصد  حدث بعد التحديث  لتكست بوكس
والكود مضبوط