Access 1 Formdan Tablolara Veri Gönderimi

(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

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