[FORM] form da çoklu veri seçme ve kaydetme
#1
Merhaba Arkadaşlar Şimdiden hayırlı ramazanlar

soruma gelecek olursak

1. resimde müşteriye ait ödenmemiş mallar görünüyor bu malların bir kısmını veya hepsini seçip hesap gör dediğimde 2. resimdeki bölüm açılacak bu bölümde sadece seçili ürünler gelecek gelen ürünlere ait hesaplama altta yapacak yapılan hesap sonrasında kaydet dediğimde TblHesap Tablosuna kayıt edecek aynı zamanda, seçtiğimiz satırların durum kodunu değiştirerek 2 yapacak ve günün tarihini atacak şekilde düzenlemek istiyorum.

yardımcı olabilirseniz sevinirim


Eklenti Dosyaları
.jpg   1.jpg (Boyut: 251,76 KB / İndirilme: 13)
.jpg   2.jpg (Boyut: 274,14 KB / İndirilme: 11)
.rar   Ticaret.rar (Boyut: 105,64 KB / İndirilme: 6)



  Alıntı
Bu mesajı beğenenler:
#2
Kimsenin bir fikri yok sanirim. Fikir vermeniz bile yeterli cevap olması gerekmiyor

Müşteri hesap ekraninda

Bazı guncellemeler yaptım şimdi sadece en sonda kaydet dediğimde altta yapilan hesabı kaydetmesi ve orta bölümdeki tarih durum ve seç değerlerini varsayılan değerle değiştirsin


Eklenti Dosyaları
.rar   Ticaret2.rar (Boyut: 110,72 KB / İndirilme: 3)



  Alıntı
Bu mesajı beğenenler:
#3
Visual Basic
  1. Private Sub Komut13_Click()
  2. If DCount("*", "TblHesap", "kisiid=" & Me.kisilerID) = 0 Then
  3. CurrentDb.Execute "INSERT INTO TblHesap ( kisiid, tarih, toplam, gider ) " & _
  4. "VALUES(" & Me.kisilerID & ", date(), " & Me.toplam & ", " & Me.gider2 & ")"
  5. Else
  6. CurrentDb.Execute "UPDATE TblHesap Set tarih=date(),toplam=" & Me.toplam & ",gider=" & Me.gider2 & " Where (((kisiid)=" & Me.kisilerID & "))"
  7. End If
  8. CurrentDb.Execute "UPDATE Tblislem SET durumID=2, durumtarih=date() Where (((musteriID)=" & Me.kisilerID & ") And ((durumID)=1) And ((sec)=-1))"
  9. Me.ALTFRM_Musteri_Hesap_Hareketler.Form.Requery
  10. End Sub



TblHesap tablosuna kayit ekleme islemi yukaridaki prosedur ile yapilabilir. Bu kayit odeme ile degisken olacagi icin tutulma gerekcesi ne olabilir. Islem tablosunda durum statusun bagli verileri istendiginde cagrilabilir. Deneme uygulamasi gibi gorunuyor, Dsum, dlookup, fonksiyonlari ile daha kestirme hesaplama yapabilirsiniz. Forumdaki fonksiyon bolum dokumanlarini inceleyebilirsiniz.


.rar   Ticaret2.rar (Boyut: 96,22 KB / İndirilme: 16)



  Alıntı
Bu mesajı beğenenler:
#4
kaydet butonunun kodu
Visual Basic
  1. SQLGuncelle = " Update Tblislem Set [durumID] = 2 " & _
  2. " WHERE ((Tblislem.islemID) in (" & txtKayitler & "));"
  3.  
  4. CurrentDb.Execute SQLGuncelle


dilerim işinize yarar


Eklenti Dosyaları
.rar   Ticaret_hy2.rar (Boyut: 80,63 KB / İndirilme: 4)



  Alıntı
Bu mesajı beğenenler:
#5
(08-05-2019, 05:19)dsezgin demiş ki:
Visual Basic
  1. Private Sub Komut13_Click()
  2. CurrentDb.Execute "INSERT INTO TblHesap ( kisiid, tarih, toplam, gider ) " & _
  3. "VALUES(" & Me.kisilerID & ", date(), " & Me.toplam & ", " & Me.gider2 & ")"
  4. End Sub


Hocam yardımların için teşekkür ederim evet biraz deneme uygulaması gibi bişey oldu olursa istediğim gibi ince ayar kısmına sonra gececem.

Kaydet tuşuna bastığında kayit yapıyor ama bir daha basınca yine yapıyor ikinci kayit yapmaması için ne yapilabilinir

update kisminda sadece kişi adı yazdığınız için o kişiye ait bütün değerleri ödendi yapıyordu seç taplosunuda ben ekledim sorun düzeldi



  Alıntı
Bu mesajı beğenenler:
#6
(09-05-2019, 00:13)metocan demiş ki: Kaydet tuşuna bastığında kayit yapıyor ama bir daha basınca yine yapıyor ikinci kayit yapmaması için ne yapilabilinir

Mesaj: #3'u Gunccelledim...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [MAKRO] excel userform listbox filtreleme ve kaydetme Akbas 2 352 19-07-2019, 08:45
Son Mesaj: Akbas
  [FORM] Form içi veri araması prestij06 12 560 07-07-2019, 17:04
Son Mesaj: prestij06
access-sql-18 [FORM] Çoklu Alt Formun Ana Forma İlişkilendirilmesi ebenli 6 167 09-04-2019, 14:36
Son Mesaj: ebenli
  [VBA] çoklu dosya taşıma kayaae 3 154 28-03-2019, 16:55
Son Mesaj: kayaae
  [FORM] Form bilgi giris çoklu seçme say korsan29 4 243 08-03-2019, 09:27
Son Mesaj: korsan29
  [FORM] metin kutusuna çoklu seçim örnekleri 88888888 13 5.168 23-01-2019, 21:04
Son Mesaj: 88888888
  [VBA] Metin Kutusu ve Liste Kutusu Arasında Kaydetme, Yeni Kayıt Ekleme ve Silme Sorunu mmert06 6 398 12-01-2019, 16:05
Son Mesaj: mmert06
  [FORM] Tek Form Üzerinden Açılan Kutu İle Faklı Tablolara Veri Girişi ressam 3 304 21-12-2018, 10:00
Son Mesaj: ressam

Foruma Git:


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