05/10/2010, 22:17
06/10/2010, 09:02
hocam çok güzel düşünce,çokda güzel ol[/align]muş.emeğinize sağlık.
06/10/2010, 12:33
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
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
06/10/2010, 12:38
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.
syn horoz ufuk hocamada ayrıca teşekkürler.
06/10/2010, 12:43
yalnız kısa kodu girip enter yaptıktan sonra yeni kayıda gidiyor. bunu nasıl engelleyebilirim sizce?
06/10/2010, 12:49
Sayın nadinb ve horozufuk;
Emek ve katkılarınız için teşekkürler..
Emek ve katkılarınız için teşekkürler..