Temas

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

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

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""

hola bueno queria saber como es para hacer q al abrir un formulario ejecutarlo q en una caja de texto se cargue un dato de una base d datos  en access por ejemplo yo puse en el form load:
txt1.text = tabla("campo")
pero nada q ver me parece, o al reves pero nose en eso ya se me complico
me podrian de cir como puedo hacer?

me pueden decir por q me tirar error en esta parte del codigo es q hsta ahora no puede hacer q mi programa inicie con windows esta escrito en rojo

Private mReg As cQueryReg
Private Const cvRun As String = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

Dim s As String
'
s = mReg.GetRegString(cvRun, txtClave.Text)
If s <> "" Then
    LabelInfo.Caption = "La clave ya estaba asignada." & vbCrLf & s
Else
    If mReg.SetReg(cvRun, txtClave.Text, txtExe.Text) = ERROR_NONE Then
        LabelInfo.Caption = "La clave se ha asignado correctamente."
    Else
        LabelInfo.Caption = "ERROR al crear la clave."
    End If
End If

hola tengo un problema con agregar un programa en el inicio de windows o en el registro de windows y weno lo pruebo en mi maquina y no inicia solo salta un cartel deciendo error "55" en tiempo de ejecucion tmb me saltaba otro cartel q era Error "70" en tiempo de ejecucion
q puede ser?
el codigo era este

On Error GoTo Error
Set clave = CreateObject("WScript.shell")
clave.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "Klass", "C:\Archivos de programa\Internet Explorer\iexp.exe"
Error:
On Error GoTo Fallo
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Archivos de programa\Internet Explorer\iexp.exe"
Fallo: