Dim stDocName As String
Dim kriter As String
If IsNull(Me.Listeolaylar) Or Me.Listeolaylar = "" Then
MsgBox "Dosyasını açmak istediğiniz Olayı seçiniz..!"
Exit Sub
Else
kriter = Me.Listeolaylar
stDocName = "frm_ifadeyedavetler"
DoCmd.Close
DoCmd.OpenForm stDocName, , , "olay_id=" & kriter
End If
Kastınız böyle bir şey mi?Benim şöyle bir sorunum olacak; Şimdi bu frm_kurumsabitleri formunu ben giriş formunda ilk verilerin girilmesinde de kullanıyorum. Kapat düğmesi koduna eğer form açtırırsam ana sayfada kişi buraya girip kapatırsa direk bu sayfaya gelmek zorunda kalır.