Sayın adnanyurdakul;
sizlerin desteği ve yardımlarıyla access konusunu kavramaya çalışıyorum. şimdiye kadar ilgilenmediğime pişmanım.
tabiki değerli fikirleriniz benim için önemli. Sayın MADMAX ve size değerli katkılarınızdan dolayı teşekkür ederim. Sayın MADMAX'in belirtmiş olduğu raporlama kısmını kendim halledebilirim.mernis no kısmındaki uyarınızı da dikkate alacağım. vergi numarasında 10 hane TC de 11 hane uyarısı vermesi lazımdı. o sebeple iki form olarak tasarlamıştım. tekrar kontrol ederim. fakat harf girişine dikkat etmemiştim. listede yoksa otomatik olarak insert etmesi olayı beni biraz aşar gibi gözüküyor. onu nasıl yapabiliriz?
teşekkürler.

Alıntı: Private Sub KatID_NotInList(NewData As String, Response As Integer)
Dim strSQL As String
Dim i As Integer
Dim Msg As String

'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' müşteriler tablosunda bulunamadı. " & vbCr & vbCr & _
"Kategori Formunu aynı alanı ÇİFT tık ile açabilirisiniz" & vbCr & vbCr
Msg = Msg & "Şimdi Eklemek İstermisiniz?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Bulunamayan Kayıt...")
If i = vbYes Then
strSQL = "Insert Into Kategoritbl ([Kategori]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

End Sub

not in list "listede yoksa" örneği

Sayın adnanyurdakul;
dosyaya uyarlamaya çalışacağım.
teşekkürler.