Verltabanındaki Nesneleri(tablo,sorguiform vs)isimlerini yeni tabloya yazmak

[uzmanbey]

Verltabanındaki Nesneleri(tablo,sorguiform vs)isimlerini nesneler adında yeni tabloya yazdırmak istiyorum

Nesne Adı Nesne Türü
xxxx Form
cccc tablo
ssss Sorgu
mmmm makro

şeklinde

 

[uzmanbey]

cevap yokmu arkadaşlar

 

[yeni54]

internette bakındım biraz ve şöyle bişeylere ulaştım.

MSysObjects adlı bir tablo var accesste. gizli. (nasıl görünür yapıldığını da sen bul artık)

bu tablo sayesinde istediğin verilere ulaşabilirsin.

 

[uzmanbey]

saygıdeğer yeni54

Form a katkıların azımsanmayacak kadar fazla
üzüldüğümü belirtmek isterim yinede ben her zaman olumlu düşünmeyi kendime şiar edindim

Diğer arkadaşlardan merak edenler olursa diye de cevap

arçalar
seçenekler
sistem neslerini seçtiğimizde bahsettiğin şeyi buluruz tablo yapma sorgusuylada tablo yapabiliriz ama nasıl onu bilmiyorum umarım yardım edersin

saygıyla kal

 

[yeni54]

yahu hemen de alınıp kırılıyorsunuz.

ya, tablo yapma sorgusu ile ilgili bir ton örnek var aslında.

hep hazır olduğu için, neyi aramamız gerektiğini bile bilmiyoruz.

daha iki örnek önce, (kuzey66 için verilen örnek) tabloya kayıt eden, tablodan kayıt silen örnek mevcut.

bu sefer örnek vermeyeceğim. o örneği incele.
yapamazsan yapamadım deme. şurada takıldım de. yardımcı olalım hep beraber.

(yine alınganlık göstermeyip şu örneği kendi başına yaparsan, gerçekten forum amacına ulaşacak. ve bu konuda bi daha foruma soru sorma gereği duymayıp,
soru soranlara yardım eder olucan.
kısa bir algoritma kuralım:
1- önce kafanda olayı canlandır. elinde neler var, neler lazım onları bir kağıda dök (mutlaka kağıda dök ama)
2- sana lazım olan verileri verecek olan sorguyu hazırla
(select ... from tablo)
3- bu verileri atmak istediğin tabloyu oluştur.
4- yukarıda hazırladığın select in başına bir insert into tablo ... ekle
5- bu kadar.
)

 

[modalı]

Sayın uzmanbey,

Bir tablo hazırlayın ve adına Table1 dey,n. Tablonun üç alanı olsun.

Id Otomatik sayı
Adı Metin
Türü Metin

Bir form hazırlayın ve bir düğüme ekleyin adı Command1 olsun. Aşağıdaki kodu formun kod sayfasına kopyalayıp yapıştırın.

Private Sub Command1_Click()
    Call ExportDatabaseObjects1
End Sub
 
 
 
Private Function ExportDatabaseObjects1()
On Error GoTo Err_ExportDatabaseObjects
 
    Dim db As Database
    'Dim db As DAO.Database
    Dim td As TableDef
    Dim d As Document
    Dim c As Container
    Dim i As Integer
    Dim qry As String
 
    Set db = CurrentDb()
 
 
 
    For Each td In db.TableDefs 'Tables
        If Left(td.Name, 4) <> "MSys" Then
           Call kay&#305;t(td.Name, "Tablo")
        End If
    Next td
 
    Set c = db.Containers("Forms")
    For Each d In c.Documents
        Call kay&#305;t(d.Name, "Form")
    Next d
 
    Set c = db.Containers("Reports")
    For Each d In c.Documents
       Call kay&#305;t(d.Name, "Rapor")
    Next d
 
    Set c = db.Containers("Scripts")
    For Each d In c.Documents
        Call kay&#305;t(d.Name, "Script")
    Next d
 
    Set c = db.Containers("Modules")
    For Each d In c.Documents
        Call kay&#305;t(d.Name, "Mod&#252;l")
    Next d
 
    For i = 0 To db.QueryDefs.Count - 1
        qry = db.QueryDefs(i).Name
        Call kay&#305;t(qry, "Sorgu")
    Next i
 
    Set db = Nothing
    Set c = Nothing
 
 
Exit_ExportDatabaseObjects:
    Exit Function
 
Err_ExportDatabaseObjects:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_ExportDatabaseObjects
 
End Function
 
Public Sub kay&#305;t(ad&#305; As String, t&#252;r&#252; As String)
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
rs.AddNew
    rs(1) = ad&#305;
    rs(2) = t&#252;r&#252;
rs.Update
rs.Close
db.Close
End Sub

İyi çalışmalar:hey:

 

[yeni54]

sayın modalı,

bu örnek makbul değil.

daha kısa ve kodsuz olanını rica edelim

(yahu, bi bıraksaydın da uzmanbey azıcık uğraşsaydı.
şimdi kopyala yapıştır yapacak. kodlara hiç bakmayacak bile.
uzmanbey alınmayın sakın şaka yaptım )

 

[modalı]

uzmanbey = serkandemirci mi?:???:

 

[yeni54]

serkandemirci kim peki?

 

[serkandemirci]

merhaba modalı ve yeni 54 uzmanbey 12 yaşındaki oğlum ellerinizden öper

bende bu sorunun cevabını bilmiyordum forma sor dedim
admin levent bey bize 1 ay hak mahrumiyeti cezası verdiğinden forma uzun zamandır giremedim başka forma da ben yazdım umarım cevap gelir oğlum bilgisyar konusunda çok iyi flash la falan oda uğraşıyor umarım yardımcı olursunuz

 

[modalı]

Sayın serkandemirci,

Umarım cevap gelir ne demek? Cevabını verdim. Daha neyi bekliyorsunuz.

İyi çalışmalar

 

[serkandemirci]

kendisi cevap versin diye ve teşekkür etsin diye(şu anda uyuyor)
modalı kardeş senin verdiğin cevap kesin doğrudur
Allah aşkına bu kadar şeyi nerden biliyorsun bıkıp usanmadan herkese cevap veriyorsun yüreğine beynine sağlık

 

[uzmanbey]

Saygıdeğer Modalı

Gerçektende Problem çözüldü kodları anlmaya çalışıyorum

çook teşekkür edrim