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 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