Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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..
.rar akdmr.rar (Dosya Boyutu: 58,33 KB | İndirme Sayısı: 7)
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #2
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.
.rar listekutususeciliyapma.rar (Dosya Boyutu: 54,09 KB | İndirme Sayısı: 11)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #3
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..
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #4
Kodu aşağıdaki ile değiştir.

Visual Basic Code
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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #5
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 Img-cray
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #6
Kayıt ekleme olayı gözden kaçmış, aşağıdaki uygulamayı deneyiniz.
.rar listekutususeciliyapma2.rar (Dosya Boyutu: 49,17 KB | İndirme Sayısı: 14)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da