Hola a todos,
Antetodo, disculpadme si mi pregunta tendria que ir en otro foro, pero la verdad es que tras buscar un apartado adecuado para mi consulta, no he encontrado otro mejor ;) Así que os expongo el problema.
Actualmente me han encargado en mi trabajo que realize una base de datos para efectuar un control y gestion de TEMAS / PROBLEMAS mediante páginas html de acceso a datos de MS Access. Hasta aqui no hay mucho problema, pero como no, algunos de los "capos" ha tenido tiempo para realizar alguna anotacion o "sugerencias" a realizar en la página y estoy más que trabado.
Tengo que efectuar una categorización de los temas a 3 niveles y el mismo representarlo mediante 3 listas desplegables. En caso de que efectue un cambio en la lista o categoria principal, el contenido del segundo nivel se actualizará con los datos vinculados a la categoria principal y así mismo, realizar el mismo paso con el tercer nivel de categorización.
He intentado hacerlo de la siguiente manera:
Código:
<SCRIPT language=vbscript>
<!--
Sub SincronizarCategoria(blnMostrarTodos)
' Coger el selected index del combo US
Dim ValorUS
Dim strFiltroSubUS
if blnMostrarTodos = False then
ValorUS = Tpeticion.value
strFiltroSubUS = " GESTION_DE_TEMAS_Temas_Subcategoria.idTema = " & ValorUS
else
strFiltroSubUS = ""
end if
MSODSC.RecordsetDefs(MSODSC.ElementExtensions("Categoria").ListRowSource).ServerFilter = strFiltroSubUs
cboSubUs.selectedIndex = 0
end sub
-->
</SCRIPT>
<SCRIPT language=vbscript>
<!--
Sub SincronizarSubCategoria(blnMostrarTodos)
' Coger el selected index del combo US
Dim ValorGrupo
Dim strFiltroMotivo
if blnMostrarTodos = False then
ValorGrupo = Subcategoria.value
strFiltroMotivo = " idSubCat = " & ValorGrupo
else
strFiltroMotivo = ""
end if
MSODSC.RecordsetDefs(MSODSC.ElementExtensions("Subcategoria").ListRowSource).ServerFilter = strFiltroMotivo
cboMotivo.selectedIndex = 0
end sub
-->
</SCRIPT>
<SCRIPT language=vbscript event=onchange for=Tpeticion>
<!--
Call SincronizarCatergoria(False)
-->
</SCRIPT>
<SCRIPT language=vbscript event=onchange for=Categoria>
<!--
Call SincronizarSubCategoria(False)
-->
</SCRIPT>
Pero al efectuar el cambio en la categoria principal, me lanza un mensaje de error de tipos no coincidentes en la Sub SincronizarCategoria:
Código:
Type miscmatch: 'SincronizarCategoria'
Code: 0
Y la verdad es que estoy francamente perdido... Ya que el ControlSourcer de ambos son numericos y he revisado ambas listas desplegables con el fin de que no existan conflictos en el traspaso de los datos.
Lo mio, la verdad sea dicha, no es Access y mucho menos VBA .oO(Ya que hace un porron de años que no lo toco...) por lo que espero que podaís echarme una mano ya que estoy a punto de volverme loco con este tema.
Saludos y gracias!