Form ve Raporlardaki tüm kontrollere kod ile müdahele edilebilir mi ?
Tarih
18/06/2009 18:52
Konu Sahibi
mehmeser
Yorumlar
6
Okunma
2089
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mehmeser
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
Sponsor Reklam
Merhaba,

elimizdeki veritabanında form ve raporlardaki tüm metin kutularının ve etiketlerin değerini değiştirebilir miyiz ?

bunu başka bir formdan komut ile başlatmalı ve kod sırayla tüm rapor ve formları açmalı ve adı istediğimiz değerle başlayan nenselerin değerini vereceğimizle değiştirmeli ve onları kapatmalı.

Mesela form ve raporlarda bir etiketin adı lbl_Kurum ise biz de diyelim lbl_Kurum ile başlayan tüm etiket ve metin kutularının değerini değiştirebilelim.

Yani bir yönetici özelliği sayesinde toplu değişiklik yapmak.

Bende farklı oalrak tüm form ve raporlar girip onların araç çubuğu özelliklerini değiştiren bir kod var.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Sub SetReportToolbars()
Dim objRpt As AccessObject, rpt As Report
    ' Go through every report in the database
    For Each objRpt In CurrentProject.AllReports
        ' If a main report but not a sample "plain" report, then...
        If (Left(objRpt.Name, 3) = "rpr") And (Right(objRpt.Name, 5) <> "Plain") Then
            ' Open the report in design view
            DoCmd.OpenReport ReportName:=objRpt.Name, View:=acDesign
            ' Set a pointer to the report we just opened
            Set rpt = Reports(objRpt.Name)
            ' Clear any saved filter
            rpt.Filter = ""
            ' Set the custom menu bar
            rpt.MenuBar = "RaporYazdirMenu"
            ' Set the custom tool bar
            rpt.Toolbar = "RaporToolbox"
            ' Set the custom shortcut menu bar
            rpt.ShortcutMenuBar = ""
            ' Save the result
            DoCmd.Save
            ' Close the report
            DoCmd.Close acReport, objRpt.Name
        End If
    ' Get the next report
    Next objRpt
    ' Clean up
    Set objRpt = Nothing
    Set rpt = Nothing
End Sub


Teşekkürler.

Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.737
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
09/01/2017,15:21
Çözüldü 
Sayın mehmeser
Ben tam olarak anlayamadığımdan soruyorum, siz soru mu sordunuz yoksa örnek bilgi mi verdiniz?. Eğer soru sorduysanız sanırım sorunuzun çözümüyle ilgili bir de fikir vermesi için kod yayınladınız.

Doğru mu?
İnadına, ille de Accesstr.net...
Cevapla

mehmeser
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
Sponsor Reklam
Evet aslında her sorduğumda bir parça bilgi oluyor farkında olmadan. Bazen sorarken bir bildiğimi söyleyip farklı bir açıdan yorumunu istiyorum.

Verdiğim kodu aktif olarak kullanıyorum ve sorunsuz. Benim istediğim ise bu kodla aynı mantıkla rapor ve formların bir özelliğini değil de içindeki nesnelerin metin değerlerini değiştirmek bir karar yapısıyla. Hani For each gibisinden toplu işlemler yapılabiliyor nesneler üzerinde.

Evet, örnek kod verdim, başka bir yöntem arıyorum.
Cevapla

Bilgisayarcı
Atçalı
Kullanici Avatari
Onursal
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Verdiğiniz biraz bilgiyi kullanayım ben o zaman müsadenizle.
Bu kod belirli bir ada sahip raporu tarayıp buluyor. Ve bunu bir değişkene atıyor

Kod:
set rpt = Reports(objRpt.Name)


Tam bu noktada girersem ben bilgiye sanırım çözümü yakalarım.
Yukarıda bi tane control tanımlarım.

Kod:
Dim c as control 
For each c in rpt
  if c.controltype= aclabel then c.caption="Egemen"
next


Bu tüm etiketlerin caption değerini egemen yapar.
Ama burada sizin de farkettiğiniz gibi bir sorun var. Caption değerine atanacak bilgi nereden gelecek? control'un adı ve caption değeri ( sanırım dil destekli bir numara peşindeyiz) farklı dillerde bir tabloda tutulursa burdan çekilebilir.

İlginç bir soru aslında. Üstüne çalışılabilir.

Controller üzerinde daha geniş kod örnekleri için daha önce attığım animasyon örneklerine bakabilirsiniz... Oralarda formu'da parametre olarak alıp üstünde işlemler yaptırmıştım...

Not: Yukarıdaki kodları sadece buraya yazdım. Access üzerinde denemesini yapmadım. Bir örnek gönderirseniz üzerinde de çalışırız

Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla

mehmeser
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
Sponsor Reklam
Yapılacak işlemde hem dediğiniz gibi dil değişebilir hem de bir uygulamada sonradan toplu metin işleme programlarında olduğu gibi komple değişimler yapılabilir.

Aslında bu geliştirilen uygulama için yönetim panelinde olacak. form ve raporlara üst ve alt bilgilerine müdahele için düşünüldü.

Aslında zaten bu olay formun kirlide olayında tüm düğmeleri pasif yapmak için kullanılıyor. eğer kirliyse tüm düğmeleri gizle değilse hepsini aç. Örnek alison Balter'in kitabında var.

Zamanım olmadığından uğraşamadım. Aslında yukardaki kodu değiştirmek yetecek gibi.

Sağlıcakla.
Cevapla

Bilgisayarcı
Atçalı
Kullanici Avatari
Onursal
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Yani? Çözümü aldık mı?
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 300 08/12/2016, 21:40 alpeki99
  Form da Cari Koda Göre Form Çağırma cagatay1234 5 225 10/10/2016, 11:05 atoz112
  Form içine form butonları ekleme IceMan7 7 579 26/07/2016, 11:44 IceMan7
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 855 13/05/2015, 01:26 serif_28
Çözüldü ana form kayıt ve alt form veri güncelleme bulenttum 7 3.194 11/01/2015, 22:21 hakanuss


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya