update: formato..?

Option Compare Database


Private Sub Comando0_Click()
Rem On Error GoTo ERRORES

Dim stDocName As String
Dim minutost, minutosp, horaUX, MIN1, HOR1
Dim aux2, aux, Aux30 As Variant
Dim Horf, Ho, Minf, Mi, Horaf, tt, mt
Dim aux3 As Variant
Dim Aux4 As Variant, m4 As Variant, m5 As Variant, m6 As
Variant
Dim Aux1 As Variant
Dim Aux6 As Double
Dim Aux7 As Double
Dim k2 As Integer
Dim Y As Integer
Dim sql2 As Variant, sql3 As Variant, sql4 As Variant, SQL16 As
Variant
Dim tabla1 As Recordset, tabla3 As Recordset
Dim base As Database
Dim Fecha_1 As Date, fta As Date
Dim fante As Date, factual As Date
Dim auxh As Variant, auxm As Variant, auxh2 As Variant, TOTALSS
As Double
' pAculador para
Dim acum1(10) As Variant
Dim dbs As Database

' arreglos que manejan la pmuengine
Dim arreg1(10) As Variant: Rem arreglo para el dia anterior
Dim arreg2(10) As Variant: Rem arreglo para el dia posterior

' arreglo de el aceite en centimetros
Dim arreg10(10) As Variant
Dim arreg20(10) As Variant

' arreglos para el aceite en galones
Dim arreg30(10) As Variant
Dim arreg40(10) As Variant

'Arreglos para el aceite adicionado a cada maquina
Dim arreg50(10) As Variant
Dim arreg60(10) As Variant

' Arreglos para el gas 3
Dim arreg70(10) As Variant
Dim arreg80(10) As Variant

' Arreglos para los arranques
Dim arreg90(10) As Variant
Dim arreg100(10) As Variant

Dim R1 As Date, R2 As Date, r3 As Date
Dim sql As Variant, k As Integer

Set base = CurrentDb
Set dbs = CurrentDb
' sql = "Delete * from Tempore5 "
' base.Execute sql

' sql = "Delete * from Tempore6 "
' base.Execute sql

Rem sql = "Delete * from NUVA2 "
' base.Execute sql
' dbs.Execute " INSERT INTO NUVA2 " _
' & "SELECT * " _
' & "FROM [MESANTE];"

dbs.Close

sql = "Delete * from Tempore10 "
base.Execute sql

Rem For K = 1 To 5
'acum1(K) = 0
' Next K
Rem stDocName = "duparadaux"
Rem DoCmd.OpenQuery stDocName, acNormal, acEdit


' r1 = InputBox("digite fecha de inicio")
' r2 = InputBox("digite fecha de final")
' r1 = Format(FechaInicio, "dd/mm/yy")
' r2 = Format(FechaFin, "dd/mm/yy")

' r1 = Format(r1, "dd/mm/yy")
' r2 = Format(r2, "dd/mm/yy")

sql = "SELECT MOVIPR.itemnum, MOVIPR.description,
MOVIPR.AVGUNITCOST, MOVIPR.TRANSTYPE, MOVIPR.EXTCOST, movipr.qty " + _
" FROM MOVIPR"


Set tabla1 = base.OpenRecordset(sql)
k2 = tabla1.RecordCount ' contador de registros de la tabla
con una variable
If k2 > 0 Then
tabla1.MoveFirst

Do While Not tabla1.EOF



sql3 = "select * from nuva2 WHERE itemnum = format('" +
CStr(tabla1.Fields(0)) + "','*[#]QUI*')"


Set tabla3 = base.OpenRecordset(sql3)
tabla3.MoveFirst
k2 = tabla3.RecordCount
If k2 > 0 Then
Do While Not tabla1.EOF

TOTALSS = tabla1.Fields(2) + tabla3.Fields(5)
Rem tqty = tabla1.Fields(5) + Nz(tabla3.Fields(8))


Rem dbs.Execute "UPDATE NUVA2 " _
& "SET UNITCOST = TOTALSS " _
& "WHERE ITEMNUM = int(1700) ;"


'
' HASRA AQUI LA FUNCION TRABAJA OK



sql4 = " update nuva2 SET unitcost = TOTALSS WHERE ITEMNUM > Format('" + CStr(tabla1.Fields(0)) + "','*[#qui]*') "
base.Execute sql4

'' PROBLEMA

Loop
End If
tabla3.MoveNext
tabla3.Close



Loop
End If
tabla1.Close





base.Close
End Sub

Tengo problemas con el formato o pocos parametros cuando intento hacer
el update a la tabla..pero cuando hago la consulta de seleccion para
localizar le codigo el formato parace no tener problemas,,queb puedo
hacer..