Mensajes

gracias Serapis por la informacion

con el codigo de EdePC ya me vale, porque hace lo que yo necesito, osea leer text1 y text2
y va al form2, y cuando no existe me dice error registro no existe, cuando creas el user y password lo guarda tal y como lo has escrito, yo tengo a 10 usuarios y no hay problema ninguno.

siempre va bien saber varios temas.

gracias

muchas gracias EdePC

justo lo que necesitaba

tema resuelto

Gracias por responder BlackZeroX (Astaroth)


pero yo tengo el problema en archivo aleatorio no en sql

creo que se entiende el problema que hay
se trata de leer el user y password y que me avise de que vaya al formulario2 cuando existe un usuario y cuando no que vaya a el registro no existe.


gracias

Hola soy corlo
tengo el siguiente problema

cuando pongo lo siguiente en el apartado leer user y password

Text1.Text = Access.uname
Text2.Text = Access.passwd

el problema es cuando estoy leyendo el user y password introduzca datos diferentes en el text1.text y el text2.text , y pongo los datos que hay en fichero  siempre me dice bienbenido y va al form2

en cambio cuando quito


Text1.Text = Access.uname
Text2.Text = Access.passwd


siempre me dice El archivo no existe


Aqui pongo el codigo

Código [Seleccionar] Expandir



Option Explicit
Private Type Authorize
    uname As String * 30
    passwd As String * 30
End Type

Dim Pos As Integer
Dim Cont As Integer
Dim Fnum As Integer






Private Sub Command1_Click()
'Guardar
Dim Access As Authorize


Fnum = FreeFile
Access.uname = Text1.Text
Access.passwd = Text2.Text
Open App.Path & "\members1.dat" For Random As #Fnum Len = Len(Access)
    Cont = LOF(Fnum) / Len(Access)


Pos = Cont + 1
Put Fnum, Pos, Access

MsgBox "Nuevo Usuario Añadido: " & Access.uname & Access.passwd

Close #Fnum
End Sub

Private Sub Command2_Click()
'leer
Dim Access As Authorize

    Fnum = FreeFile

Open App.Path & "\members1.dat" For Random As #Fnum Len = Len(Access)
    Cont = LOF(Fnum) / Len(Access)

For Pos = 1 To Cont

   Get #Fnum, Pos, Access



   
   
Next
Text1.Text = Access.uname
Text2.Text = Access.passwd

Close #Fnum



   If Text1.Text = "" And Text1.Text <> Access.uname And Text2.Text <> Access.passwd Then
MsgBox "El archivo no existe", vbCritical, "No existe"
Text1.Text = ""
Text2.Text = ""
Exit Sub
End If

If Text1.Text = Access.uname Or Text2.Text = Access.passwd Then
MsgBox "Bienvenido", vbInformation
Form2.Show
Me.Hide
End If











End Sub

Private Sub Command3_Click()
End
End Sub


Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub












la pregunta seria:

como solucionar el tema de los avisos en el apartado leer

1. para ir al formulario dos

2. para el registro no existe


Gracias

Hola nebire


justo lo que necesitaba, ya lo he probado y funciona perfecto


gracias

Hola EDEPC, Gracias por contestar

ya he conseguido que me imprime la linea recta, pero no me hace la linea gruesa

Código [Seleccionar] Expandir




Printer.Print , "Hola"

DrawWidth = 5
DrawStyle = 2

Line (950, 2950)-(12000, 2950)


Printer.Line (950, 2950)-(12000, 2950)




Printer.EndDoc







Gracias

Hola soy Corlo
Mi problema es el siguiente:
Cuando lo hago por pantalla me lo hace bien

en un commandbutton1

Código [Seleccionar] Expandir



DrawWidth = 5
DrawStyle = 2

Line (950, 2950)-(12000, 2950)





Pero cuando lo hago por impresora, no me  hace nada

intento hacer esto:

Código [Seleccionar] Expandir






DrawWidth = 5
DrawStyle = 2




Printer.Line (950, 2950)-(12000, 2950)




Printer.EndDoc






pero no sale, he buscado por internet y no encuentro la solucion, gracias

perfecto


muchas gracias nebire

hola nebire

he resuelto el tema

en el codigo he modificado declarar la variable prod que es el producto

el prod me acepta 19 caracteres en el list1 a la hora de declarar la variable me lo hace bien


dim prod as string * 19



ahora si


gracias nebire

hola nebire

he hecho los cambios de la funcion y el resultado me sale igual


me podrias hacer un ejemplo lo de un array y usarlo como posicion


gracias