Merhaba,

Uygulamanın F_URUN formunda sürekli form ve hemen altında bir liste kutusu var.
Liste kutusunda tıklatığım ürünü üstteki URUN_ADI metin kutusunda seçili yapıyor eme metin kutusuna tıklayınca Liste kutusundada tıklanan ürünü seçili halde göstermesini sağlayamadım,

Yardımlarınız için şimdiden çok teşekkür ederim,

Saygılarımla..

Formun kayıt kaynağındaki sorguya eklediğim "Sıra" alanını ve formdaki "URUNADI" metin kutusunun tıklandığında olayına yazılan kodu inceleyiniz.

Forma eklediğim "Metin38"i gizleyebilirsiniz.

Ellerinize sağlık Ozan Bey,
Tam istediğim gibi sadece yeni bir ürün kaydetmek istediğimde hata veriyor ve VB de alttaki satırı işaret ediyor,

DoCmd.RunCommand acCmdSaveRecord

Saygılarımla..

Kodu aşağıdaki ile değiştir.

Private Sub Komut13_Click()



If IsNull(Metin7) Or Me.Metin7 = "" Then

MsgBox "YENİ ÜRÜN ADINI Girmediniz.", vbCritical, "ERZURUM OTOMASYON"

Me.Metin7.SetFocus

Exit Sub

End If



If Me.Metin7 = Dlookup ("[URUN_ADI]", "T_URUN", "[URUN_ADI]='" & Me.Metin7 & "'") Then

MsgBox Me.Metin7 & " -- İSİMLİ ÜRÜN DAHA ÖNCE KAYDEDİLMİŞTİR..", vbCritical, "ERZURUM OTOMASYON"

Me.Metin7.SetFocus

Me.Metin7 = ""

Else

If Me.Dirty Then

DoCmd.RunCommand acCmdSaveRecord

End If



DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO T_URUN ([URUN_ADI]) VALUES ('" & Me.Metin7.Value & "')"

DoCmd.SetWarnings True

MsgBox Metin7 & " -- İSİMLİ YENİ ÜRÜN KAYDI GERÇEKLEŞTİ TEŞEKKÜRLER..", vbOKOnly, "ERZURUM OTOMASYON"

Me.URUNADI.Requery

Me.Refresh

Me.Requery

Me.gecici = ""

Me.Metin7 = ""

Me.URUNADI.SetFocus

Me.Liste22.Requery

End If

End Sub

Değiştim hocam kaydetme olayı düzeldi fakat "resim ekleme" resim silme" ve "formu kapat butonlarında hatalar oldu şimdide,
Formun kayıt kaynağının değişmesinden dolayımı oldu anlayamadım

Kayıt ekleme olayı gözden kaçmış, aşağıdaki uygulamayı deneyiniz.