Bir stok veritabanı yapmaya çalışıyorum ama sorularımı düzgün bir seviyede soramadığımdan dolayı sanırım çok acemi olduğumu anlayacaksınız. Sorunlarımı tam anlatamam acemiliğimdendir şimdiden özür dilerim.
Birinci sorum: Formun en üstündeki URUNGRUBU nun sağında bir buton olacak (bazı örneklerde ‘+’’…’ şeklinde)bu butona tıklandığında bir pencere açılacak ve buraya girdiğimiz yazı URUNGRUBU tablosunun ALAN1 kısmına eklenecek.Aynı teknik MARKA ve MODEL kısmına da eklenecek.Insert komutuyla bişeyler yapmaya çalıştım ama beceremedim.
İkinci sorum:MARKA ve MODEL kısmı ilişkili çalışsın istiyorum.Dilimin döndüğünce konuyu açmaya çalışıyım.Mesela markada ACER seçtiğimde MODEL de daha önceden ACER a ait girdiğim modeller listelenmeli.Ama bir sorunum var tüm marka modelleri elle önceden girme şansım yok sürekli değişik modeller geliyor.MODEL hanesine giriş yaptıkça bir sonraki kayıtta bu modeller gözükmeli.
Üçüncü sorum:veritabanımı sitenizden aldığım resim ekleme veritabanının üzerine kuruyorum.Veritabanım çok büyük o yüzden siteye bile upload edemedim link verdim.Nerede hata yaptımda veritabanım bu kadar büyük oldu.

Bazı sorularımı teknik bilgim az olduğu için forumlarda net aratamamış ve sizlere tam anlatamamış olabilirim anlayışınız için teşekkür ederim.

Veritabanının linki aşağıdadır.
http://www.dosya.tc/server11/TTzXRB/akabe_stok.rar.html

https://docs.google.com/file/d/0B8KYXo_k...sp=sharing

Veritabanını Sıkıştır Onar yaptığında dosya boyutu küçülür.

açılan kutunun listede yokken olayına aşağıdaki kod yazıldığında listede olmayan ifade veritabanına eklenir.

Dim strSQL As String, X As Integer
X = MsgBox("Yazdığınız Ürün Grubu Bulunamadı, Ürün Grubu Listeye Eklensin mi?", 52, "Ürün Grubu Hatalı")

If X = vbYes Then
strSQL = "Insert Into URUNGRUBU ([ALAN1]) values ('" & NewData & "')"
MsgBox "Ürün Grubu Kaydetme İşlemi Tamamlandı.", 64, "Ürün Grubu Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
DoCmd.OpenForm "Kullanılan Formun Adı", acNormal, "", "", , acNormal
End If
hata: Exit Sub

''Veritabanını Sıkıştır Onar yaptığında dosya boyutu küçülür. '' çok teşekkür ederim veritabanı sayenizde forma koyabildim.

vediğiniz kodu bu şekilde yerleştirdim

Private Sub Açılan_Kutu97_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, X As Integer
X = MsgBox("Yazdığınız Ürün Grubu Bulunamadı, Ürün Grubu Listeye Eklensin mi?", 52, "Ürün Grubu Hatalı")

If X = vbYes Then
strSQL = "Insert Into URUNGRUBU ([ALAN1]) values ('" & NewData & "')"
MsgBox "Ürün Grubu Kaydetme İşlemi Tamamlandı.", 64, "Ürün Grubu Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
DoCmd.OpenForm "ana", acNormal, "", "", , acNormal
End If
hata: Exit Sub
End Sub

ama çalıştıramadım.Asıl istediğimde açılan kutunun yanına bir buton vasıtasıyla URUNGRUBU tablosunun ALAN1 kısmına giriş yapabilmek.

ilginize teşekkür ederim.

Peki "Artı" butonuyla veritabanında o verinin olup olmadığını da mı sorgulayacaksın?

buton olayı sıkıntılı yani .Siz hiç buton koymadan giriş yapılması daha mantıklı diyorsunuz değilmi.

Senin VeriTabanında bir enteresanlık var hemen şişiyor. bu şekilde sağlıklı çalışmaz. kendi veritabanımda yukarıdaki kod çok güzel çalışıyor sorun yok sende çalışmıyor!