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