Private Sub Confirmar_Click()
'Chequeamos que esten todos los datos mínimamente necesarios y que sean válidos
If cmbFuncionarios.ListIndex = -1 Or cmbEmpresas.ListIndex = -1 Or cmbHoras.ListIndex = -1 Then
MsgBox "Faltan datos", vbInformation, "Error"
Exit Sub
End If

'Actualizamos la grilla
Dim Adc As Adicional
With Adc
.Legajo = cmbFuncionarios.ItemData(cmbFuncionarios.ListIndex )
.Empresa = cmbEmpresas.ItemData(cmbEmpresas.ListIndex)
.Fecha = txtFecha.FormattedText
.horas = CSng(Val(Replace(txtHoras, ",", ".")))
.TipoHora = cmbHoras.ItemData(cmbHoras.ListIndex)
End With

'Agregamos la nueva adicional en la db.
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
If SelectedLine = Grilla.Rows - 1 Then
.Open "Adicionales", cn, adOpenDynamic, adLockOptimistic, adCmdTableDirect
.AddNew
rs!funcionario = Adc.Legajo
rs!Empresa = Adc.Empresa
If Adc.Fecha <> "__/__/____" Then rs!Fecha = Adc.Fecha
rs!horas = Adc.horas
rs!TipoHora = Adc.TipoHora
'IMPORTANTE::: rs!valorHora = Aasdasd
Set rs2 = New ADODB.Recordset
Call rs2.Open("SELECT Valor FROM TipoHoras WHERE id = " & Adc.TipoHora & ";", cn)
rs!ValorHora = rs2!valor
rs2.Close
Call rs2.Open("SELECT Jerarquia FROM Personal WHERE Legajo = " & """" & Adc.Legajo & """" & ";", cn)
rs!Jerarquia = rs2!Jerarquia
rs2.Close

rs!Cerrado = True
rs.Update
rs.Close
Else
'IMPORTANTE::: rs!valorHora = Aasdasd
Set rs2 = New ADODB.Recordset
Call rs2.Open("SELECT Valor FROM TipoHoras WHERE id = " & Adc.TipoHora & ";", cn)

Dim uSQL As String
uSQL = "UPDATE Adicionales SET funcionario = " & """" & Adc.Legajo & """" & ", empresa = " & Adc.Empresa & " , fecha = #" & Month(CDate(Adc.Fecha)) & "/" & Day(CDate(Adc.Fecha)) & "/" & Year(CDate(Adc.Fecha)) & "# ,tipohora = " & Adc.TipoHora & ", valorHora = " & rs2!valor & " , horas = " & Str(Adc.horas) & " WHERE id = " & Grilla.TextMatrix(SelectedLine, eGrilla.id) & ";"
cn.Execute (uSQL)

rs2.Close
End If

End With

If Vista = eVista.General Then
Call ActualizarGrilla
ElseIf Vista = eVista.Empresas Then
Call ActualizarGrillaEmpresas
End If
End Sub



me manda errror en cualkqueir mquna que tenga XP y resulta qeu el cliente tine XP y nose bien porque en XP salta el error y en Windows 200 server no
El error q salta es:'Error 2147217900(80040e14) en tiempo de ejecucion Error de sintaxis en instrucion UPDATE ' osea el error salta en la intrucion update nose porque ni porque es solo en XP

Si alquin me puede ayudar desde ya muchas gracias

Creo que el error (80040e14) traduce que es excesivamente larga la cadena de caracteres uSQL.

Si eso fuera así (y creo que en todo caso...) te iría bien cambiar tu código por éste:

uSQL = "UPDATE Adicionales SET funcionario = " & """" & Adc.Legajo & """" & ", empresa = " & Adc.Empresa & " , fecha = #" & Format(CDate(Adc.Fecha), "mm/dd/yyyy") & "# ,tipohora = " & Adc.TipoHora & ", valorHora = " & rs2!valor & " , horas = " & Str(Adc.horas) & " WHERE id = " & Grilla.TextMatrix(SelectedLine, eGrilla.id) & ";"

__________________
José María Movilla Cuadrado
______________________
www.foro.vb-mundo.com
www.vb-mundo.com

Desde ya muchas gracias voy a probar y te digo porque ahora estoy en mi trabajo y aca tengo windows 200 server en mi asa voy a probar si funcuiona q tengo xp y si anda muchisimassss gracaissssss

lo estoy probando en una maquina con XP y me manda un error al cargar
ah ver si me puede ayudar

Private Sub Form_Load()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Call rs.Open("SELECT Cerrado FROM Config;", cn)
CargaCerrada = CBool(rs!Cerrado & "")(aca esta el eror me dice error "13" o algo asi)
rs.Close

Set rs = Nothing

Call ChequearCarga
End Sub
Es algo de typemismach oase de tipo de variables pero porque me anda en Windows 200 server

Verifica que tipo de dato es CargaCerrada; tiene que ser obligatoriamente del tipo boolean o variant, porque de lo contrario te provoca un error de conversión de tipos, lo que tu denominas Error 13 o algo así.

Elimina también las comillas tras el valor del campo de la tabla consultada.

CargaCerrada = CBool(rs!Cerrado)

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion