Pregunta sobre archivo directo -

[gohanjaja]

Hola amigos , tengo un código q me está complicando la vida ojala puedan ayudarme.

Metí ésto dentro de un módulo:

Código:

Type Altalu

txtni As Integer

txtaño As Integer

CBODni As String * 3

txtdni As Long

txtape As String * 30

txtnom As String * 40

CBOEstado As String * 10

txtfecnac As Date

txtlnac As String * 50

txtdom As String * 80

txt As String * 20

txttit As String * 70

txtest As String * 50

CmbCondi As String * 20

txtmat1 As String * 50

txtmat2 As String * 50

txtmat3 As String * 50

txtmat4 As String * 50

CmbTrab As String * 20

txthora As String * 50

 End Type
 
 Public altas As Altalu

Ahora en el primer formulario , puse el OPEN de ésta manera:

Dentro del LOAD:

Código:

Open "alumnos" For Random As #1 Len = Len(altas)

Hasta ahora no me tiró ningún error, pero ahora quiero saber como puedo generar un Código de Alumno dentro de un textbox , que se valla sumando cada vez q tenga accesso a el .

Código de Alumno ( 1 ) Me tendría q salir como 1 , cuando estoy haciendo la primera alta del primero alumno, con todos sus datos.

Al ingresar otro alumno ( El código de Alumno ) tendría que aparecer en 2 automáticamente... pero no logro hacerlo funcionar.

Ahora yo vi un código por ahi , que para generar lo que yo quiero ... el código de alumno ( Legajo ) está de esta manera :

Código:

Open "datos.dat" For Random As #1 Len = Len(reg)
    b = 0: c = 1
    tot = FileLen("datos.dat") / Len(reg)

    d1 = Val(doc.Text)

While c <= tot
    Get #1, c, reg
    If c = reg.leg Then
        If d1 = reg.dni Then
            b = 1: c = tot
            x = MsgBox("Legajo Existente", vbCritical, "Error D.N.I.")
            doc.Text = ""
            nomb.Text = ""
            legaj.Text = ""
            edad.Text = ""
            doc.SetFocus
        End If
    End If
c = c + 1
Wend
    If b = 0 Then
        doc.Locked = True
        nomb.Visible = True
        nomb.SetFocus
    End If
Close

End Sub

Pero como ven , el OPEN ya no está en el LOAD, y tiene una extención DAT.
Como puedo hacer lo mismo yo ? pero usando Módulo ...

[lokoman]

Hola!!
Puedes explicarte mejor? estas añadiendo registros? o consultando?

[gohanjaja]

Iniciado por lokoman

Hola!!
Puedes explicarte mejor? estas añadiendo registros? o consultando?

Empieso desde 0 , como puedo crear registros a partir de un módulo con TYPE....END TYPE y Redimensionando espacio con Public, y luego consultar los mismos a lo largo de todo mi formulario principal?


Despues como colocar un contador...para los registros que voy incorporando , y el mismo que se sume... a medida que incremento los registros.


Se entiende? Gracias x contestar...saludos!