Skip to main content

AccessTr.neT M.


Yazar: SeferŞANLI
30/03/2020, 22:24
Arşivimde bir zamanlar indirdiğim Kod Bankası var.
.rar CodeBank v1.1.rar (Dosya Boyutu: 2,95 MB | İndirme Sayısı: 20)
Yazar: accessman
28/03/2020, 12:50
Az önce deneme yanılma yoluyla keşfettim Eğer Open olayına şu kod ile buton gizleme yaparsanız sonuç alamazsınız

Visual Basic Code
Private Function isVisibleControl(tagname As String, deger As Boolean) As Boolean
On Error GoTo Err_hata
    Dim result As Boolean
    result = False

    Dim ctl As Control
    For Each ctl In Me.Form
        If InStr(1, ctl.Tag, tagname) <> 0 Then
            If (ctl.ControlType = acCommandButton) Then
                ctl.Visible = deger
            End If
        End If
    Next ctl
    Set ctl = Nothing

    result = True

Exit_kod:
    isVisibleControl = result
    Exit Function

Err_hata:
    result = False
    MsgBox Err.Description
    Resume Exit_kod

End Function

çünkü open olayında daha butonlar falan daha yüklenmiş değil
onun için bu kodu "Current" olayına yazmanız lazım

Yazar: feraz
22/03/2020, 17:03
Merhaba.

Gifteki gibi olay.isteyen inceleyebilir.Onur_can hocanın yardımıyla nihayyete erdi dosya.

[Resim: do.php?img=9925]
.rar class Textbox change olayi.rar (Dosya Boyutu: 81,73 KB | İndirme Sayısı: 9)
Yazar: accessman
21/03/2020, 19:22

Visual Basic Code
        Dim say As Long
        Dim w As Long
        Dim deger As Double
        Dim yuzde As Double
        Dim lastInt As Integer
        Dim son As Integer
        lastInt = 0
        w = Me.pb_cerceve.Width
        
        For say = 1 To 10000
        
            deger = say * w / son
            yuzde = say * 100 / son
            
            If (Int(yuzde) <> lastInt) Then
                lastInt = Int(yuzde)
                Call RunProgressBar(Me.pb_item, deger)
                Me.pb_lbl.Caption = "Veriler Güncelleniyor... % " & Int(yuzde)
            End If
        
        Next

Hoşgeldin, Ziyaretçi

Sitemizden yararlanabilmek için Kayıt olmalısınız.

Forum İstatistikleri

Toplam Üyeler: 110.142
Son Üye: aldanma35
Toplam Konular: 21.320
Toplam Yorumlar: 156.867

Kimler Çevrimiçi

Toplam: 60 kullanıcı aktif AhrefsBot, Applebot, Bing Bot, CommonCrawl, Google Bot, Mediapartners, SemrushBot, YandexBot, majestic12, trendictionbot, accessman, alican60, apolet, aydin54, berduş, magokmen, osmannu
7 Kayıtlı
» 43 Ziyaretçi

Son Aktiviteler

Müteselsil Sipariş Numara...

Son Yorum: kanakan52 30 dakika önce
Yorumlar: 25 Okunma: 235

Ado Kayıt Etme Sisteminde...

Son Yorum: accessman 3 saat önce
Yorumlar: 2 Okunma: 37

Formdan Word Dosyasına Ak...

Son Yorum: suayip 5 saat önce
Yorumlar: 3 Okunma: 61

Veri Ara Bul

Son Yorum: yyhy 10 saat önce
Yorumlar: 14 Okunma: 145

Farklı Tablolardaki Veriy...

Son Yorum: mgunes Dün, 22:07
Yorumlar: 4 Okunma: 101