Visual Basic - Comor generar por codigo una busquedad en el formulario dw.ventaa en vb6 y acces

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de emilio
Val: 8
Ha disminuido su posición en 16 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comor generar por codigo una busquedad en el formulario dw.ventaa en vb6 y acces

Publicado por emilio (2 intervenciones) el 27/12/2016 20:18:05
Buenas estoy haciendo un pequeño.sistemas de ventas en visual basic 6 y acces como base pero ya hice varias tablas productos clientes usuarios pero llego ala parte donde tengo que hacer¿que el cosigo que esta en el formulario productos me aparesca cuando lo digite o escaneo pero no e podido hacerlo
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
Imágen de perfil de Andres Leonardo
Val: 4.017
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comor generar por codigo una busquedad en el formulario dw.ventaa en vb6 y acces

Publicado por Andres Leonardo (1673 intervenciones) el 27/12/2016 21:35:41
Emilio
Que tipo deconexion tienes
con gusto me agradaria si deseas colaborarte con tu problemas
Si deseas puedes colocar el codigo con gusto ayudarte

SAludos
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
Imágen de perfil de emilio
Val: 8
Ha disminuido su posición en 16 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comor generar por codigo una busquedad en el formulario dw.ventaa en vb6 y acces

Publicado por emilio (2 intervenciones) el 28/12/2016 02:46:25
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
Private Sub txtcodi_Change()
 With Rsproductos
  .Find " CODIGOP ='" & Trim(txtcodi.Text) & "'"
 If .BOF Or .EOF Then
     .Requery
    !codigop = txtcodi.Text
 
 With RSventas
 If .BOF Or .EOF = True Then
    .Requery
    .AddNew
    !codigo = txtcodi.Text
    !DESCRIPCION = txtarticulo
    !CANTIDAD = txtcanti
    !DESCUENTO = txtdescuento
    !PRECIO = txtprecio
    !total = txttotal
    !GRAVADO = Val(txtiva.Text)
 
 End If
 
 End With
 End If
 End With
End Su



¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡???'''''''''''''''''''''''''''''''''''''''''''''''''''''


esta es el codigo de la tabla productos



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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub cmdguardar_Click()
If txtcodigo.Text = "" Then MsgBox "el campo usuario esta vacio", vbInformation, "     AVISO  ": txtcodigo.SetFocus: Exit Sub
If txtcosto.Text = "" Then MsgBox "el campo clave esta vacio", vbInformation, "     AVISO  ": txtcosto.SetFocus: Exit Sub
If txtventa.Text = "" Then MsgBox "el campo puesto esta vacio", vbInformation, "     AVISO  ": txtventa.SetFocus: Exit Sub
If txtproducto.Text = "" Then MsgBox "el campo puesto esta vacio", vbInformation, "     AVISO  ": txtproducto.SetFocus: Exit Sub
If txtuti.Text = "" Then MsgBox "el campo puesto esta vacio", vbInformation, "     AVISO  ": txtuti.SetFocus: Exit Sub
If txtcodigo.Text = "" Then MsgBox "el campo usuario esta vacio", vbInformation, "     AVISO  ": txtcodigo.SetFocus: Exit Sub
With Rsproductos
.Requery
.Find "CODIGOP='" & Trim(txtcodigo.Text) & "'"
If .BOF Or .EOF Then
     .Requery
     .AddNew
        !codigop = txtcodigo.Text
        !PRODUCTO = txtproducto
        !costo = txtcosto.Text
        !UTILIDAD = txtuti.Text
        !subtotal = txtsubt.Text
        !VENTA = txtventa.Text
        !exento = 0
        !GRAVADO = Val(txtcosto) * Val(txtimp) / 100
        !IMPTOTAL = Val(txtcosto) * Val(txtimp)
        .Requery
        .Update
        txtcosto = ""
        txtimp = ""
        txtuti = ""
        txtsubt = ""
        txtventa = ""
        txtproducto = ""
        cmblista = ""
        txtcosto.SetFocus
         Else
          MsgBox " CODIGO YA EXITE", vbInformation, "  CODIGO"
          txtcodigo.SetFocus
          txtcodigo.SelStart = 0
          txtcodigo.SelLength = Len(txtcodigo.Text)
            Exit Sub
          End If
 
           End With
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
Imágen de perfil de Andres Leonardo
Val: 4.017
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comor generar por codigo una busquedad en el formulario dw.ventaa en vb6 y acces

Publicado por Andres Leonardo (1673 intervenciones) el 28/12/2016 14:33:32
SOy de los que disfrutan un poco mas el tema de las consultas SQL y los recordset y conexiones con ODBC ... yaque tengo mas experiencia .. si crees que te pueda ayudar con esto podriamos hacer algo chevere e innovador.

SAludos
Andres
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