araçlar çözümleden veri tabanını böldürerek sorunumu çözümledim ilglenen arkadaşlara teşekkür ederim ama açılır menülerin yoğunluğu ile ilgili tavsiyeleriniz varsa onlarıda beklerim fazlaca açılan açılır menü nedeni le yeni menü ekleyemiyordum
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
tabloları fazlaca oluşmamın sebebide açılır menüde yok ise eklekomutunu kullanmamdır aşağıdaki gibi
Private Sub Parça_Adı_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 & "' Henüz Listede Bulunmamaktadır." & vbCr & vbCr
Msg = Msg & "Ürün Ağacına Eklemek İstermisiniz?"
i = MsgBox(Msg, vbQuestion + vbYesNo, "Anlaşılmayan Katagori...")
If i = vbYes Then
strSQL = "INSERT INTO parcalar ( [Parça Adı] ) values ('" & NewData & "')"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "parcalar"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
Response = acDataErrContinue
End If
End Sub