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
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
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
    DoCmd.OpenForm FormTabloAdi, acDesign
bu kod yerine aşağıdaki kodu dener misiniz? achidden ile daha hızlı
 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ı)
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
Task