Access - ayuda con comandos

   
Vista:

ayuda con comandos

Publicado por jorge H. leon jhlchavez@hotmail.com (19 intervenciones) el 04/12/2011 20:57:39
Hola amigos de LWP, soy nuevo en access 2007 y estoy tratando de crear una aplicación con una tabla, la aplicación es un abc de registros de la tabla, para eso voy a diseñar un formulario que al ejecutarlo me muestre en los campos del formulario el último registro que se dio de alta, para así modificar los campos requeridos…… y al final por medio de un botón “ALTAS” dar de alta el nuevo registro en la tabla…………… mis preguntas son 1.- que comando o instrucción es el indicado para asignar una tabla… ejemplo “SELECT ARCHIVO, GET ARCHIVO, USE ARCHIVO”??????, 2.- ya que tengo asignada la tabla a mi formulario poner los campos del último registro de la tabla en el formulario 3.- y la instrucciones o comandos que requiere el botón para dar de alta los campos o el registro en la tabla asignada????????????????????
De antemano muchas gracias su amigo Jorge
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

ayuda con comandos

Publicado por jose (741 intervenciones) el 05/12/2011 14:50:58
Una vez que has creado la tabla creas un formulario nuevo.

En propiedades -- datos- origen del registro le pones el nombre de la tabla

Despues insertas en el formulario los campos de esa tabla , con lo que ya queda vinculada a la misma
de esa forma cada vez que se mofifique ese campo de texto se mof¡difica tambien la tabla

Esto tambien lo puedes hacer insertando un campo de texto y poniendo en propiedadess-- origen de control, el campo de la tabla que quieras .



para añadir un registro vas a la parte de abajo del formulario que tiene

< << >> > * -- pues bien pulsas en el asterisco para añadir un nuevo registro
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

ayuda con comandos

Publicado por jorge H. leon jhlchavez@hotmail.com (19 intervenciones) el 05/12/2011 18:11:10
Muchas gracias x tu respuesta amigo Jose.... pero lo que se requiere en esta aplicación es que se graben los campos solo al final por medio de un botón y después de varias modificaciones hasta quedar listo y lógicamente en las instrucciones de este botón al inicio asignar la tabla en la que se dará de alta el nuevo registro ¿????????
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

ayuda con comandos

Publicado por angelessebas (208 intervenciones) el 05/12/2011 20:50:10
Hola,

En la página: http://angelessebas.es/

en el apartado Supuestos y solucciones ---> Formularios ---> Formulario para insertar registros

tienes algunos ejemplos que te pueden ayudar.

Me cuentas, saludos Angeles
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

ayuda con comandos

Publicado por jose (741 intervenciones) el 06/12/2011 13:00:32
La solución que te he dado es más sencilla , la que tu pretendes es mucho más laboriosa , complicada y causa de problemas si no se hace bien , pero aún así te voy a indicar como se hace

1.- creas la tabla
2.- creas el formulario : condiciones: --no le pongas origen de registro
ponle los cuadros de texto pero sin origen de datos , porque los datos los vamos a rellenar cuando los leamos


LEER
para leer un registro escribimos en cuado de texto ejemplo TEXTOID el numero buscado
y en el evento despues de actualizar

Rem BUSCA un registro
Set rs = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
c10 = "": c20 = "": c30 = "": c40 = "": C50 = "": c60 = " ": c70 = "": c80 = ""
c10 = "SELECT * FROM [T060-PLATOS] "
c20= “ where [CAMPOBUSCADO ] =” & STR$ TEXTOID

consulta = c10 & c20 & c30 & c40 & C50 & c60 & c70 & c80
rs.Open consulta, CON, adOpenDynamic, adLockOptimistic
rs.MoveLast
rs.MoveFirst


rem ahora rellenamos los cuadros de texto del formulario

CUADROtexto1 = RS.Fields("ID-T060").Value
CUADROtexto2 = RS.Fields(2).Value
CUADROtexto3 = RS.Fields(3).Value


…..
…..

RS.Close
rem condiciones



MODIFICAR --------------

para modificarlo hay que hacerlo al revés , pasar los datos de el formulario a la tabla con la instrucción UPDATE

EL EJEMPLO PONE [NOMBRE DE TABLA].[NOMBTRE DE CAMPO]= CUADRO DE TEXTO DEL FORMULARIO
OJO FIJate como se escriben los datos que son números, los que son cadenas y los que son fechas



REm MODIFICAR ------------------------------------------------------------------------

consulta = " UPDATE [T-VISITAS-CON1] SET "
consulta = consulta & " [T-VISITAS-CON1].[FECHA-CON1] = # " & Format([WFECHA-CON1], "mm/dd/yyyy") & "# , "
consulta = consulta & " [T-VISITAS-CON1].[EXPEDIENTE-CON1] = " & Str$([WEXPEDIENTE-CON1]) & " , "
consulta = consulta & " [T-VISITAS-CON1].[USUARIO-CON1] = '" & [WUSUARIO-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].[TRABAJADOR-CON1] = " & Str$([WTRABAJADOR-CON1]) & " , "
consulta = consulta & " [T-VISITAS-CON1].[NOMBRETRA-CON1] ='" & [WNOMBRETRA-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[VALORACION-GENERAL-CON1] = " & Str$([WVALORACION-GENERAL-CON1]) & " , "
' consulta = consulta & " [T-VISITAS-CON1].[OTROS-DATOS-CON1] = ' " & [WOTROS-DATOS-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[DETALLE-CON1] = ' " & [WDETALLE-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[OTROS-CON1-2] = ' " & [WOTROS-CON1-2] & "', "
consulta = consulta & " [T-VISITAS-CON1].[HORAVISITA-CON1] ='" & [WHORAVISITA-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[VISITAREALI-CON1] =' " & [WVISITAREALI-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].[OBSERVACIONES-CON1] = '" & [WOBSERVACIONES-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].ORDEN = " & Str$(WORDEN) & " , "
consulta = consulta & " [T-VISITAS-CON1].[INCILLA-CON1] = '" & [WINCILLA-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].NVP = " & Str$(WNVP) & " , "
consulta = consulta & " [T-VISITAS-CON1].[CREA/MOD/BOR] ='" & "M" & "', "
consulta = consulta & " [T-VISITAS-CON1].[FECHA-MOD] = #" & Format(Now(), "mm/dd/yyyy") & "# , "
consulta = consulta & " [T-VISITAS-CON1].NUMTORIZADO = " & Str$(NUM) & " , "
consulta = consulta & " [T-VISITAS-CON1].NOMAUTORIZADO ='" & NOM & "' "
consulta = consulta & " WHERE ((([T-VISITAS-CON1].[ID-CON1])= " & Str(Forms![F-PROGRAMAR-VISITAS]![Subformulario T-VISITAS-CON1].Form.[ID-CON1]) & " )) "

Set RS = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
RS.Open consulta, CON, adOpenDynamic, adLockOptimistic


Forms![F-PROGRAMAR-VISITAS].Refresh
MsgBox " REGISTRO MODIFICADO "
DoCmd.Close



PARA AÑADIR DATOS . Ponernos en el formulario y luego con la instrucuón INSERT

Rem INSERTAR ------------------------------------------------------------------------------------


consulta = "INSERT INTO [T-VISITAS-CON1] ( "
'consulta = consulta & " [ID-CON1], "
consulta = consulta & " [FECHA-CON1], "
consulta = consulta & "[EXPEDIENTE-CON1], "
consulta = consulta & " [USUARIO-CON1], "
consulta = consulta & " [TRABAJADOR-CON1], "
consulta = consulta & " [NOMBRETRA-CON1], "
' consulta = consulta & "[VALORACION-GENERAL-CON1], "
' consulta = consulta & "[OTROS-DATOS-CON1], "
' consulta = consulta & "[DETALLE-CON1], "
' consulta = consulta & "[OTROS-CON1-2], "
consulta = consulta & "[HORAVISITA-CON1], "
' consulta = consulta & " [VISITAREALI-CON1], "
consulta = consulta & "[OBSERVACIONES-CON1], "
consulta = consulta & "ORDEN, "
consulta = consulta & " [INCILLA-CON1], "
consulta = consulta & "NVP, "
consulta = consulta & "[CREA/MOD/BOR], "
consulta = consulta & "[FECHA-MOD], "
consulta = consulta & "NUMTORIZADO, "
consulta = consulta & "NOMAUTORIZADO ) "
consulta = consulta & "SELECT "
' consulta = consulta & " " & Str$(ultimor) & " AS Expr0, "
consulta = consulta & " #" & Format([WFECHA-CON1], "mm/dd/yyyy") & "# AS Expr1, "
consulta = consulta & " " & [WEXPEDIENTE-CON1] & " AS Expr2, "
consulta = consulta & " '" & [WUSUARIO-CON1] & "' AS Expr3, "
consulta = consulta & " " & [WTRABAJADOR-CON1] & " AS Expr4, "
consulta = consulta & " '" & [WNOMBRETRA-CON1] & "' AS Expr5, "
' consulta = consulta & " " & [WVALORACION-GENERAL-CON1] & " AS Expr6, "
' consulta = consulta & " " & [WOTROS-DATOS-CON1] & " AS Expr7, "
' consulta = consulta & " " & [WDETALLE-CON1] & " AS Expr8, "
' consulta = consulta & " " & [WOTROS-CON1-2] & " AS Expr9, "
consulta = consulta & " '" & [WHORAVISITA-CON1] & "' AS Expr10, "
' consulta = consulta & " " & [WVISITAREALI-CON1] & " AS Expr11, "
consulta = consulta & " '" & [WOBSERVACIONES-CON1] & "' AS Expr12, "
consulta = consulta & " " & Str$(WORDEN) & " AS Expr13, "
consulta = consulta & " '" & [WINCILLA-CON1] & "' AS Expr14, "
consulta = consulta & " " & WNVP & " AS Expr15, "
consulta = consulta & " '" & [WCREA/MOD/BOR] & "' AS Expr16, "
consulta = consulta & " #" & Format$([WFECHA-MOD], "mm/dd/yyyy") & "# AS Expr17, "
consulta = consulta & " " & WNUMTORIZADO & " AS Expr18, "
consulta = consulta & " '" & WNOMAUTORIZADO & "' AS Expr19 "
' consulta = consulta & " FROM [T-VISITAS-CON1] "


Set RS = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection

' MsgBox consulta

RS.Open consulta, CON, adOpenDynamic, adLockOptimistic




Limpiar datos

Además de ésto tendrás que lim piar los datos de la pantalla y esto tendrás que hacerlo con una llamada a una funcion como por ejemplo :

Private Sub LIMPIA_PANTALLA()
Rem LIMPIA LA PANTALLA
[WID-CON1].Value = ""
[WFECHA-CON1] = ""
[WEXPEDIENTE-CON1] = ""
[WUSUARIO-CON1] = ""
[WTRABAJADOR-CON1] = ""
[WNOMBRETRA-CON1] = ""
'[WVALORACION-GENERAL-CON1] = "0"
'[WOTROS-DATOS-CON1] = " "
[WDETALLE-CON1] = ""
[WOTROS-CON1-2] = ""
[WHORAVISITA-CON1] = ""
[WVISITAREALI-CON1] = ""
[WOBSERVACIONES-CON1] = ""
[WORDEN] = ""
[WINCILLA-CON1] = ""
[WNVP] = "1"
[WCREA/MOD/BOR] = "M"
[WFECHA-MOD] = Now()
[WNUMTORIZADO] = NUM
[WNOMAUTORIZADO] = NOM

End Sub
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

ayuda con comandos

Publicado por jorge H. leon (19 intervenciones) el 06/12/2011 18:58:32
Muchas gracias amigo Jose.... pondre en practica todo lo que me enseñaste y si me atoro en algo espero poder sguir consultadote????
de antmano muchas gracias tu amigo Jorge...
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