İYİ AKŞAMLAR ACCESSTR.NET AİLESİ

BENİM YAPMAK İSTEDİĞİM 
1. ACCESSDE BİR ÖRNEK MÜŞTERİ VE FİRMA TABLOSU OLUŞTURDUM
MÜŞTERİ VEYA FİRMA EKLERKEN BU ÖRNEK MÜŞTERİ VE FİRMA TABLOLARINI KOPYALAYIP O FİRMA VE MÜŞTERİ İSMİNDE YENİ TABLO OLUŞTURMAK. ÇÜNKÜ HER MÜŞTERİ VEYA FİRMA EKLERKEN TABLO OLUŞTURMAK İSTEMİYORUM. 2 NUMUNE TABLOM VAR BUNKARI KOPYALAYIP TEXTBOXLA OTO İSİM DEĞİŞTİRİP OLUŞTURMAK İSTİYORUMMM.
2. BİR TANE GİRİŞ FORMUM VAR BU GİRİŞ FORMUMDAN 3 FARKLI TABLOYA VERİ GÖNDEREBİLİRMİYİM.
MESELA COMBOBOX1 A KİŞİSİ SEÇİLİ CMBX2 AFİRMASI CBMX3 BFİRMASI SEÇİLİ TEK VERİ BU 3 CMBBX.TEXT TABLOLARINA GİDECEK
EXCELDE İSTEDİĞİM GİBİ BİR SİSTEM YAPTIM AMA EXCELDE VERİ KAYBI ÇOK BASİT OLABİLİYOR ACCESSE GÖRE BUDA BENİM İÇİN ÇOK CİDDİ BİR SORUN
YAPILMAMASI GEREKEN ÖLÜMCÜL HATALARIDA DETAYLI İNCELEDİM SADECE HIZLICA BİR ÖRNEK OLUŞTURUP SİZİN FİKRİNİZİ ALMAK İSTEDİM
CEVAPLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLERR...

Neden her müşteri ve firma için ayrı tablolara ihtiyacınız var?

(28/03/2024, 04:58)berduş yazdı: Neden her müşteri ve firma için ayrı tablolara ihtiyacınız var?

Çünkü üreticilerden gün gün meyve alıp sezon sonunda toplu ödüyorum.. Bi tür aslında veresiye programı gibi olsun istiyorum . Firmalarada ben gün gün gönderiyorum bende onlardan sezon sonunda toplu alıyorum

bir tane müşteri bir tane de firma tablosu olur bütün firmalar ve müşteriler ilgili tablolara eklenir veriler de oradan çekilir.

(29/03/2024, 13:08)berduş yazdı: bir tane müşteri bir tane de firma tablosu olur bütün firmalar ve müşteriler ilgili tablolara eklenir veriler de oradan çekilir.

teşekkürler...
Başka tavsiyesi olan var mı arkadaşlar izleyebileceğim yol için

ben firmalar için yaptım isterseniz benzer kodu müşteriler için de uyarlayıp kullanabilirsiniz?
firmalar formundaki düğmenin tıklanma olayı
Metin2; firma adı yani tablo ismi girilecek metin kutusu
FIRMAORNEK; şablon olarak kullanılacak firmalar tablosunun adı

If Len(Me.Metin2 & "") = 0 Then MsgBox "Firma adını girmediniz!!!": Exit Sub

If DCount("[Name]", "MSysObjects", "[Name] = '" & Me.Metin2 & "'") = 1 Then

    MsgBox "Firma Mevcut"

Else

    xSQL = "SELECT * INTO [" & Me.Metin2 & "] FROM [FIRMAORNEK] where 1=0"

    CurrentDb.Execute xSQL



End If