Ptrsafe li halini ekledim
Arşivimde bir zamanlar indirdiğim Kod Bankası var.
Az önce deneme yanılma yoluyla keşfettim Eğer Open olayına şu kod ile buton gizleme yaparsanız sonuç alamazsınız
onun için bu kodu "Current" olayına yazmanız lazım
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ğilonun için bu kodu "Current" olayına yazmanız lazım
Merhaba.
Gifteki gibi olay.isteyen inceleyebilir.Onur_can hocanın yardımıyla nihayyete erdi dosya.
Gifteki gibi olay.isteyen inceleyebilir.Onur_can hocanın yardımıyla nihayyete erdi dosya.
Hoşgeldin, Ziyaretçi
Forum İstatistikleri
Kimler Çevrimiçi
Şu anda 55 aktif kullanıcı var.
AdsenseBot, AhrefsBot, Bing Bot, Google Bot, PetalBot, SemrushBot, Sogou, Sogou web spider, Trendiction, YandexBot, majestic12
(0 Üye - 44 Ziyaretçi)
Son Yazılanlar
Access Html Gantt Chart
Yorum
2
•
Okunma
158
Site Ve Apartman Yönetim ...
Yorum
23
•
Okunma
8.139
Ms Access Gantt Chart
Yorum
0
•
Okunma
69