AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Açılan kutuya veri ekleme

15/02/2011, 11:27

sansar55

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}
15/02/2011, 14:07

Puletin

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...
15/02/2011, 14:16

sansar55

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
15/02/2011, 14:41

sansar55

tmm hallettim. elinize sağlık eksik kopyalamışım. çok sağolun ++++ rep
15/02/2011, 17:12

Puletin

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