** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Error 5
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoError 5

 Responder Responder Página  <12
Autor
Mensaje
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 9763
Enlace directo a este mensaje Enviado: 29/Noviembre/2017 a las 20:29
Dos cosas:

1- Postea el procedimiento completo, ... llevamos años con la bola de cristal estropeada y no conozco otra manera de adivinar lo que tienes escrito

2- Antes de la SELECT CASE pon un Msgbox Control.Id y comprueba el valor que da


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 916
Enlace directo a este mensaje Enviado: 29/Noviembre/2017 a las 21:09
El valor del msgbox es:
"btnRegisIva"

Y el procedimiento esta retahila:

Sub OnActionButton(Control As IRibbonControl)
    ' Devolución de llamada en el fichero XML para la accion "onAction"
    ' Devolución de llamada para el botón al evento click
   Dim x As Variant
   ' On Error GoTo Cancel_Open
    MsgBox Control.Id
    Select Case Control.Id
   
        'ADMINISTRADOR
        Case "btnNewEmpre"
            DoCmd.OpenForm "AltaEmpresa"
        Case "btnDatosAdmin"
            DoCmd.OpenForm "Empresa"
        'EMPRESA
        Case "btnRegisComuni"
            DoCmd.OpenForm "Empresa"
      
       
        Case "btnRegisCtasPropias"
            DoCmd.OpenForm "AltaCtasInm"
         Case "btnConsuCtasPropias"
            DoCmd.OpenForm "CtasInmList"
      
       
        Case "btnRegisBienes"
            DoCmd.OpenForm "Activos"
        Case "btnConsuBienes"
            DoCmd.OpenForm "BienesInverxConta"
       
      
       
       'CLIENTES
        Case "btnRegisPropie"
            DoCmd.OpenForm "ClienGene"
        Case "btnConsuPropie"
            DoCmd.OpenForm "ClienGeneList"
        Case "btnRegisClien"
            DoCmd.OpenForm "AltaClienActiv"
        Case "btnConsuClien"
            DoCmd.OpenForm "ClienActivList"
       
        'PROVEEDORES
        Case "btnRegisProv"
            DoCmd.OpenForm "ProveGene"
        Case "btnProvTodos"
            DoCmd.OpenForm "ProveGeneInmList"
        Case "btnTraspasaProv"
            DoCmd.OpenForm "AltaProvActiv"
        Case "btnProvComuni"
            DoCmd.OpenForm "ProveInmList"
      
        Case "btnProvRefer"
            DoCmd.OpenForm "ReferxProve"
       
        'BANCOS
        Case "btnRegisBco"
            DoCmd.OpenForm "AltaBcos"
        Case "btnConsuBco"
            DoCmd.OpenForm "AltaBancos"
       
        Case "btnRegisBcoPropie"
            DoCmd.OpenForm "BcosEmpresa", , , , acFormAdd
        Case "btnConsuBcoPropie"
            DoCmd.OpenForm "BancosEmpreList"
       
        Case "btnRegisIVA"
            DoCmd.OpenForm "IvaTipos"
        Case "btnRegisFormaPago"
            DoCmd.OpenForm "FormasPago"
      
       
        'FACTURAS EMITIDAS
        Case "btnAutoFtras"
            DoCmd.OpenForm "GeneFtrasAuto"
        Case "btnManuFtras"
            DoCmd.OpenForm "Ftras"
        Case "btnManuTicket"
            DoCmd.OpenForm "FtrasTicket"
       
        Case "btnConsuFtras"
            DoCmd.OpenForm "FtrasList"
        Case "btnDetaFtrasClien"
            DoCmd.OpenForm "DetalleFtrasxClien"
        Case "btnDetaFtrasCta"
            DoCmd.OpenForm "DetalleFtrasxCta"
        Case "btnCtasMes"
            DoCmd.OpenForm "CeptosFactuxMes"
        Case "btnCtasClien"
            DoCmd.OpenForm "FtrasClienxMes"
        Case "btnFtrasPtes"
            DoCmd.OpenForm "FtrasPteCobro"
           
        Case "btnIvaFtras"
                DoCmd.OpenForm "IvaReper"
       
        Case "btnVtosPtesFtra"
            DoCmd.OpenForm "VtosPtesxFtra"
        Case "btnVtosPtesClienMes"
            DoCmd.OpenForm "VtosPtesPropiexMes"
        Case "btnVtosFtrasFinPerio"
            DoCmd.OpenForm "VtosPtesFinConta"
        Case "btnVtosTotFtrasFinPerio"
            DoCmd.OpenForm "VtosTotPteFinConta"
        Case "btnVerSinVto"
            DoCmd.OpenForm "FtrasSinVto"
        Case "btnVerPtesClienFtra"
            DoCmd.OpenForm "FtrasPtesFinContaSinVto"
        Case "btnVerPtesClienTotal"
        DoCmd.OpenForm "FtrasPtesTotFinContaSinVto"
       
       
       
        'Case "btnResuCeptos"
        '    DoCmd.OpenForm "VtosDeven"
       
        Case "btnRdoFtra"
            DoCmd.OpenForm "RdoFactu"
        Case "btnConsuIngre"
            DoCmd.OpenForm "IngreInmxCta"
       
        'FACTURAS RECIBIDAS
        Case "btnRegisFtrasRec"
            DoCmd.OpenForm "FtrasRec"
        Case "btnConsuFtrasRec"
            DoCmd.OpenForm "FtrasRecxFecha"
        Case "btnDetaFtrasRecProve"
            DoCmd.OpenForm "DetalleFtrasRecxProve"
        Case "btnDetaFtrasRecCta"
            DoCmd.OpenForm "DetalleFtrasRecxCta"
        Case "btnCtasMesProve"
            DoCmd.OpenForm "CeptosFactuRecxMes"
        Case "btnCtasProve"
            DoCmd.OpenForm "FtrasProvexMes"
        Case "btnFtrasRecPtes"
            DoCmd.OpenForm "FtrasPtePago"
       
        Case "btnIvaFtrasRec"
                DoCmd.OpenForm "IvaSopor"
       
        Case "btnVtosPtesFtraRec"
            DoCmd.OpenForm "VtosPtesxFtraRec"
        Case "btnVtosPtesProveMes"
            DoCmd.OpenForm "VtosPtesAcrexMes"
        Case "btnVtosFtrasRecFinPerio"
            DoCmd.OpenForm "VtosRecPtesFinConta"
        Case "btnVtosTotFtrasRecFinPerio"
            DoCmd.OpenForm "VtosRecTotPteFinConta"
        Case "btnVerSinVtoProve"
            DoCmd.OpenForm "FtrasRecSinVto"
        Case "btnVerPtesProveFtra"
            DoCmd.OpenForm "FtrasRecSinVtoPtesFinConta"
        Case "btnVerPtesProveTotal"
            DoCmd.OpenForm "FtrasRecSinVtoPtesTotFinConta"
       
      
       Case "btnGtos"
            DoCmd.OpenForm "GtosxConta"
      
       'RECIBOS
        Case "btnMandaForm"
            Call AbrirArchivoEnSuAplicacion(CurrentProject.Path & "\Imagenes\Mandato_Basico.pdf")
       Case "btnMandaPropie"
            DoCmd.OpenForm "Mandato"
       Case "btnRegisCeptos"
            DoCmd.OpenForm "CeptosGeneReci"
       Case "btnRegisCeptosInm"
            DoCmd.OpenForm "CeptosInmReci"
        Case "btnRegisReci"
            DoCmd.OpenForm "GeneraReci"
        Case "btnConsuReci"
            DoCmd.OpenForm "RecibosList"
        Case "btnCobroReci"
            DoCmd.OpenForm "CobroRecixPropie"
        Case "btnImpaTodos"
            DoCmd.OpenForm "RecibosImpaxPropie"
        Case "btnImpaPredio"
            DoCmd.OpenForm "ImpagadosxPredio"
        Case "btnImpaPredioMes"
            DoCmd.OpenForm "ImpagosPredioxMes"
        Case "btnImpaPropie"
            DoCmd.OpenForm "ReciNegaPropiexMes"
        Case "btnImpaPropieMes"
           
        Case "btnRegisDevol"
            DoCmd.OpenForm "RecibosDevueltos"
        Case "btnConsuDevol"
            DoCmd.OpenForm "ReciDevxBco"
        Case "btnModiDevol"
            DoCmd.OpenForm "ReciDevxConta"
        Case "btnDevolD19"
            DoCmd.OpenForm "DevolN19"
        Case "btnAsigReci"
            DoCmd.OpenForm "RecibosConserje"
        Case "btnCobrarReci"
            DoCmd.OpenForm "ReciCobroConserje"
        Case "btnPendientes"
            DoCmd.OpenForm "ReciPteConserjexMes"
        Case "btnConsuConserje"
            DoCmd.OpenForm "ReciConserjeList"
        Case "btnLiquiConserje"
            DoCmd.OpenForm "LiquiConserje"
       'REMESAS
        Case "btnRegisReme"
            DoCmd.OpenForm "Remesas"
        Case "btnContaReme"
            DoCmd.OpenForm "ContaReme"
        Case "btnConsuReme"
            DoCmd.OpenForm "RemesasxFecha"
        Case "btnListaReme"
            DoCmd.OpenForm "RemesasList"
        Case "btnRemeQ19"
            DoCmd.OpenForm "CSB19"
        Case "btnRdoReme"
            DoCmd.OpenForm "RdoReme"
        'PAGOS
        Case "btnRegisTransfer"
            DoCmd.OpenForm "TransferBco"
      
       'CAJAS
        Case "btnRegisCajas"
            DoCmd.OpenForm "CajasEmpresa"
        Case "btnSaldosCajas"
            DoCmd.OpenForm "SaldosxCaja"
        Case "btnRegisMovCajas"
            DoCmd.OpenForm "CajaRegisMovi"
        Case "btnConsuCajas"
            DoCmd.OpenForm "ApuntesCaja"
        Case "btnImportaCajas"
            DoCmd.OpenForm "Cajas_Excel"
       Case "btnRegisObras"
            DoCmd.OpenForm "Obras"
       Case "btnConsuObras"
            DoCmd.OpenForm "ObrasList"
           
       Case "btnRegisPtos"
            DoCmd.OpenForm "Obras_Ptos"
   
    'GESTION ALMACEN
        Case "btnRegisAlma"
            DoCmd.OpenForm "AltaAlma"
        Case "btnRegisFami"
            DoCmd.OpenForm "AltaFamiArti"
        Case "btnConsuFami"
            DoCmd.OpenForm "FamiArtiList"
        Case "btnRegisSubFami"
            DoCmd.OpenForm "AltaSubFamiArti"
        Case "btnConsuSubFami"
            DoCmd.OpenForm "SubFamiArtiList"
           
        Case "btnRegisArti"
            DoCmd.OpenForm "AltaArtixActiv"
        Case "btnConsuArti"
            DoCmd.OpenForm "ArtixActivList"
        Case "btnReferArti"
            DoCmd.OpenForm "ReferArtixProve"
        Case "btnArtiFtra"
            DoCmd.OpenForm "ArtixFtras"
        Case "btnArtiClien"
            DoCmd.OpenForm "VtasArtixClien"
        Case "btnPVPArtiClien"
            DoCmd.OpenForm "PreciosArtixClien"
        Case "btnReferDupliArti"
            DoCmd.OpenForm "ArticuloReferDuplica"
        Case "btnRegisEntraPedido"
            DoCmd.OpenForm "PedidosCompra"
        Case "btnRegisEntraAlba"
            DoCmd.OpenForm "AlbaranCompra"
        Case "btnConsuEntraAlba"
            DoCmd.OpenForm "AlbaRecxFecDes"
           
           
        Case "btnConsuEntraArti"
            DoCmd.OpenForm "EntradasAlma"
        Case "btnRegisSalePedido"
            DoCmd.OpenForm "PedidosVtas"
        Case "btnRegisAlbaSalePedido"
                DoCmd.OpenForm "AlbaSobrePedido"
        Case "btnRegisSaleAlba"
            DoCmd.OpenForm "AlbaranVta"
        Case "btnFactuSaleAlba"
            DoCmd.OpenForm "FactuAlba"
        Case "btnConsuSaleAlba"
            DoCmd.OpenForm "AlbaEmixFecDes"
        Case "btnConsuSaleArti"
                DoCmd.OpenForm "SalidasAlma"
        Case "btnRegisMovimAlma"
                DoCmd.OpenForm "MoviAlmacen"
        Case "btnConsuMovimAlma"
                DoCmd.OpenForm "MovimAlmaxFecDes"
        Case "btnRegisInventa"
                DoCmd.OpenForm "InventaManual"
        Case "btnConsuInventa"
                DoCmd.OpenForm "InventarioActual"
       
      
      'PRESUPUESTO
        Case "btnPresuRegis"
            DoCmd.OpenForm "PresupInm"
        Case "btnImputaConsu"
            DoCmd.OpenForm "ConsuPresu"
        Case "btnPresuContador"
            DoCmd.OpenForm "PresuConsumos"
        Case "btnPresuCtas"
            DoCmd.OpenForm "PresuInmxConta"
        Case "btnPresuPred"
            DoCmd.OpenForm "PresuPredios"
        Case "btnPresuCompaPred"
            DoCmd.OpenForm "PresuCompaxPredio"
        Case "btnPresuRdo"
       
       'AVISOS
       Case "btnRegisAvi"
            DoCmd.OpenForm "Avisos"
            Case "btnConsuAvi"
            DoCmd.OpenForm "AviPen"
      
       'MANTENIMIENTOS
        Case "btnReparPtos"
            DoCmd.OpenForm "RepartoPredios"
      
       'REUNIONES
       Case "btnRegisConvo"
            DoCmd.OpenForm "Reunion"
       
        Case "btnRegisActa"
            DoCmd.OpenForm "ActasInm"
        'CORREO
        Case "btnRegisEtq"
            DoCmd.OpenForm "EtqPropieta"
        'ACCESOS
        Case "btnCambioComuni"
            DoCmd.OpenForm "ComuniList"
        'CALCULADORA
        Case "btnCalcu"
             API_ShellExecute ("C:\WINDOWS\system32\Calc.exe")

' MENU FISCAL
        Case "btnMod111"
            DoCmd.OpenForm "Mod110Liqui"
        Case "btnMod115"
            DoCmd.OpenForm "Mod115Liqui"
        Case "btnMod130"
            DoCmd.OpenForm "Mod130"
        Case "btnMod303"
            DoCmd.OpenForm "Mod300"
        Case "btnMod347"
            DoCmd.OpenForm "Modelo347"

' MENU CONTABILIADAD
        Case "btnRegisConta"
            DoCmd.OpenForm "ContabInm"
        Case "btnCeptosConta"
            DoCmd.OpenForm "CeptosConta"
        Case "btnRegisPlanCtas"
            DoCmd.OpenForm "PlanContable"
        Case "btnConsuPlanCtas"
            DoCmd.OpenForm "Texto_Legal2007"
        Case "btnUtilPlanCtas"
       
        Case "btnDiarManu"
            DoCmd.OpenForm "DiarioConta"
        Case "btnDiarFras"
       
        Case "btnDiarFrasRec"
       
        Case "btnDiarBcos"
       
        Case "btnDiarCaja"
            DoCmd.OpenForm "ApuntesContaCaja"
       
        Case "btnDiarAmor"
       
        Case "btnConsuDiario"
       
        Case "btnUtilDiario"
       
        Case "btnConsuMayor"
            DoCmd.OpenForm "ExtractoCtasSinSaldo"
        Case "btnRegisCSB43"
             DoCmd.OpenForm "CSB43"
        Case "btnRegisExcel"
             DoCmd.OpenForm "ExtractoExcel"
        Case "btnConsuCSB43"
             DoCmd.OpenForm "ExtractoQ43xDes"
        Case "btnUtilMayor"
       
        Case "btnDefBalan"
            DoCmd.OpenForm "BalanSituaCrea"
        Case "btnBalanComprobar"
            DoCmd.OpenForm "BalanceSyS"
        Case "btnBalanSituaNormal"
            If DCount("Anyo", "Balances", "Id_Conta=" & ContabilidadActual()) Then
                DoCmd.OpenForm "BalanceSituaConta"
            Else
                DoCmd.OpenForm "BalanSitua"
            End If
        Case "btnBalanSituaAbre"
            If DCount("Anyo", "Balances", "Id_Conta=" & ContabilidadActual()) Then
                DoCmd.OpenForm "BalanceSituaAbreConta"
            Else
                DoCmd.OpenForm "BalanSitua"
            End If
        Case "btnBalanSituaPerso"
           
       
        Case "btnBalanResulNormal"
            If DCount("Anyo", "Balances", "Id_Conta=" & ContabilidadActual()) Then
                DoCmd.OpenForm "BalanInmPYGConta"
            Else
                DoCmd.OpenForm "BalanSitua"
            End If
        Case "btnBalanResulAbre"
            If DCount("Anyo", "Balances", "Id_Conta=" & ContabilidadActual()) Then
                DoCmd.OpenForm "BalanInmPYGAbreConta"
            Else
                DoCmd.OpenForm "BalanSitua"
            End If
        Case "btnBalanResulPerso"
       
        Case "btnSaldosPropieta"
            DoCmd.OpenForm "SaldoContaxPropie"
        Case "btnSaldosGtos"
            DoCmd.OpenForm "GtosContaxEjerc"
        Case "btnInforConta"
       
        Case "btnCierreConta"
            DoCmd.OpenForm "CerrarConta"
        Case "btnCPlusPlanCtas"
            DoCmd.OpenForm "CPlus_SubCta"
        Case "btnCPlusDiario"
            DoCmd.OpenForm "CPlus_Diario"
        Case "btnCPlusClien"
            DoCmd.OpenForm "CPlus_Deudores"
        Case "btnCPlusProve"
            DoCmd.OpenForm "CPlus_Acreedores"
        Case "btnCPlusResul"
            DoCmd.OpenForm "CPlus_Resultado"
        Case "btnCPlusSaldos"
            DoCmd.OpenForm "CPlus_Saldos"
               
       
        Case "btnA3ConPlanCtas"
            DoCmd.OpenForm "A3_SubCtas"
        Case "btnA3ConDiario"
            DoCmd.OpenForm "A3_Diario"
        Case "btnA3Clien"
            DoCmd.OpenForm "A3_Clientes"
        Case "btnA3Prove"
            DoCmd.OpenForm "A3_Prove"
        Case "btnA3Resul"
            DoCmd.OpenForm "A3_Resultado"
        Case "btnA3Saldos"
            DoCmd.OpenForm "A3_Saldos"
           
           
           
        Case "btnInforme"
             DoCmd.RunCommand acCmdReportView
             bolVisible = True
        Case "btnSplit"
       
        Case "btnPrevia"
             DoCmd.RunCommand acCmdPrintPreview
             bolVisible = False
        Case "btnCloseReport"
            bolVisible = False
            DoCmd.Close acReport, Screen.ActiveReport.Name
       
   
    ' MENU LABORAL
    Case "btnRegisOpera"
            DoCmd.OpenForm "ssTrabajadores"
    Case "btnConsuOpera"
            DoCmd.OpenForm "OperaxName"
    Case "btnRegisNomina"
            DoCmd.OpenForm "SSNominas1"
    Case "btnConsuNomina"
            DoCmd.OpenForm "NominasCompaxMes"
   
    Case "btnResuNomiMes"
        DoCmd.OpenForm "NomiMesResu"
    Case "btnResuOperaTrim"
        DoCmd.OpenForm "NomiList"
    Case "btnResuNominaTrim"
        DoCmd.OpenForm "NominasxTrim"
    Case "btnResuOperaAnyo"
        DoCmd.OpenForm "NominasxOpe"
    Case "btnImportaNomina"
        DoCmd.OpenForm "Nominas_Excel"
   
  
        Case "btnSalir"
             blnCerrar = False
             x = SalirApli()
      
       Case "btnEmail"
             DoCmd.OpenForm "EnvioCorreo"
       Case "btnRevincula"
             DoCmd.OpenForm "Reconecta_Tablas"
          
        Case Else
            MsgBox "Boton """ & Control.Id & """ click" & vbCrLf & _
                           "El boton del menu """ & Control.Id & """ no esta asignado", _
                           vbInformation, "Menus"
    End Select
'gobjRibbon.InvalidateControl "btnSplit"

Salir_err_Cancel:
            Exit Sub
Cancel_Open:
            If Err = 2501 Then
               Resume Salir_err_Cancel:
            ElseIf Err = 91 Then
                gobjRibbon.InvalidateControl "Control.id"
                'gobjRibbon.ActivateTab ("tabComunidad")
                'Set gobjRibbon = ribbon
                Resume Salir_err_Cancel:
            Else
                MsgBox "Error nº " & Err & ": " & Err.description & " en procedimiento Sub OnActionButton del Mdl_Ribbon.", vbInformation, "Empreasa"
                Resume Salir_err_Cancel:
            End If

End Sub

Un fuerte abrazo
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 9763
Enlace directo a este mensaje Enviado: 29/Noviembre/2017 a las 23:03
Deja el procedimiento como te pongo:

Sub OnActionButton(Control As IRibbonControl)

    DoCmd.OpenForm "IvaTipos"

End Sub


Con eso descartaríamos que sea el formulario el que casca. A partir de aquí, ve añadiendo código poco a poco hasta que descubras el causante del desaguisado.


Sub OnActionButton(Control As IRibbonControl)

Select Case Control.Id

    Case "btnRegisIVA"
        DoCmd.OpenForm "IvaTipos"

End Select

End Sub

y así sucesivamente ....
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 916
Enlace directo a este mensaje Enviado: 30/Noviembre/2017 a las 09:18
Buen dia, Mihura
Siguiendo tu consejo me he puesto a la tarea, y sea cual sea el Case que le ponga me da el error 5
Resalta el Case "btnRegisIva" o el que le ponga
Y casca.
He probado con 25 diferentes y casca en todos
En cambio, si abro cualquiera de esos 25 formularios desde el panes de navegación los abre sin ningún problema
Acojo__ito me encuentro
No se que mas puedo intentar

Tambien he intentado poner un Case Else pero no entra en el.

Saludos





Editado por main - 30/Noviembre/2017 a las 09:27
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 11481
Enlace directo a este mensaje Enviado: 30/Noviembre/2017 a las 12:14
Así, como por curiosidad, ¿puedes crear una base de datos dónde podamos ver eso?

Con el formulario que casca y el código asociado (si lo tienes en módulos independientes) bastaría. No es necesario meter todos los formularios.

Es solo para ejecutar el código teniendo el Ribbon creado.

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 4387
Enlace directo a este mensaje Enviado: 30/Noviembre/2017 a las 14:32
Solo por curiosidad ¿y sigues teniendo puesta la referencia de Microsoft Office XX.00 Object Library verdad? después de compactar.

Saludos.


Editado por emiliove - 30/Noviembre/2017 a las 14:38
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 9763
Enlace directo a este mensaje Enviado: 30/Noviembre/2017 a las 15:28
Otra prueba:

Sub OnActionButton(Control As IRibbonControl)
Dim Xs as string

Xs = "1"

Select Case Xs

    Case "1"
        DoCmd.OpenForm "IvaTipos"

End Select

End Sub


Editado por Mihura - 30/Noviembre/2017 a las 15:29
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 916
Enlace directo a este mensaje Enviado: 30/Noviembre/2017 a las 17:14
HOLA, de momento me vais a perdonar antes de que os pueda trasladar cuanta información me pediís para poder ayudarme.
Como habeis podido comprobar, para mi lo del punto de interrupción hasta hoy era un simple "Stop"
Asi que imaginaros como ando en esto. Y  solo eso ya ha sido de una gran ayuda para avanzar en el futuro.
Con la curiosidad de Xavi, me he creado una nueva base de datos copiando, de la base maldita, las Referencias, tablas, Consultas, y los Módulos inherentes al problema, además de los 25 formularios, que como dije, estuve probando, y que cascaban, para poder subirla y le echarais un vistazo.
Lo que no he trasladado, hasta ahora, es ningún informe (que quiza puedan ser tambien un problema. No lo sé)

Pues meiges haber hayles, porque esta nueva base de datos, hasta ahora, no me dá ningún problema. Compila, Compacta, Repara y no casca.
Así que no estoy, de momento, en condiciones de trasladaros el problema.
Como habeis podido comprobar, en el procedimiento hay un sinfin de formularios así que durante el fin de semana seguiré incorporando nuevos formularios, hasta que casque. (salvo mejor opinión).
Muchímas gracias a todos Y
POR FAVOR NO CERRAR EL HILO, QUE VOLVERE A DAROS LA TABARRA.
Un millon de gracias
Emilove,  por supuesto que la referencia existe, sino ya cascaría al no reconocer el objeto Ribbon
Me qeda por pobar lo último de Mihura, buena ocurrencia por cierto.
SALUDOS, y os cuento
Gracias de nuevo





Editado por main - 30/Noviembre/2017 a las 20:49
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 916
Enlace directo a este mensaje Enviado: 30/Noviembre/2017 a las 21:03
Hola, con las pruebas que me indico Mihura:
1º.-
Sub OnActionButton(Control As IRibbonControl)
DoCmd.OpenForm "IvaTipos"
end sub
Abre bien el formulario

2º.-
Sub OnActionButton(Control As IRibbonControl)
  Dim Xs As String
   Xs = "1"
Select Case Xs
    Case "1"
        DoCmd.OpenForm "IvaTipos"
End Select
end sub

Resalta el  Case "1"
Y casca

Lo pongo por si os pudiera dar alguna idea más y me evito lo del fin de semana pues creo que no va a ser un problema de los formularios.
Saludos



Editado por main - 30/Noviembre/2017 a las 21:04
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 9763
Enlace directo a este mensaje Enviado: 30/Noviembre/2017 a las 23:12
Créate una BD nueva en blanco, importa todo en ella y prueba.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 8975
Enlace directo a este mensaje Enviado: 06/Diciembre/2017 a las 17:01
Buenos día a todos !!

No estaría de más usar el método decompile en tu base de datos. Me paso algo similar en una BD de Access 2010.

Ejemplo (versión de 32 bits):
1.- Clic en Botón inicio de tu S.O.
2.- Teclear (en ejecutar) lo siguiente:
C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE c:\TuCarpeta\TuBase.accdb /Decompile
3.- Presionar Enter

Nota.- Las pruebas siempre en una copia de tu aplicación.

Saludos !
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">

Editado por MexMan70 - 06/Diciembre/2017 a las 17:03
OneDrive: https://1drv.ms/f/s!AhsRUsxKwte3gVJR2a-FgxJL8H6R
Arriba
acilu55 Ver desplegable
Nuevo
Nuevo


Unido: 27/Septiembre/2011
Estado: Sin conexión
Puntos: 15
Enlace directo a este mensaje Enviado: 10/Diciembre/2017 a las 17:01
Si la base peta al compilarla en un ordenador si y otro no, es muy posible que alguna referencia no este regidtrada y aparezca como FALTA, o simplemente no aparezca. Verifica que todas son las correctas antes de volverte loco con otras cosas, mi me ha pasado por confiar que la DAO 2.5/3.5 sería igual que poner la DAO 3.6 y no lo es siempre.
Gracias a todos de antemano
Arriba
raipon Ver desplegable
Moderador
Moderador


Unido: 10/Diciembre/2004
Localización: Desconocida
Estado: Sin conexión
Puntos: 3967
Enlace directo a este mensaje Enviado: 10/Diciembre/2017 a las 20:15
Hola, no se si main tendrá solucionado el problema. En cualquier caso aprovecho para comentar que desde hace un par de meses experimento aleatoriamente este tipo de problemas. 
El patrón común es al utilizar la estructura Select Case. Lo he ido solucionando forzando a string el valor a evaluar. Algo tan "tonto" como 

Select Case Mid(ElValor, 1)

Case "uno"

Case "dos"

Case "etc"

End Select

Saludos.

Ramon desde Terrassa.

Mi blog
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 9763
Enlace directo a este mensaje Enviado: 10/Diciembre/2017 a las 20:24
Hola Ramón, 

¿Que office / windows usas?


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 916
Enlace directo a este mensaje Enviado: 14/Diciembre/2017 a las 18:54
Buenas tardes,
Despues de unos dias laboriosos he logrado que todo empiece a funcionar de maravilla.
He creado una nueva bas de datos y trasladado unicamente todos los elementos de la Aplicación.
Quiero con ello decir que en esta bd tenía, además, un sinfin de ejemplos con formularios y módulos incorporados de esos que vas cojiendo de aqui y de allá para incorporarlos en un futuro a otros programas. Vamos que era mas bien mi laboratorio personal.
Asi que ahora cada cosa en su sitio y a furrular.
Eso si, me quedé con las ganas de saber el origen o casusa que motivaba el error.
MUCHISIMAS GRACIAS A TODOS
Se puede cerrar el hilo

Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable