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