Skip to main content

AccessTr.neT


Açılan kutuya veri ekleme

Açılan kutuya veri ekleme

Çözüldü #1
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}
.rar öRNEK.rar (Dosya Boyutu: 11,07 KB | İndirme Sayısı: 26)
+rep Access Paylaştıkca Güzeldir +rep
Son Düzenleme: 15/02/2011, 11:27, Düzenleyen: sansar55.
Cevapla
Çözüldü #2
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...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #3
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
+rep Access Paylaştıkca Güzeldir +rep
Son Düzenleme: 15/02/2011, 14:20, Düzenleyen: sansar55.
Cevapla
Çözüldü #4
tmm hallettim. elinize sağlık eksik kopyalamışım. çok sağolun ++++ rep
+rep Access Paylaştıkca Güzeldir +rep
Cevapla
Çözüldü #5
Rep için teşkkürler...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task