Private Sub Komut81_Click()
aktifsira = Me.ID
If IsNull([konusu]) Or Form_gidenpostamud.evnergittigi.Value = "Giriniz!" Or Form_gidenpostamud.adresi.Value = "Giriniz!" Or Form_gidenpostamud.aehir.Value = "Giriniz!" Or IsNull(Form_gidenpostamud.aehir.Value) Or IsNull(Form_gidenpostamud.evnergittigi.Value) Or IsNull(Form_gidenpostamud.adresi.Value) Then
MsgBox (" Lütfen Kaydınızı Kontrol Edin.!" & vbCrLf & " Boş Bırakılan Alanlar Var1."), vbExclamation, "Dikkat!"
Cancel = True
Form_gidenpostamud.evnergittigi.SetFocus
Else
Form_mudgidenevrak.Form.Refresh
Form_mudgidenevrak.Form.Recalc
DoCmd.GoToRecord acDataForm, "mudgidenevrak", acGoTo, aktifsira
End If
kod bu ancak son satırda
'mudgidenevrak' nesnesi açık değil hatası veriyor
Form verilerinin yenilenmesi
Bu Konudaki Yorumlar |
Form verilerinin yenilenmesi - Yazar: mzebek - 05/02/2009, 11:44
Cvp: Form verilerinin yenilenmesi - Yazar: tdsharun - 05/02/2009, 12:04
Cvp: Form verilerinin yenilenmesi - Yazar: mehmetdemiral - 05/02/2009, 13:51
Cvp: Form verilerinin yenilenmesi - Yazar: tdsharun - 05/02/2009, 14:10
Cvp: Form verilerinin yenilenmesi - Yazar: mzebek - 05/02/2009, 15:10
Cvp: Form verilerinin yenilenmesi - Yazar: mzebek - 05/02/2009, 17:32
Cvp: Form verilerinin yenilenmesi - Yazar: tdsharun - 05/02/2009, 18:09
|
Konuyu Okuyanlar: 1 Ziyaretçi