[FORM] İle varsa şeklinde aramak ve liste kutusunda aramak
#1
Merhaba.
Bazen ilk açılışta Yeni kayıt butonuna basınca hata veriyor!
Butonda aşağıdaki kodlar bulunuyor.
Visual Basic
  1. Private Sub Komut26_Click()
  2. 'Dosyayı kaydediyor
  3. DoCmd.RunCommand acCmdSave
  4. 'Listboxı tazeliyor
  5. Me.Liste0.Requery
  6. 'Yeni kayıt açıyor
  7. DoCmd.GoToRecord acDataForm, "Veresiye", acNewRec
  8. End Sub



Hata veren kod aşağıdadır.Teşekkür ederim.
Visual Basic
  1. DoCmd.RunCommand acCmdSave





  Alıntı
Bu mesajı beğenenler:
#2
Merhaba.
Veresiye formunda Form ilk açılışında Müşteri açılan kutusunda Tablo1 deki müşteri adlarını ve ID larını göstersin istiyorum.Amacım bu müşteri Idlarını tablo 2 ye mstrıd sütununa kaydetmek.
Dosya ektedir.
Teşekkür ederim.


Eklenti Dosyaları
.rar   Veresiye_OC.rar (Boyut: 39,87 KB / İndirilme: 49)



  Alıntı
Bu mesajı beğenenler:
#3
Girilmesi zorunlu olan alanda veri yoksa, kaydet fonksiyonu hata verebilir.



  Alıntı
Bu mesajı beğenenler:
#4
(30-08-2018, 14:40)dsezgin demiş ki: Girilmesi zorunlu olan alanda veri yoksa, kaydet fonksiyonu hata verebilir.

Sayın dsezgin,
Teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#5
Açılan_Kutu33 denetim kaynagini Mstr_ID tanimlayin.
Guncelleme olay yordamina
Visual Basic
  1. Private Sub Açılan_Kutu33_AfterUpdate()
  2. DoCmd.RunCommand acCmdSave
  3. Me.Liste0.Requery
  4. End Sub


prosedurunu tasıyın.
Lıste0 satır kaynagı SQL ni
SQL
  1. SELECT Tablo2.ID_Ver, Tablo1.MUSTERI, Tablo2.Urun_adi, Tablo2.Tarih, Tablo2.Miktar, Tablo2.Birim_ad, Tablo2.Birim_fiyat, Tablo2.Tutar FROM Tablo2 LEFT JOIN Tablo1 ON Tablo2.Mstr_ID = Tablo1.ID;


degıstırın.
Sutun sayısını 8, sutun genıslıgını 0cm;4cm;4cm;3cm olarak degıstırın.



.rar   Veresiye_ORION.rar (Boyut: 31,5 KB / İndirilme: 55)



  Alıntı
Bu mesajı beğenenler:
#6
(30-08-2018, 15:05)dsezgin demiş ki: Açılan_Kutu33 denetim kaynagini Mstr_ID tanimlayin.
Guncelleme olay yordamina
Visual Basic
  1. Private Sub Açılan_Kutu33_AfterUpdate()
  2. DoCmd.RunCommand acCmdSave
  3. Me.Liste0.Requery
  4. End Sub


prosedurunu tasıyın.
Lıste0 satır kaynagı SQL ni
SQL
  1. SELECT Tablo2.ID_Ver, Tablo1.MUSTERI, Tablo2.Urun_adi, Tablo2.Tarih, Tablo2.Miktar, Tablo2.Birim_ad, Tablo2.Birim_fiyat, Tablo2.Tutar FROM Tablo2 LEFT JOIN Tablo1 ON Tablo2.Mstr_ID = Tablo1.ID;


degıstırın.
Sutun sayısını 8, sutun genıslıgını 0cm;4cm;4cm;3cm olarak degıstırın.

Merhaba,
Liste kutusuna tıklayınca hata veriyor.Dosya kapanıyor.
Sanırım bende tam anlatamadım,yanlış anlattım.
Açılır kutuda tablo1 deki Tüm müşteri ıdları ve müşteri adlarını göstersin.
Ona tıklayınca tablo2 deki mstr idi değişsin.
Teşekkür ederim.
Dosya ektedir.


Eklenti Dosyaları
.rar   Veresiye_OC_Backup.rar (Boyut: 30,47 KB / İndirilme: 50)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Verilerin Tree View şeklinde Gösterimi adnnfrm 2 135 15-11-2023, 00:20
Son Mesaj: adnnfrm
  Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma snapper 9 324 20-10-2023, 00:36
Son Mesaj: dsezgin
  [FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme dormin 4 218 18-01-2023, 14:29
Son Mesaj: dormin
  Liste Kutusunda Arama uzays 2 246 12-01-2023, 16:14
Son Mesaj: uzays
  [FORM] Formda Kayıt Ve Ilişki Oluşturma, Kayıtların Metin Kutusunda Gözükmesi fx41 26 1.179 12-10-2022, 11:00
Son Mesaj: dsezgin
  [VBA] Mesaj Kutusunda Tüm Verilerin Görülmesi tamersyilmaz 4 184 10-10-2022, 18:58
Son Mesaj: tamersyilmaz
  liste kutusunda güncelleştirme muhittinibrahim 11 5.144 05-06-2022, 20:00
Son Mesaj: onur_can
  [FORM] Liste Kutusundaki Kaydın Onayı Sonrası Liste Kutusunda Son Satıra Gidiyor husem 6 456 11-11-2021, 16:27
Son Mesaj: husem

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi