Metin kutusuna tıklanınca liste kutusunun seçili olması
Tarih
26/04/2014 17:43
Konu Sahibi
akdemir1
Yorumlar
6
Okunma
1689
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
26/01/2017,21:08
Çözüldü 
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..


Ek Dosyalar
.rar   akdmr.rar (Dosya Boyutu: 58,33 KB / İndirme Sayısı: 6)
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.586
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
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.


Ek Dosyalar
.rar   listekutususeciliyapma.rar (Dosya Boyutu: 54,09 KB / İndirme Sayısı: 9)
Cevapla

akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
26/01/2017,21:08
Çözüldü 
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

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.586
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
Kodu aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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


Cevapla

akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
26/01/2017,21:08
Çözüldü 
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

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.586
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
Kayıt ekleme olayı gözden kaçmış, aşağıdaki uygulamayı deneyiniz.


Ek Dosyalar
.rar   listekutususeciliyapma2.rar (Dosya Boyutu: 49,17 KB / İndirme Sayısı: 14)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Liste Box In İçindeki Verilerin Hizalanması erensimsek 3 97 19/05/2017, 14:05 erensimsek
  Tabloda Seçili Satıra Ait Veriyi Güncelleme pelitt 14 284 13/05/2017, 12:22 atoz112
  Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 343 11/05/2017, 22:59 sadooo
  Seçime Göre Açılır Liste blue_wall 5 133 11/05/2017, 17:06 atoz112
  Combobox Açılır Liste İle İlgili Örnek Uygulama Lazım erensimsek 8 186 06/05/2017, 03:41 erensimsek


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status