AccessTr.neT

Bul · 15/02/2011, 11:27

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}

Bul · 15/02/2011, 14:07

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...

Bul · 15/02/2011, 14:16

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

Bul · 15/02/2011, 14:41

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

Bul · 15/02/2011, 17:12

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

AccessTr.neT

Açılan kutuya veri ekleme

Açılan kutuya veri ekleme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri