(03/04/2024, 00:10)berduş yazdı: 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

Kodu Seç

Kodu Kopyala

teşekkürler.
iyi çalışmalar dilerim. konuyu taşıyabilirsiniz