Problema con los DTPiket y CtrlActiveX57 de Access 2003 2007 no me funcionan con Access 2010
Hola a todos, espero me podáis ayudar a arreglar una programación para un programa que uso en Access. Mi programación es para hacer una división de Cargos con respecto a sus fechas de abonos. Con Access 2003 y 2007 trabajo bien, pero con Access 2010 ya no puedo trabajar. Me podéis ayudar para reprogramar el código para Access 2010, por favor.
Esta es la pantalla:
Y esta es la programación que tengo actualmente:
*******************CALCULO Y GENERACIÓN DE CARGOS*************************
Private Sub Comando15_Click()
CHECAR QUE NO TENGAN NULL LAS ENTRADAS DEL FORMULARIO
Dim día As Integer
Dim dia1 As Integer
Dim dia2 As Integer
Dim cnn1 As ADODB.Connection
Dim strsql As String
Dim pago1 As Long
Dim pago2 As Long
Dim montoTotal As Long
Dim fecha1 As Date
Dim fecha2 As Date
Dim fecha3 As Date
Dim pedido As Long
Dim numeroAbonos As Integer
Dim montoAbonos As Long
Dim fechaAbono As Date
Dim boolHayPago2 As Boolean
Dim i As Integer
pedido = Texto13.Value
pago1 = PagoInicial1.Value
pago2 = PagoInicial2.Value
fecha1 = DTPicker6.Value
fecha1 = DateSerial(DatePart("yyyy", fecha1), DatePart("m", fecha1), DatePart("d", fecha1))
fecha2 = CtrlActiveX57.Value
fecha2 = DateSerial(DatePart("yyyy", fecha2), DatePart("m", fecha2), DatePart("d", fecha2))
fecha3 = DTPicker2.Value
fecha3 = DateSerial(DatePart("yyyy", fecha3), DatePart("m", fecha3), DatePart("d", fecha3))
'fecha1 = DTPicker6.Value
'fecha1 = Format(fecha1, "mm/dd/yyyy")
'fecha2 = CtrlActiveX57.Value
'fecha2 = Format(fecha2, "mm/dd/yyyy")
'fecha3 = DTPicker2.Value
'fecha3 = Format(fecha3, "mm/dd/yyyy")
'++++++++++++++++++++++++++++++++++++++++++
'fecha1 = DTPicker6.Value
'fecha1 = Format(fecha1, "mm/dd/yyyy")
'fecha2 = CtrlActiveX57.Value
'fecha2 = Format(fecha2, "mm/dd/yyyy")
'fecha3 = DTPicker2.Value
'fecha3 = Format(fecha3, "mm/dd/yyyy")
'+++++++++++++++++++++++++++++++++++++++++++
Private Sub PagoInicial2_Exit(Cancel As Integer)
If PagoInicial2.Value <> 0 Then
CtrlActiveX57.Visible = True
End If
End Sub
Private Sub Form_Load()
If PagoInicial2.Value <> 0 Then
CtrlActiveX57.Visible = True
Else
CtrlActiveX57.Visible = False
End If
End Sub
Private Sub marco36_afterupdate()
If Marco36.Value <> 3 Then
Texto63.Visible = False
Texto65.Visible = False
Etiqueta67.Visible = False
'DTPicker2.Visible = True
'cuadroCombinado70.Visible = False
Else
Texto63.Visible = True
Texto65.Visible = True
Etiqueta67.Visible = True
'DTPicker2.Visible = False
'cuadroCombinado70.Visible = True
End If
End Sub
Private Sub Pago_Inicial_2_Click()
If PagoInicial2.Value <> 0 Then
CtrlActiveX57.Visible = True
Else
CtrlActiveX57.Visible = False
End If
End Sub
Private Sub Pago_Inicial_2_Exit(Cancel As Integer)
If PagoInicial2.Value <> 0 Then
CtrlActiveX57.Visible = True
Else
CtrlActiveX57.Visible = False
End If
End Sub
¿Qué pongo en el lugar de los DTPicker y los DTPicker?
Agradecería muchísimo una ayuda, por favor.
Un Saludo a Todos
Sr. José Antonio
