Skip to main content

AccessTr.neT


Buton İle Şablondan Yeni Form Oluşturup Tabloya Bağlama?

Buton İle Şablondan Yeni Form Oluşturup Tabloya Bağlama?

Çözüldü #1
Merhaba arkadaşlar.

Ekteki uygulamada yeni ay ekle dediğimizde yeni bir şablona uygun yeni tablo oluşturuyor. Aynı zamanda şablon form baz alarak yeni formda oluşturabilir miyiz? Tabii oluşan form ve oluşan tabloya bağlı olacak şekilde.

Teşekkürler.
.rar Database4141414141.rar (Dosya Boyutu: 28,94 KB | İndirme Sayısı: 2)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#2
her tablo için neden yeni form oluşturmak istiyorsunuz?
zaten formların kaynağını değiştirerek de kullanabilirsiniz aslında her ay için farklı bir tabloya da gerek var mı onu da merak ediyorum
ama aşağıdaki kodların işinize yarayacağını düşünüyorum
önce yeni bir alt yordam oluşturup ekliyoruz

Visual Basic Code
Sub YeniForm(FormTabloAdi As String)
Dim frm As Form
    DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "tablo_sablon", FormTabloAdi, True
    DoCmd.CopyObject CurrentDb().Name, FormTabloAdi, acForm, "mutabakat_formu_sablon" 'şablon formu kopyala
    DoCmd.OpenForm FormTabloAdi, acDesign, , , , acHidden

    Set frm = Forms(FormTabloAdi)
        frm.RecordSource = FormTabloAdi
    DoCmd.Close acForm, frm.Name, acSaveYes
End Sub

sonra da buton7nin tıklanma olayını aşağıdaki kodla değiştiriyoruz

Visual Basic Code
Dim AyAdi As String

AyAdi = InputBox("Ay Yaz")
AyAdi = "Ayl_" & AyAdi
    YeniForm AyAdi
Me.Acilan_Kutu5.Requery

dosya 5. mesajdadır

Cevapla
#3
Teşekkürler.. tek ben kullanmayacağım için diğer arkadaşlara kolaylık olması bakımından böylesi geldi aklıma. daha pratik bi yol bulamadım malesef

her ay için farklı olması olayıda yedek gibi istediğimizde o aya gidip duruma bakmak içindi. dediğim gibi daha pratik bi yol yada uygulama bulamadım.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 07/08/2020, 17:36, Düzenleyen: derzulya.
Cevapla
#4

Visual Basic Code
    DoCmd.OpenForm FormTabloAdi, acDesign

bu kod yerine aşağıdaki kodu dener misiniz? achidden ile daha hızlı

Visual Basic Code
 DoCmd.OpenForm FormTabloAdi, acDesign, , , , acHidden

15 lik döngü kurduğumda daha hızlı çıktı

Cevapla
#5
YeniForm altyordamının kodu (daha hızlı)

SQL Code
Sub YeniForm(FormTabloAdi As String)
    
    DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "tablo_sablon", FormTabloAdi, True
    DoCmd.CopyObject CurrentDb().Name, FormTabloAdi, acForm, "mutabakat_formu_sablon" 'şablon formu kopyala
    DoCmd.OpenForm FormTabloAdi, acDesign, , , , acHidden
    
    Forms(FormTabloAdi).RecordSource = FormTabloAdi
    DoCmd.Close acForm, FormTabloAdi, acSaveYes

End Sub

.rar FormTabloYaratBagla_hy2.rar (Dosya Boyutu: 22,95 KB | İndirme Sayısı: 6)
Cevapla
#6
Teşekkür ederim. Ancak yeni oluşturduğumuz tabloya eklediğimiz veriler yeni oluşan formda neden görünmez? Sadece şablona eklenenler mi görünür?
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da