+- 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ığı: insert into kullanımı (/konu-insert-into-kullanimi.html)
Cvp: insert into kullanımı - POWER - 05/10/2010
Sn nadinb,
Ekteki örneği inceleyiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
Cvp: insert into kullanımı - Coskun0559 - 06/10/2010
hocam çok güzel düşünce,çokda güzel ol[/align]muş.emeğinize sağlık.
Cvp: insert into kullanımı - nadinb - 06/10/2010
Arkadaşlar merhaba
Dün akşam istediğimi aşağıdaki kodla becerebildim sonunda.
Yine de yardımlarınız için çok teşekkür ederim. Sn. horozufuk'un örneği de alternatif olarak değerlendirilebilir.
iyi çalışmalar
Private Sub İŞİN_YERİ_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, x As Integer, a As String, strSQL1 As String
x = MsgBox("Girilen Veri Listede Yok. Listeye Eklensin mi?", 52, "H A T A")
If x = vbYes Then
'strSQL = "Insert Into İŞİNYERİ ([İŞİN YERİ]) values ('" & NewData & "')"
'MsgBox "Kaydetme İşlemi Tamamlandı.", 64, "Kaydedildi"
'CurrentDb.Execute strSQL, dbFailOnError
'Response = acDataErrAdded
a = InputBox("kısa kodu:")
strSQL1 = "Insert Into İŞİNYERİ ([İŞİN YERİ],[İY]) values ('" & NewData & "','" & a & "')"
CurrentDb.Execute strSQL1, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.İŞİN_YERİ.Value = ""
End If
End Sub
Cvp: insert into kullanımı - Coskun0559 - 06/10/2010
ben inputbox ile yapmaya çalıştım ama yapamamıştım.hatamı sizin kodlarda gördüm.paylaşım için teşekkürler.
syn horoz ufuk hocamada ayrıca teşekkürler.
Cvp: insert into kullanımı - nadinb - 06/10/2010
yalnız kısa kodu girip enter yaptıktan sonra yeni kayıda gidiyor. bunu nasıl engelleyebilirim sizce?
Cvp: insert into kullanımı - assenucler - 06/10/2010
Sayın nadinb ve horozufuk;
Emek ve katkılarınız için teşekkürler..