INCREIBLE NO LO PUEDO CREER!!!
Publicado por Victor Manuel (101 intervenciones) el 24/04/2007 01:16:01
ALGUIEN QUE ME DIGA QUE ESTOY HACIENDO MAL AQUI.
Private Sub CmdGuardar_Click()
On Error Resume Next
Dim borratbl2 As String
Dim fecha1 As Date
Dim fecha2 As Date
Dim RegistroNuevo As Variant
fecha1 = FechaI
fecha2 = FechaF
If OFecha.Value = True Then
If fecha2 <= fecha1 Then
MsgBox "La fecha final no puede ser igual o anterior a la fecha inicial", vbOKOnly, "Verifica las fechas"
Else
Set rst = New ADODB.Recordset
rst.Open "SELECT * From TablePrincipal Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst.EOF Then rst.AddNew: RegistroNuevo = "Si"
rst!Numero = NumeroReporte
rst!Empresa = Empresa
rst!Organizacion = Organizacion
rst!Embarcacion = Embarcacion
rst!Descripcion = Descripcion
rst!FechaI = FechaI
rst!HoraI = HoraI
rst!FechaF = FechaF
rst!HoraF = HoraF
rst!NoFactura = NoFactura
rst!Anticipo = Anticipo
rst!Pagado = Pagado
rst!Notas = Notas
rst!Año = OAño
rst!Fecha = OFecha
rst.Update
rst.Close: Set rst = Nothing
Set rst1 = New ADODB.Recordset
rst1.Open "SELECT * From TablePrincipalBackUp Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst1.EOF Then rst1.AddNew: RegistroNuevo = "Si"
rst1!Numero = NumeroReporte
rst1!Empresa = Empresa
rst1!Organizacion = Organizacion
rst1!Embarcacion = Embarcacion
rst1!Descripcion = Descripcion
rst1!FechaI = FechaI
rst1!HoraI = HoraI
rst1!FechaF = FechaF
rst1!HoraF = HoraF
rst1!NoFactura = NoFactura
rst1!Anticipo = Anticipo
rst1!Pagado = Pagado
rst1!Notas = Notas
rst1!Año = OAño
rst1!Fecha = OFecha
rst1.Update
rst1.Close: Set rst1 = Nothing
If RegistroNuevo = "Si" Then
MsgBox "El nuevo registro ha sido agregado", vbInformation, "Nuevo Registro"
LimpiaCampos
ElseIf lblstatus.Caption = "CONSULTA O MODIFICACION" Then
MsgBox "Se han grabado los cambios efectuados", vbInformation, "Grabar Cambios"
LimpiaCampos
End If
End If
End If
If OAño.Value = True Then
Set rst = New ADODB.Recordset
rst.Open "SELECT * From TablePrincipal Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst.EOF Then rst.AddNew: RegistroNuevo = "Si"
rst!Numero = NumeroReporte
rst!Empresa = Empresa
rst!Organizacion = Organizacion
rst!Embarcacion = Embarcacion
rst!Descripcion = Descripcion
rst!FechaI = FechaI
rst!HoraI = HoraI
rst!FechaF = FechaF
rst!HoraF = HoraF
rst!NoFactura = NoFactura
rst!Anticipo = Anticipo
rst!Pagado = Pagado
rst!Notas = Notas
rst!Año = OAño
rst!Fecha = OFecha
rst.Update
rst.Close: Set rst = Nothing
'BORRA REGISTRO DE LA SEGUNDA TABLA
borratbl2 = "Delete * From TablePrincipalBackup Where Numero='" & NumeroReporte & "'"
CurrentDb.Execute borratbl2
If RegistroNuevo = "Si" Then
MsgBox "El nuevo registro ha sido agregado", vbInformation, "Nuevo Registro"
LimpiaCampos
ElseIf lblstatus.Caption = "CONSULTA O MODIFICACION" Then
MsgBox "Se han grabado los cambios efectuados", vbInformation, "Grabar Cambios"
LimpiaCampos
End If
End If
End Sub
pOR AS QUE LE MODIFICO LAS CONDICIONES NO ME GUARDA EL REGISTRO, LA VERDAD YA NO SE QUE HACER, QUE ES LO QUE ESTOY HACIENDO MAL O SI ME FALTA ALGO, QUE COMPARO CON OTRAS BASES DE DATOS Y TENGO EL MISMO PROCEDIMIENTO Y SI ME LO GUARDA, NETA YA ME ARTE.
SALUDOS
VICTOR.
Private Sub CmdGuardar_Click()
On Error Resume Next
Dim borratbl2 As String
Dim fecha1 As Date
Dim fecha2 As Date
Dim RegistroNuevo As Variant
fecha1 = FechaI
fecha2 = FechaF
If OFecha.Value = True Then
If fecha2 <= fecha1 Then
MsgBox "La fecha final no puede ser igual o anterior a la fecha inicial", vbOKOnly, "Verifica las fechas"
Else
Set rst = New ADODB.Recordset
rst.Open "SELECT * From TablePrincipal Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst.EOF Then rst.AddNew: RegistroNuevo = "Si"
rst!Numero = NumeroReporte
rst!Empresa = Empresa
rst!Organizacion = Organizacion
rst!Embarcacion = Embarcacion
rst!Descripcion = Descripcion
rst!FechaI = FechaI
rst!HoraI = HoraI
rst!FechaF = FechaF
rst!HoraF = HoraF
rst!NoFactura = NoFactura
rst!Anticipo = Anticipo
rst!Pagado = Pagado
rst!Notas = Notas
rst!Año = OAño
rst!Fecha = OFecha
rst.Update
rst.Close: Set rst = Nothing
Set rst1 = New ADODB.Recordset
rst1.Open "SELECT * From TablePrincipalBackUp Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst1.EOF Then rst1.AddNew: RegistroNuevo = "Si"
rst1!Numero = NumeroReporte
rst1!Empresa = Empresa
rst1!Organizacion = Organizacion
rst1!Embarcacion = Embarcacion
rst1!Descripcion = Descripcion
rst1!FechaI = FechaI
rst1!HoraI = HoraI
rst1!FechaF = FechaF
rst1!HoraF = HoraF
rst1!NoFactura = NoFactura
rst1!Anticipo = Anticipo
rst1!Pagado = Pagado
rst1!Notas = Notas
rst1!Año = OAño
rst1!Fecha = OFecha
rst1.Update
rst1.Close: Set rst1 = Nothing
If RegistroNuevo = "Si" Then
MsgBox "El nuevo registro ha sido agregado", vbInformation, "Nuevo Registro"
LimpiaCampos
ElseIf lblstatus.Caption = "CONSULTA O MODIFICACION" Then
MsgBox "Se han grabado los cambios efectuados", vbInformation, "Grabar Cambios"
LimpiaCampos
End If
End If
End If
If OAño.Value = True Then
Set rst = New ADODB.Recordset
rst.Open "SELECT * From TablePrincipal Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst.EOF Then rst.AddNew: RegistroNuevo = "Si"
rst!Numero = NumeroReporte
rst!Empresa = Empresa
rst!Organizacion = Organizacion
rst!Embarcacion = Embarcacion
rst!Descripcion = Descripcion
rst!FechaI = FechaI
rst!HoraI = HoraI
rst!FechaF = FechaF
rst!HoraF = HoraF
rst!NoFactura = NoFactura
rst!Anticipo = Anticipo
rst!Pagado = Pagado
rst!Notas = Notas
rst!Año = OAño
rst!Fecha = OFecha
rst.Update
rst.Close: Set rst = Nothing
'BORRA REGISTRO DE LA SEGUNDA TABLA
borratbl2 = "Delete * From TablePrincipalBackup Where Numero='" & NumeroReporte & "'"
CurrentDb.Execute borratbl2
If RegistroNuevo = "Si" Then
MsgBox "El nuevo registro ha sido agregado", vbInformation, "Nuevo Registro"
LimpiaCampos
ElseIf lblstatus.Caption = "CONSULTA O MODIFICACION" Then
MsgBox "Se han grabado los cambios efectuados", vbInformation, "Grabar Cambios"
LimpiaCampos
End If
End If
End Sub
pOR AS QUE LE MODIFICO LAS CONDICIONES NO ME GUARDA EL REGISTRO, LA VERDAD YA NO SE QUE HACER, QUE ES LO QUE ESTOY HACIENDO MAL O SI ME FALTA ALGO, QUE COMPARO CON OTRAS BASES DE DATOS Y TENGO EL MISMO PROCEDIMIENTO Y SI ME LO GUARDA, NETA YA ME ARTE.
SALUDOS
VICTOR.
Valora esta pregunta
0