Private Sub KONUSU_NotInList(NewData As String, Response As Integer)

Dim strSQL As String, X As Integer

X = MsgBox("Girilen <<<KONU >>> Listede Yok. Listeye Eklensin mi?", 52, "YENİ ***KONU*** EKLENSİN Mİ...?")

If X = vbYes Then

    strSQL = "Insert Into konusu ([konusu]) values ('" & NewData & "')"

    MsgBox "KONU Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"

    CurrentDb.Execute strSQL, dbFailOnError

    Response = acDataErrAdded

Else

    Response = acDataErrContinue

   Me.KONUSU.Value = ""

End If

End Sub

(28/02/2012, 12:26)alpeki99 yazdı: Birden çok soruyu aynı mesajınızda sormayınız. Her sorunuz için ayrı konu açarsanız daha iyi olur.