Ayuda con variables
Publicado por Carlos Omar (56 intervenciones) el 19/01/2012 16:08:41
Que tal foro, mi duda es la siguiente:
Quiero guardar datos en una tabla a partir de una variable, los datos estan alojados en otra tabla, pero mejor les pongo lo que llevo de codigo para poderme explcar mejor:
Y lo guardo de la siguiente manera:
Todo esto me funciona bien, discupen si ven alguna incongruencia pero pueda ser el copy/paste o por las pruebas que he estado haciendo, pero si funciona.
Lo que quiero es en lugar de ir almacenando la misma info en dos o mas tablas solamente guardar un campo unico de la Descripcion (El campo se llama IdArt).
Alguien me puede ayudar para almacenar en una var el valor del campo IdArt al momento de vaciarlo en el grid (Primer codigo), vaya quedando Var1, Var2, Var3, etc. y al guardar en lugar de guardar todo el grid, solo guardar las variables ?
Espero poder explicarme.
De antemano, gracias.
Quiero guardar datos en una tabla a partir de una variable, los datos estan alojados en otra tabla, pero mejor les pongo lo que llevo de codigo para poderme explcar mejor:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub TXTCANT_KeyPress(KeyAscii As Integer)
StrConn = "SELECT Descripcion,Stock FROM Almacen WHERE Descripcion='" & Trim(Text1.Text) & "'"
If KeyAscii = vbKeyReturn ThenIf TxtCant.Text <> "" Then
AbrirConn
Set RsConn = Conn.Execute(StrConn)
If RsConn.EOF = False Or RsConn.BOF = False Then
If RsConn!Stock < Val(TXTCant.Text) Then
Mensaje = MsgBox("Producto Insuficiente para Surtir !", vbInformation + vbOKOnly, "I N F O R M A C I O N")
Else
'**********LLENA GRID**********
MSFlexGrid1.AddItem vbTab & Trim(CboAsignacion.Text) & vbTab & Trim(Text1.Text) & vbTab & Trim(TxtUnidad.Text) & vbTab & Trim(TxtCant.Text)
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = MSFlexGrid1.Rows - 1
'********LIMPIAR CAMPOS********
Text1.Text = ""
TxtUnidad.Text = ""
TxtCant.Text = ""
'******REINICIAR EL CICLO******
CboAsignacion.SetFocusEnd If
End If
CerrarConn
End If
End If
End Sub
Y lo guardo de la siguiente manera:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ProcedimientoGuardar()
StrConn = "SELECT NoSolicitud FROM SalidasAlmacen WHERE NoSolicitud='" & Trim(TXTNoREQ.Text) & "'"
AbrirConn
Set RsConn = Conn.Execute(StrConn)
If RsConn.EOF = True Or RsConn.BOF = True Then
Mensaje = MsgBox("Guardando Solicitud de Material !", vbInformation + vbOKOnly, "A T E N C I O N !")
CerrarConn
GuardarSalidasAlmacen
GuardarDetalleSalidasAlmacen
ModificarStatusOrden
End If
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function GuardarDetalleSalidasAlmacen()
Cadena = "SELECT * FROM DetalleSalidasAlmacen"
AbrirDAO
Set Dr = BaseDatos.OpenRecordset(Cadena)
Fila = 0For Fila = 1 To MSFlexGrid1.Rows - 1
Dr.AddNewDr!FechaSolicitud = Format(TXTFECHA.Text, "dd/mm/yyyy")
Dr!NoSolicitudDetalleSalida = Trim(TXTNoREQ.Text)
Dr!NoOTDetalleSalida = Trim(TXTNoORDEN.Text)
Dr!Descripcion = MSFlexGrid1.TextMatrix(Fila, 1)
Dr!UnidadMedida = MSFlexGrid1.TextMatrix(Fila, 2)
Dr!CantSolicitado = MSFlexGrid1.TextMatrix(Fila, 3)
Dr.UpdateNext Fila
CerrarDAO
End Function
Todo esto me funciona bien, discupen si ven alguna incongruencia pero pueda ser el copy/paste o por las pruebas que he estado haciendo, pero si funciona.
Lo que quiero es en lugar de ir almacenando la misma info en dos o mas tablas solamente guardar un campo unico de la Descripcion (El campo se llama IdArt).
Alguien me puede ayudar para almacenar en una var el valor del campo IdArt al momento de vaciarlo en el grid (Primer codigo), vaya quedando Var1, Var2, Var3, etc. y al guardar en lugar de guardar todo el grid, solo guardar las variables ?
Espero poder explicarme.
De antemano, gracias.
Valora esta pregunta
0