Ara,seç,taşı nasıl yapılır

11/02/2009, 14:17

sonerdursun

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.
11/02/2009, 19:48

ayhan2122

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
14/02/2009, 10:26

sonerdursun

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
21/02/2009, 13:04

ozanakkaya

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
01/03/2009, 07:12

ozanakkaya

sn sonerdursun, lütfen açtığınız konuyu takip ediniz.
02/03/2009, 10:02

sonerdursun

Vermiş olduğunuz cevaplar için teşekürler.