UNA AYUDITA POR FAVOR
Publicado por VIZA (46 intervenciones) el 29/07/2009 23:51:23
Hola chicos, tengo este codigo:
Option Compare Database
Private Sub Imagen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Imagen.Picture = CurrentProject.Path & "A0.bmp"
End Sub
Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Imagen.Picture = CurrentProject.Path & "A3.bmp"
End Sub
Private Sub Imagen_Click()
On Error GoTo Err_Comando0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Formulario1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
el cual la utilidad que tiene es para superponer una imagen con otra. Bien pues lo que no me aclaro mucho es que cuando quiero poner otra imagen diferente y que realice la misma funcion, lo que ocurre es que cuando paso el mouse por encima me hacen la misma funcion las dos.
GRACIAS.
Option Compare Database
Private Sub Imagen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Imagen.Picture = CurrentProject.Path & "A0.bmp"
End Sub
Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Imagen.Picture = CurrentProject.Path & "A3.bmp"
End Sub
Private Sub Imagen_Click()
On Error GoTo Err_Comando0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Formulario1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
el cual la utilidad que tiene es para superponer una imagen con otra. Bien pues lo que no me aclaro mucho es que cuando quiero poner otra imagen diferente y que realice la misma funcion, lo que ocurre es que cuando paso el mouse por encima me hacen la misma funcion las dos.
GRACIAS.
Valora esta pregunta


0