06/04/2024, 12:01
(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