Ekteki örenkte 3 adet form iki adet tablo var.Yapmaya çalıştığım SATIS formundaki müşteri no yanındaki buton yardımıyla arama formunu açıyorum eğer müşteri daha önceden kayıtlı ise isimle sorgulayım çıkan sonuca tıklayınca müşteri kayıt formu açılsın bilgileri kontrol edeyim eğer doğru kaydı bulduysam varsa gerekli düzenlemeleri yapıp KAYDET YADA SEÇ butonuna basınca müşteri numarası satış formundaki uygun alana kopyalansın.
1-satış formundaki müşteri no açılan kutumu metin kutusumu olmalı
2-arama formu bu şekilde işimi görürmü yada düz form yapıp metin kutusunda yapmış olduğum arama sonuçları listekutusundamı çıkmalı
3-arama işlemini ad,soyad,tc gibi alanlarla ayrı ayrı sorgulama şeklinde yapabilirmiyim
4-satış formuna taksitli satışla ilgili bir örnek yapabilirmisniz.(örnek taksit uygulamalarına baktım olayı bir türlü anlayamadım basit ve acemi düzeyinde bir örnek yapabilirseniz sevinirm.
Sn sonerdursun;
Size bir örnek hazırladım gönderiyorum. İçerisinde taksitlendirme de var.
Sizin için hangisi daha uygun bilmiyorum ama bence Satış formuna müşteriyi çağırmayın, Müşteri formuna alt form olarak satışları yazın.
Forumda "Formda arama" yazarak arama yapın, arama ile ilgili çok sayıda örnek var.
örn;
https://accesstr.net/formda-arama-yapmak-t-275.html
Taksitle ilgili örnek için teşekür ederim.Sizinde dediğiniz gibi bende alt form olarak yapmak istedim ama olmadı müşteri bilgileri girişinde Müşteri no,kimlik no,adısoyadı,adresi,telefon no gibi detay alanları var.
Satılan ürün içinde ürüne ait bazı bilgiler ve sizin yapmış olduğunuz örnekteki gibi taksit bilgisi var.müşteri çağırmamdaki düşüncem eğer müşteri kayıtlı ise bilgileri göreyim doğru kişi ise satış yapayım kayıtlı değilse yeni müşteri kaydı yapayım müşteri kayıt formunu kapatınca gerekli olan bilgiler satış formuna aktarılsın.Birde taksit yaparken her taksit eklemede soruyor bunu 1 defa taksitlendirmeyi onaylıyormusunuz gibi yapılabilirmi
sn sonerdursun, taksitlendirmenin onaylanması için taksitle butonunun kodlarını aşağıdaki ile değiştir.
Kod:
Private Sub Komut32_Click()
If IsNull(IlkTaksitTarihi) Then
MsgBox "ilk taksit tarihini belirtiniz."
Else
If IsNull(SatisTutari) Or SatisTutari = 0 Then
MsgBox "Satış tutarını belirtiniz."
Else
If IsNull(TaksitSayisi) Or TaksitSayisi = 0 Then
MsgBox "Taksit Sayısını belirtiniz."
Else
If MsgBox("Taksitlendirmeyi Onaylıyor musunuz?", 52, "Taksit Uyarısı") = 6 Then
'Taksitlendirme işlemleri başlangıcı
For x = 0 To TaksitSayisi - 1
Me.Metin30 = Aciklama & " " & x + 1 & " .taksit"
Me.Metin32 = DateAdd("m", x, IlkTaksitTarihi)
DoCmd.RunSQL "INSERT INTO SATIS (MUSTERINO, ACIKLAMA, TUTAR, VadeTarihi) " _
& "SELECT MUSTERINO, Metin30, TaksitTutari, Metin32"
Next x
'Taksitlendirme işlemleri sonu
Refresh
End If
End If
End If
End If
End Sub
sn sonerdursun, lütfen açtığınız konuyu takip ediniz.
Vermiş olduğunuz cevaplar için teşekürler.