+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan kutuya veri ekleme (/konu-acilan-kutuya-veri-ekleme.html)
Açılan kutuya veri ekleme - sansar55 - 15/02/2011
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-kutuda-yoksa-eklensin.html?page={page}
Cvp: Açılan kutuya veri ekleme - Puletin - 15/02/2011
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 SubCvp: Açılan kutuya veri ekleme - sansar55 - 15/02/2011
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
Cvp: Açılan kutuya veri ekleme - sansar55 - 15/02/2011
tmm hallettim. elinize sağlık eksik kopyalamışım. çok sağolun ++++ rep
Cvp: Açılan kutuya veri ekleme - Puletin - 15/02/2011
Rep için teşkkürler...