+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin kutusuna tıklanınca liste kutusunun seçili olması (/konu-metin-kutusuna-tiklaninca-liste-kutusunun-secili-olmasi.html)
Sayfalar:
1
2
Metin kutusuna tıklanınca liste kutusunun seçili olması - akdemir1 - 26/04/2014
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..
Cvp: Metin kutusuna tıklanınca liste kutusunun seçili olması - ozanakkaya - 26/04/2014
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.
Cvp: Metin kutusuna tıklanınca liste kutusunun seçili olması - akdemir1 - 26/04/2014
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..
Cvp: Metin kutusuna tıklanınca liste kutusunun seçili olması - ozanakkaya - 26/04/2014
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 SubCvp: Metin kutusuna tıklanınca liste kutusunun seçili olması - akdemir1 - 26/04/2014
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
Cvp: Metin kutusuna tıklanınca liste kutusunun seçili olması - ozanakkaya - 26/04/2014
Kayıt ekleme olayı gözden kaçmış, aşağıdaki uygulamayı deneyiniz.