Mensajes

yo lo q hice fue esto

Código [Seleccionar] Expandir

maximo = 0
Do Until factura_articulo.EOF
   
    If factura_articulo("nº_factura") > maximo Then
        maximo = factura_articulo("nº_factura")
    End If
    factura_articulo.MoveNext
    Loop
    maximo = maximo + 1
    txtnfactura.Text = maximo

esta bien asi o puede ser q me tire error alguna ves? osea si ya lo empaqueto y todo eso

lo que quiero hacer es q cuando se abra el formulario factura q directamente se ponga el nº de factura. q se fije la utima factura q se gardo y q le sume 1. yo hice asi pero tenia 2 facturas guardadas y cuando lo probe pense q me salio bien pero cuando agregue otra factura en la base de datos me sigue dando el mismo numero de factura q antes osea sigue dando "3" en vez de "4"
este es el codigo si se pueden fijar todo bien

Código [Seleccionar] Expandir

factura_articulo.MoveNext
Do While Not factura_articulo.EOF
txtnfactura.Text = factura_articulo("nº_factura") + 1
Exit Do
Loop

me pueden decir cual es el error en este codigo? lo q queria hacer es q yo tengo horario de entrada y de salida y al elegir la opcion entrada q me busque en la base de datos en la tabla horaio_entrada todos los datos q tenga para mostrar y bueno despues lo mismo al elegir la opcion horario_salida. y lo unico q hace es buscar en la tabla "horario_entrada" al elegir cualquiera de las dos opciones... bueno me pueden decir q estoy haciendo mal?ah los botones q tengo son guardar, modificar, eliminar, buscar, anterior y siguiente y nose cual codigo le tengo q poner d todos esos botones, y bueno pongo el del boton guardar  aca esta el codigo:

Código [Seleccionar] Expandir

If Option1.Value = True Then
horario_entrada.MoveFirst
Do While Not horario_entrada.EOF
    If txtnempleado.Text = horario_entrada("nº_empleado") Then
        a = 1
        Exit Do
    End If
    horario_entrada.MoveNext
Loop
If a = 1 Then
    MsgBox "horario entrada existente"
    a = 0
Else
   horario_entrada.AddNew

   horario_entrada("nº_empleado") = txtnempleado.Text
    horario_entrada("dia") = txtdia.Text
    horario_entrada("mes") = txtmes.Text
    horario_entrada("año") = txtaño.Text
    horario_entrada("hora_entrada") = txthora.Text

   
   
    MsgBox "horario entrada guardado"
End If
Else

horario_salida.MoveFirst
Do While Not horario_salida.EOF
    If txtnempleado.Text = horario_salida("nº_empleado") Then
        a = 1
        Exit Do
    End If
    horario_salida.MoveNext
Loop
If a = 1 Then
    MsgBox "horario salida existente"
    a = 0
Else
   horario_salida.AddNew

   horario_salida("nº_empleado") = txtnempleado.Text
    horario_salida("dia") = txtdia.Text
    horario_salida("mes") = txtmes.Text
    horario_salida("año") = txtaño.Text
    horario_salida("hora_entrada") = txthora.Text

   
   
    MsgBox "horario salida guardado"
End If
End If

si ya se pero no dije q me haga la tarea igual ya me di cuenta q lo q pedi era mucho, weno es q no pense bien lo q quice decir ...lo voy a tener en cuenta todo lo q me dijeron de las dudas para la proxima...

bueno todo bien igual gracias

bueno primero in principal perdon por si escribi mal el titulo del asunto es q no sabia como poner por q son muchos problemas. bueno tengo q entregar un proyecto de una empresa de ventas de electrodomesticos es para el viernes 14/11 (por eso necesito q me respondan lo mas antes posible asi yo mañana lo termino)..... yo ya hice algo del programa pero hay cosas q no se como hacerlo como la factura y la busqueda (q tiene q ser en un datagrid quiero por q se me complica) .
                    me gustaria q me explicaran como poder usar el datagrid con el adodc(puede ser?)... quise buscar aca sobre eso del datagrid pero como q esta la busqueda en avanzado y no lo puedo poner en la forma normal por q en ese(avanzada) no busca nada, bah no de la forma q tiene q buscar.
bueno otra pregunta es q el programa esta hecho con el control data para abrir la base de datos de access y lo q queria saber es si uso el ado tambien se tira unos errores en el programa?. bueno aparte es si me pueden tirar una ayuda con respecto al laburo mira le pongo el link si los  pueden ver tmb por favor si puede ser
http://rapidshare.com/files/163239903/trabajo.zip.html

ahi tmb esta un archivo de word con la base d datos por q faltan tablas q nose como hacerlas. y algunos formularios van a tirar error por q a ultimo momento me di cuenta q taba mal y empece a cambiar todo.. pero hay algunas cosas q nose como hacerlas por eso pregunto

por favor necesito ayuda, yo se q pido mucho pero ya no tengo tiempo  para preguntar a los porfesores
   igual les agradezco

ah listo ya entendi gracias

hola mil disculpas por algo q nose q hice pero nose queria saber si me podrian decir por q me bloquearon el tema q hice sobre mi modem es este:
http://foro.elhacker.net/wireless_en_windows/ayuda_con_modem-t228891.0.html

no entendi por q me lo bloquearon yo esperaba q me pudieran ayudar sobre eso pero bueno nose q paso.
igual mil disculpas""

sabes q probe con los dos y me salta un cartel diciendo q no se encontro el miembro de datos y me sobresalta la propiedad "open" o en el otro codigo "recordsourse" y puse el componente ado y todo eso. nose q sera ostaria haciendo algo mal pero nose.
ya se q me dijeron q intente leer el manual d bd pero el problema es q tengo q entregarlo el lunes al trabajo y no me da el tiempo y por esa boludes no puedo hacer el tp

Hola mira sería así:

Código (vb) [Seleccionar] Expandir

RS.Open "SELECT DNI FROM Usuario WHERE Id = 9", Conex, adOpenKeyset, adLockOptimistic
        Text2.Text = RS2!DNI
RS.Close

Siendo  "RS" el recorset que en tu caso es "stock", si sabes un poquito de SQL, notarás que se selecciona de la tabla "Usuario" el "DNI" (cédula o número de identificación), del registro cuyo ID sea igual a 9 y luego lo pasamos a un textbox.

saludos!

si pero las consultas son para access o algo asi es distinto creo o seria lo mismo?