AccessTr.neT

(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..

Sayın ercansahin;

İyi akşamlar ve katkınız için teşekkür...

deneyin lütfen...

(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...

4'üncü mesajın eklentisini tekrar incelermisiniz.

Bende sorun yok çalışıyor...