Visual Basic - que hace este codigo

Life is soft - evento anual de software empresarial
 
Vista:

que hace este codigo

Publicado por alvaro (3 intervenciones) el 31/05/2007 15:38:04
Alguien por favor podria ayudarme a intepretar este codigo ya que al ser ejecutado me salen los siguientes MENSAJES.
*VA A ELIMINAR 6 FILA(S) DE LA TABLA ESPECIFICADA
SI HACE CLICK EN SI NO PODRA UTILIZAR EL COMANDO DESHACER
y al hacer clic en SI sale
*VA A ANEXAR 10 FILA(S)
SI HACE CLICK EN SI NO PODRA UTILIZAR EL COMANDO DESHACER
y al hacer clic en SI sale
*EL SISTEMA NO PUEDE ANEXAR TODOS LOS REGISTROS EN LA CONSULTA DE DATOS ANEXADOS
EL SISTEMA ESTABLECIO 0 CAMPOS A NULO DEBIDO A UN FALLO EN LA CONVERSION DE TIPOS Y NO AGREGO 2 REGISTROS A LA TABLA DEBIDO A INFRACCIONES DE CLAVE, 0 REGISTROS DEBIDO A INFRACCIONES DE BLOQUEO Y 0 REGISTROS DEBIDO A INFRACCIONES DE VALIDACION.
SI HACE CLICK EN SI NO PODRA UTILIZAR EL COMANDO DESHACER
Y luego estos mensaje por si
*VA A ELIMINAR 6 FILA(S) DE LA TABLA ESPECIFICADA
y al hacer clic en SI sale
*VA ANEXAR 8 FILAS(S)
Este es el codigo por favor si alguien puede decirme que es lo que realmente hace este codigo

Private Sub Procesar_Click()

Dim resp As Variant
Dim est1 As Variant, est2 As Variant

resp = MsgBox("¿Está seguro que desea actualizar su registro de inventarios con los datos seleccionados?." & Chr(13) & Chr(13) & "Haga clic en 'Aceptar' para continuar o 'Cancelar' para abortar.", vbOKCancel + vbQuestion + vbDefaultButton2, "Proceso de Actualización de Datos")
If resp = vbOK Then
'Actualización de las existencias del almacén
DoCmd.RunSQL "DELETE * FROM T_Existencias"
DoCmd.RunSQL "INSERT INTO T_Existencias SELECT * FROM C_TotalRecEntExistencia"
DoCmd.RunSQL "DELETE * FROM L_InventFecha"
DoCmd.RunSQL "INSERT INTO L_InventFecha SELECT * FROM T_Existencias"
DoCmd.RunSQL "UPDATE L_InventFecha set ID_Inventario = '" & ID_Inventario.Value & "'"
End If
End Sub

T_Existencias= Es una Tabla
C_TotalRecEntExistencia=Es una consulta
L_InventFecha=es una tabla
ID_Inventario=es un campo de la tabla L_Inventfecha

Como puedo hacer para que estos mensajes no me salgan?
Cuales son los problemas?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:que hace este codigo

Publicado por Excelence!!! (22 intervenciones) el 31/05/2007 22:45:08
Que es que no sabes lo que haces...

hay estas borrando de una tabla para insertar el contenido en otro tabla.

cuando quieres hacer algo primero debes pasar la informacion a la otra tabla y luego borrar las dado que si borras primero no vas a tener informacion que pasar a la otra tabla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar