[FORM] Borçu biten müşteriyi arşivleme

kadem · 09-09-2012, 14:27

Selam arkadaşlar forumda öncelikle arama yaptığımı belirtmek isterim sizlerin access-sql.com ailesi sayesinde güzel bir program oluşturdum,ancak yapmak istediğim borcları biten müşterileri program içinde arşivleyerek görünmezliğini sağlamak sanırım biraz zor olucak nasıl bir şekilde beni yönlendirebilirsiniz bu konuyla ilgili

d_rago_n · 11-09-2012, 23:35

Sayın; Kadem
Konunuzla ilgili aşağıdaki linklerde mikrosoftun sayfasına bakarsanız..Belki yardımcı olur.
Kayıtları düzenli aralıklarla arşiv tablosuna taşıma
Access Veritabanındaki Kayıtları Dönemsel Olarak Arşivleme

Mantığını anlamak adına, küçük bir örnek ekledim..

adnanyurdakul · 12-09-2012, 11:16

Sayın Kadem;
Tablo yapınızı inceledim. Size öncelikle tablonuzu 4 ayrı tabloya ayırmanızı öneriyorum.
1.müşteri bilgilerini tutan tablo,
2.Yapılan işlemi tarihi ile tutan tablo,
3.Taksit sayısını tarihini tutan tablo,
4.Borç durumunu tutan tablo,
ayrıca borçları biten müşterileri arşive gönderme nedeninizi bilmiyorum ama mantıklıda bulmuyorum. Çünkü müşteri tekrar geldiğinde aynı kayıtları tekrar mı yazacaksınız. Hastanelerde öylemi?.
konuyu değerlendirin tablo yapısını yazdıklarımı göz önüne alarak düzenleyin iyi çalışmalar

kadem · 12-09-2012, 18:58

(12-09-2012, 11:16)adnanyurdakul demiş ki: Sayın Kadem;
Tablo yapınızı inceledim. Size öncelikle tablonuzu 4 ayrı tabloya ayırmanızı öneriyorum.
1.müşteri bilgilerini tutan tablo,
2.Yapılan işlemi tarihi ile tutan tablo,
3.Taksit sayısını tarihini tutan tablo,
4.Borç durumunu tutan tablo,
ayrıca borçları biten müşterileri arşive gönderme nedeninizi bilmiyorum ama mantıklıda bulmuyorum. Çünkü müşteri tekrar geldiğinde aynı kayıtları tekrar mı yazacaksınız. Hastanelerde öylemi?.
konuyu değerlendirin tablo yapısını yazdıklarımı göz önüne alarak düzenleyin iyi çalışmalar

Öncelikle teşekkür ediyorum . Arşiv zamanla kayıt yapılan hastaların olumsuz itiraz etme durumlarında arşivi listeden cıkararak kişilere göstermek .Tutulan kayıtları taşıyabilsem arşiv adlı bir tablo ya oda yeterli olucaktır hangi komutla o kayıtlı borcu biten müşteri taşıyabilirim bilmiyorum.

adnanyurdakul · 12-09-2012, 19:49

örneğinize arsiv isimli tablo ekledim ve formunuza arsive gönder butonu koyup kodlarını yazdım kolay gelsin

kadem · **Kayıt Tarihi:** 10.08.2012

Saolun emek verdiniz uğraştınız hakkınızı helal etmesini isticem öncelikle ;

Yaptığınız işlem ;

( Müşteri kayıt )tablosunu kopyalarak ( arsiv ) adında bir tablo oluşturmak,
daha sonra anasayfa bölümüne bir ( arsive gönder ) butonu oluşturarak aşağıdaki kodu yazdınız sanırım.

Visual Basic
Dim c As Integer
Dim sql As String
c = MsgBox("Bu kayıt Arşiv Tablosuna Gönderilecek ve Mevcut Tablodan silinecek..!Eminmisiniz?", vbOKCancel + vbQuestion, "SORU")
If c = vbOK Then
For Each adnan In Liste.ItemsSelected
tcno = Liste.Column(0, adnan)
Next
If Len(tcno) > 1 Then
sql = "INSERT INTO arsiv ( [Tc Kimlik No :], [Ad Soyad :], [Telefon No :], [Adres :], [Cinsiyet :], [Tarih :], [Ödemeler :], [Yapılacak İşlem], [Not :], [1 Taksit], [2 Taksit], [3 Taksit], [4 Taksit], [5 Taksit], [6 Taksit], [7 Taksit], [8 Taksit], [9 Taksit], [10 Taksit], [11 Taksit], [12 Taksit], [1 Tarih], [2 Tarih], [3 Tarih], [4 Tarih], [5 Tarih], [6 Tarih], [7 Tarih], [8 Tarih], [9 Tarih], [10 Tarih], [11 Tarih], [12 Tarih], Miktar, Toplam, Kalan ) " & _
"SELECT [Müşteri Kayıt].[Tc Kimlik No], [Müşteri Kayıt].[Ad Soyad :], [Müşteri Kayıt].[Telefon No :], [Müşteri Kayıt].[Adres :], [Müşteri Kayıt].[Cinsiyet :], [Müşteri Kayıt].[Tarih :], [Müşteri Kayıt].[Ödemeler :], [Müşteri Kayıt].[Yapılacak İşlem], [Müşteri Kayıt].[Not :], [Müşteri Kayıt].[1 Taksit], [Müşteri Kayıt].[2 Taksit], [Müşteri Kayıt].[3 Taksit], [Müşteri Kayıt].[4 Taksit], [Müşteri Kayıt].[5 Taksit], [Müşteri Kayıt].[6 Taksit], [Müşteri Kayıt].[7 Taksit], [Müşteri Kayıt].[8 Taksit], [Müşteri Kayıt].[9 Taksit], [Müşteri Kayıt].[10 Taksit], [Müşteri Kayıt].[11 Taksit], [Müşteri Kayıt].[12 Taksit], [Müşteri Kayıt].[1 Tarih], [Müşteri Kayıt].[2 Tarih], [Müşteri Kayıt].[3 Tarih], [Müşteri Kayıt].[4 Tarih], [Müşteri Kayıt].[5 Tarih], [Müşteri Kayıt].[6 Tarih], [Müşteri Kayıt].[7 Tarih], [Müşteri Kayıt].[8 Tarih], [Müşteri Kayıt].[9 Tarih], [Müşteri Kayıt].[10 Tarih], [Müşteri Kayıt].[11 Tarih], [Müşteri Kayıt].[12 Tarih], [Müşteri Kayıt].Miktar, [Müşteri Kayıt].Toplam, [Müşteri Kayıt].Kalan " & _
"FROM [Müşteri Kayıt] " & _
"WHERE [Müşteri Kayıt].[Tc Kimlik No]='" & tcno & "'"
CurrentDb.Execute sql
CurrentDb.Execute "Delete * from [Müşteri Kayıt] where [Tc Kimlik No]='" & tcno & "'"
Else
MsgBox "Hiç Seçim yapmadınız"
End If
Me.Liste.Requery
ElseIf c = vbCancel Then
Me.Undo
End If

Ve daha sonrasında istediğimiz sonucu elde etmiş mi oluyoruz kendim örnekleyerek bunları yapmaya çalıştım hata aldım başka yapmam gereken işlem varmıydı.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Arşivleme	onut	4	364	18-05-2025, 15:18 Son Mesaj: onut
	Dosya Arşivleme Programı	dreamt	16	14.726	12-03-2021, 11:49 Son Mesaj: onur_can
	[FORM] Belirli kayıtları arşivleme	conquerora	8	2.632	04-07-2017, 20:01 Son Mesaj: dsezgin
	[TABLO] SÜRESİ BİTEN BİR KAYIT İÇİN UYARI ALMAK...	dilcet38	7	3.269	19-06-2015, 14:54 Son Mesaj: devilspath
	Vade tarihi gelmiş müşterilerin listesi (sadece borcu olanlar)	esmerim33	4	3.331	16-10-2014, 13:34 Son Mesaj: esmerim33
	[SORGU] Ödeme hatırlatma (sadece borcu olanlar)	esmerim33	1	7.253	28-05-2013, 12:49 Son Mesaj: onur_can
	Bir mağazaya en çok borcu olan 10 müşteri	techniq	6	4.412	13-07-2011, 20:36 Son Mesaj: techniq
	Borcu Olan Müşteriyi silmeyi Engellemek	Nevzat Gürbüz	11	5.464	07-03-2010, 14:55 Son Mesaj: modalı

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL