ayuda para este error, por favor!!!
Publicado por Gutiérrez (1 intervención) el 02/01/2006 11:34:05
Al convertir una base hecha en Access 97 a Access 2000, me da el siguiente error:
error de compilación:
Se ha detectado un nombre ambiguo: EliminarRegLISTAESPERA_Click
y me señala en azul la frase que aquí he señalado así :<<<<<<<<Private Sub EliminarRegLISTAESPERA_Click>>>>>>>>, para que sepáis cual es en concreto
Espero que con esto sea suficiente para que me ayudéis con el problema.
Gracias
El código es el siguiente:
Option Compare Database
Option Explicit
Private Sub EliminarRegLISTAESPERA_Click()
On Error GoTo Err_EliminarRegLISTAESPERA_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_EliminarRegLISTAESPERA_Click:
Exit Sub
Err_EliminarRegLISTAESPERA_Click:
MsgBox Err.Description
Resume Exit_EliminarRegLISTAESPERA_Click
End Sub
Private Sub EliminarRegistroListaEspera_Click()
On Error GoTo Err_EliminarRegistroListaEspera_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_EliminarRegistroListaEspera_Click:
Exit Sub
Err_EliminarRegistroListaEspera_Click:
MsgBox Err.Description
Resume Exit_EliminarRegistroListaEspera_Click
End Sub
<<<<<<<<Private Sub EliminarRegLISTAESPERA_Click>>>>>>>>()
On Error GoTo Err_EliminarRegLISTAESPERA_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_EliminarRegLISTAESPERA_Click:
Exit Sub
Err_EliminarRegLISTAESPERA_Click:
MsgBox Err.Description
Resume Exit_EliminarRegLISTAESPERA_Click
End Sub
Private Sub Comando29_Click()
On Error GoTo Err_Comando29_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Comando29_Click:
Exit Sub
Err_Comando29_Click:
MsgBox Err.Description
Resume Exit_Comando29_Click
End Sub
error de compilación:
Se ha detectado un nombre ambiguo: EliminarRegLISTAESPERA_Click
y me señala en azul la frase que aquí he señalado así :<<<<<<<<Private Sub EliminarRegLISTAESPERA_Click>>>>>>>>, para que sepáis cual es en concreto
Espero que con esto sea suficiente para que me ayudéis con el problema.
Gracias
El código es el siguiente:
Option Compare Database
Option Explicit
Private Sub EliminarRegLISTAESPERA_Click()
On Error GoTo Err_EliminarRegLISTAESPERA_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_EliminarRegLISTAESPERA_Click:
Exit Sub
Err_EliminarRegLISTAESPERA_Click:
MsgBox Err.Description
Resume Exit_EliminarRegLISTAESPERA_Click
End Sub
Private Sub EliminarRegistroListaEspera_Click()
On Error GoTo Err_EliminarRegistroListaEspera_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_EliminarRegistroListaEspera_Click:
Exit Sub
Err_EliminarRegistroListaEspera_Click:
MsgBox Err.Description
Resume Exit_EliminarRegistroListaEspera_Click
End Sub
<<<<<<<<Private Sub EliminarRegLISTAESPERA_Click>>>>>>>>()
On Error GoTo Err_EliminarRegLISTAESPERA_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_EliminarRegLISTAESPERA_Click:
Exit Sub
Err_EliminarRegLISTAESPERA_Click:
MsgBox Err.Description
Resume Exit_EliminarRegLISTAESPERA_Click
End Sub
Private Sub Comando29_Click()
On Error GoTo Err_Comando29_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Comando29_Click:
Exit Sub
Err_Comando29_Click:
MsgBox Err.Description
Resume Exit_Comando29_Click
End Sub
Valora esta pregunta
0