AccessTr.neT

Tam Versiyon: Açılan Kutu (Ekleme;Çıkarma) İşlemi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Private Sub calistigisirket_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Etiket778.Visible = True
End Sub

Private Sub Form_GotFocus()
Me.Etiket778.Visible = True
End Sub

Private Sub Form_Load()
Me.Etiket778.Visible = False
End Sub


Private Sub calistigibolge_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Etiket777.Visible = True
End Sub

Private Sub Form_GotFocus()
Me.Etiket777.Visible = True
End Sub

Private Sub Form_Load()
Me.Etiket777.Visible = False
End Sub


İkinci bir tane olay eklediğimde (yeni firma eklemek için çift tıklayın) aşağıdaki hata mesajını veriyor. birini silip kullandığımda çalışıyor. Bu kodlar tek yer için yazılmış olabilirmi.Eklemem gereken kodmu var.

Hata Mesajı : Olay özellik deyimi ayarı olarak girdiğiniz Fare taşındığında deyimi hataya neden oldu:Ambigious name detecdet : Form_Got Focus

Saygılar
MG

Ben başka türlü hallettim.Gerek kalmadı herşey için teşekür ederim.
BU ÖRNEK SAYESİNDE YENİ BİR ŞEY DAHA ÖĞRENDİM
EMEK VERENLERİN ELLERİNE SAĞLIK
Private Sub Form_GotFocus() ve
Private Sub Form_Load()

ikinci bölge için aynı kodu tekrar yazmışsın, Aynı olay iki kere yazılmaz. Aşağıdaki kodu dene

Private Sub calistigisirket_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Etiket777.Visible = False
Me.Etiket778.Visible = True
End Sub

Private Sub Form_GotFocus()
Me.Etiket777.Visible = True
Me.Etiket778.Visible = True
End Sub

Private Sub Form_Load()
Me.Etiket777.Visible = False
Me.Etiket778.Visible = False
End Sub

Private Sub calistigibolge_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Etiket777.Visible = True
Me.Etiket778.Visible = False
End Sub
Teşekür ederim sayenizde yaptım...
rica ederim, kilit+arşiv
Sayfalar: 1 2