Sn nadinb,

Ekteki örneği inceleyiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

hocam çok güzel düşünce,çokda güzel ol[/align]muş.emeğinize sağlık.

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

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.

yalnız kısa kodu girip enter yaptıktan sonra yeni kayıda gidiyor. bunu nasıl engelleyebilirim sizce?

Sayın nadinb ve horozufuk;

Emek ve katkılarınız için teşekkürler..