
Activex en Access a traves de VB
Publicado por Pau (1 intervención) el 03/01/2008 12:53:50
Tengo insertado el cotrol ActiveX "MSComCtl2.MonthView.2" en un Formulario de Access y al ejecutar-lo no puedo ver el activex, me sale un cuadrado en blanco en su lugar.
Que es lo que hay que hacer?
Este ActiveX esta registrado a traves del codigo VB que lleva esta aplicacion por detras, al menos eso creo.
Te cuento:
Tengo esta funcion referenciada al ActiveX:
Private Sub CtrlActiveX4_DateClick(ByVal DateClicked As Date)
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim valor_indice As String
Set conn = CurrentProject.Connection
valor_indice = 1
rs.Open "SELECT * FROM " + "di " + " WHERE INDEX = " + valor_indice + " ", conn, adOpenKeyset, adLockOptimistic, adCmdText
rs(1) = DateClicked
datainici.Requery
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
Y luego si me voy al menu herramientas del VB en la opción Referencias, tengo activado el "Microsoft Windows Common Controls-2 6.0(SP4)" y mas adelante tambien el "Microsoft ActiveX Data Objects 2.1 Library"; creo que no me dejo nada no? Y sigue sin verse el ActiveX.
Gracias,
PAU
Que es lo que hay que hacer?
Este ActiveX esta registrado a traves del codigo VB que lleva esta aplicacion por detras, al menos eso creo.
Te cuento:
Tengo esta funcion referenciada al ActiveX:
Private Sub CtrlActiveX4_DateClick(ByVal DateClicked As Date)
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim valor_indice As String
Set conn = CurrentProject.Connection
valor_indice = 1
rs.Open "SELECT * FROM " + "di " + " WHERE INDEX = " + valor_indice + " ", conn, adOpenKeyset, adLockOptimistic, adCmdText
rs(1) = DateClicked
datainici.Requery
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
Y luego si me voy al menu herramientas del VB en la opción Referencias, tengo activado el "Microsoft Windows Common Controls-2 6.0(SP4)" y mas adelante tambien el "Microsoft ActiveX Data Objects 2.1 Library"; creo que no me dejo nada no? Y sigue sin verse el ActiveX.
Gracias,
PAU
Valora esta pregunta


0