Açılan Kutu (Ekleme;Çıkarma) İşlemi

Açılan Kutu (Ekleme;Çıkarma) İşlemi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Kutu (Ekleme;Çıkarma) İşlemi (/konu-acilan-kutu-ekleme-cikarma-islemi.html)

Sayfalar: 1 2

Cvp: Açılan Kutu (Ekleme;Çıkarma) İşlemi - Redgreen - 05/12/2008

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.

Cvp: Açılan Kutu (Ekleme;Çıkarma) İşlemi - KCMZ - 09/12/2008

BU ÖRNEK SAYESİNDE YENİ BİR ŞEY DAHA ÖĞRENDİM
EMEK VERENLERİN ELLERİNE SAĞLIK

Cvp: Açılan Kutu (Ekleme;Çıkarma) İşlemi - ozanakkaya - 11/12/2008

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

Cvp: Açılan Kutu (Ekleme;Çıkarma) İşlemi - Redgreen - 11/12/2008

Teşekür ederim sayenizde yaptım...

Cvp: Açılan Kutu (Ekleme;Çıkarma) İşlemi - ozanakkaya - 11/12/2008

rica ederim, kilit+arşiv