Skip to main content

AccessTr.neT


Saydam Buton Nasıl Oluşturulur?

Saydam Buton Nasıl Oluşturulur?

Çözüldü #7
(03/04/2010, 16:59)ercansahin yazdı: Bu düğmenin tıklandığında olayına
Kod:
DoCmd.OpenForm "Form Adı"
yazın ve deneyin. yalnız bu şekilde hata denetimleri yaptırmadan doğrudan formunuzu açtırmaktasınız. Hata denetimli olmasını isterseniz de
Kod:
Private Sub Saydam_Click()
On Error GoTo Err_Saydam_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Form Adı"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Saydam_Click:
    Exit Sub
Err_Saydam_Click:
    MsgBox Err.Description
    Resume Exit_Saydam_Click
End Sub


Kod içerisinde kullanılan "Saydam" düğmenizin adı olacak. Kolay gelsin.

Çok Teşekkür ederim o sorunumuda çözdüm müsadenizle 1 sorum daha olacak etiketleri koydum görevleri verdim etiket rengi siyah üzerine geldiğimde beyaz oluyor ama yazı pek okunmuyor buna aynı zamanda arkaplan rengi de ekleyebilir miyim? Yani siyah yazı üstüne geldiğimde yazı rengi beyaz arkaplan rengi kızmızı olsun yazı rengini yaptım ama arkaplan işini çözemedim o konuda da yardımcı olursanız sevinirim..
Cevapla
Çözüldü #8
Sayın ercansahin;

İyi akşamlar ve katkınız için teşekkür...
Cevapla
Çözüldü #9
Kod:
Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Etiket0.ForeColor = 0
    Me.Etiket0.BorderColor = 0
    Me.Etiket0.BackColor = -2147483633
End Sub

Private Sub Etiket0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.Etiket0.ForeColor = 16777215
   Me.Etiket0.BorderColor = 255
   Me.Etiket0.BackColor = 255
End Sub

deneyin lütfen...
Cevapla
Çözüldü #10
(03/04/2010, 21:06)ercansahin yazdı:
Kod:
Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Etiket0.ForeColor = 0
    Me.Etiket0.BorderColor = 0
    Me.Etiket0.BackColor = -2147483633
End Sub

Private Sub Etiket0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.Etiket0.ForeColor = 16777215
   Me.Etiket0.BorderColor = 255
   Me.Etiket0.BackColor = 255
End Sub

deneyin lütfen...
Denedim Ama Hata verdi...
.rar hata.rar (Dosya Boyutu: 16,64 KB | İndirme Sayısı: 5)
Son Düzenleme: 04/04/2010, 11:38, Düzenleyen: ZaNzArA.
Cevapla
Çözüldü #11
4'üncü mesajın eklentisini tekrar incelermisiniz.
Cevapla
Çözüldü #12
Bende sorun yok çalışıyor...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task