AccessTr.neT

Sn. Sledgeap güzel bir çalışmasını gördüm tam işime yarayacak büyük bir örnek öncelikle teşekkür edüyorum. ben aynısını yapmaya çalıştım ama hata veriyor örnek ekliyorum bakarmısınız nerde hata yapıyorum.

https://accesstr.net/konu-veri-acilan-ku...page={page}

Kod:
Private Sub ADIM_NotInList(NewData As String, Response As Integer)

Dim strSQL As String

Dim i As Integer

Dim Msg As String

If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' listenizde yok." & vbCr & vbCr

Msg = Msg & "Eklemek ister misiniz?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Bilinmeyen Ad...")

If i = vbYes Then

strSQL = "Insert Into Tablo2 ([ADIM]) " & _

"values ('" & NewData & "');"

CurrentDb.Execute strSQL, dbFailOnError

Response = acDataErrAdded

Else

Response = acDataErrContinue

End If

End Sub

Denermisiniz...

denedim fakat hata veriyor resim ekliyorum.

ekleyemedim. girdiğiniz metin listedeki bir öğe değil. listeden bir öğe seçin veya listeden eşleşen bir öğe giriniz diye hata veriyor

tmm hallettim. elinize sağlık eksik kopyalamışım. çok sağolun ++++ rep

Rep için teşkkürler...

sansar55

Puletin

sansar55

sansar55

Puletin