Metin kutusuna tıklanınca liste kutusunun seçili olması

1 2
26/04/2014, 17:43

akdemir1

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..
26/04/2014, 18:31

ozanakkaya

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.
26/04/2014, 18:39

akdemir1

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..
26/04/2014, 19:09

ozanakkaya

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
26/04/2014, 19:45

akdemir1

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
26/04/2014, 20:45

ozanakkaya

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