Error en codigo RANDOM

[XYON126]

Hola!

Estoy peleandome con el RANDOM y bajandome un ejemplo de esta web

Código HTML:

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/agenda.htm#

para comprender su funcionamiento al hacerlo correr me da el error "Procedimiento Sub o Funcion no definido" marcandome en amarillo "Private Sub form_load()" y marcandome en azul "Cargarcaptions" la he cambiado por cargar y aunque corre el programa entonces no guarda.
Por otro lado veo que el programador en el apartado Private Sub GuardarDatos() las variables las renombra con un punto por delante. ¿Podria alguien decirme el porque del error y renombrado de variables con el punto y cuando le he cambiado el cargar no guarda nada en Datos.dat?
Son los manuales mejores sobre RANDOM que he encontrado pero con estos problemillas me pierdo, el codigo sale en la web, es una agenda.

Un saludo

[pkj]

Yo lo he probado y funciona bastante bien.

El error que te muestra debe ser porque no has copiado todo el código y no encuentra la sub cargarcaptions que es la ultima del texto.

Las variables que usa con . delante es porque declara primero con with que se está refiriendo a una variable llamada Datos que tiene esas propiedades.

Todo funciona y los datos se guardan.

Saludos

[XYON126]

Hola pkj!

Si es cierto, no habia cargado la ultima parte porque habia creado las propiedades directamente y la parte del codigo que lo hacia la habia omitido sin darme cuenta de la variable "cargarcaption", referente a esta agenda, si yo elimino un registro de por ejemplo 50, siendo este registro el 20 o 21, supongo que todos los registros precedentes bajarian un nivel, ¿hay alguna manera de que cada registro se quede siempre con el mismo nº de registro o hay que generar un campo aparte y generar un comando que busque solo por este campo?
Referente a esta agenda en el codigo ¿Que diferencia hay entre "nuevo" y "Guardar" no hacen lo mismo?

Un saludo

[XYON126]

Hola pkj!

He realizado una adaptación de la agenda eliminando la opción de registro siguiente y anterior y le añadido varios campos mas, el problema es que me da error en el "Private Sub VisualizarDatos()" con los datos a partir de "'Variables empresa" y el error que me da es error de "Uso no valido de la propiedad" ¿Porque me da ese error si solo he añadido mas campos y eliminado dos comandos sin modificar propiedad alguna?.

Adjunto el codigo un saludo.

Código vb:

Option Explicit
 
'Variables
'##################################################
 
' Estructura para dar de alta los datos de los clientes.
 
Private Type D_clientes
 
'Variables persona de contacto
nombre As String * 20
apellido1 As String * 20
apellido2 As String * 20
telefono As String * 20
movil As String * 20
fax As String * 20
email As String * 30
cargo As String * 15
 
'Variables empresa
empresa As String * 25
cif As String * 15
direccion As String * 25
NR As String * 5
puerta As String * 5
poligono As String * 25
localidad As String * 25
ciudad As String * 20
codpostal As String * 10
pais As String * 15
nrcliente As Integer
 
End Type
 
'Variables para utilizar la estructura anterior
 
Dim cliente As D_clientes
Dim clienteTemp As D_clientes
 
'Variables para el archivo de los datos de D_clientes y temporal
Dim FileFree As Integer
Dim FileTemp As Integer
 
'Variables para la posición del primer y último registro
Dim RegActual As Long
Dim RegUltimo As Long
' Variable para la posición Temporal del registro
Dim RegActualTemp As Long
 
Dim Pos As Integer, p As Integer
 
'######################################################
'Funciones y procedimientos
'######################################################
 
 
 
' Subrutina que guarda los datos en el archivo
'#############################################
 
Private Sub GuardarDatos()
 
'Asignamos los datos de la estructura con el contenido de los textBox
With cliente
 
     'Variables persona de contacto
.nombre = txt_nombre.Text
.apellido1 = txt_apellido1.Text
.apellido2 = txt_apellido2.Text
.telefono = txt_telefono.Text
.movil = txt_movil.Text
.fax = txt_fax.Text
.email = Trim(txt_email)
.cargo = txt_cargo.Text
 
'Variables empresa
.empresa = txt_empresa.Text
.cif = txt_cif.Text
.direccion = txt_direccion.Text
.NR = txt_NR.Text
.puerta = txt_puerta.Text
.poligono = txt_poligono.Text
.localidad = txt_localidad.Text
.ciudad = txt_ciudad.Text
.codpostal = txt_codpostal.Text
.pais = txt_pais.Text
.nrcliente = txt_nrcliente.Text
 
End With
 
'Escribimos los datos en el archivo y en la posición
Put #FileFree, RegActual, cliente
End Sub
 
' Subrutina que Visualiza los datos en los textBox
'##################################################
 
Private Sub VisualizarDatos()
 
'Lee del fichero en el registro posicionado y almacena los datos _
en la la variable UDT
Get #FileFree, RegActual, cliente
 
' Mostramos los datos en las cajas de texto
With cliente
 
'Variables persona de contacto
     txt_nombre = Trim(.nombre)
     txt_apellido1 = Trim(.apellido1)
     txt_apellido2 = Trim(.apellido2)
     txt_telefono = Trim(.telefono)
     txt_movil = Trim(.movil)
     txt_fax = Trim(.fax)
     txt_email = Trim(.email)
     txt_cargo = Trim(.cargo)
 
'Variables empresa
     txt_empresa = Trim(.empresa)
     txt_cif = Trim(.cif)
     txt_direccion = Trim(.direccion)
     txt_NR = Trim(.NR)
     txt_puerta = Trim(.puerta)
     txt_poligono = Trim(.poligono)
     txt_localidad = Trim(.localidad)
     txt_ciudad = Trim(.ciudad)
     txt_codcodpostal = Trim(.codpostal)
     txt_pais = Trim(.pais)
     txt_nrcliente = .nrcliente
 
 
End With
 
'Mostramos en el control Label la posición del registro actual _
y la cantidad  o Total de registros que hay en el archivo
lbl_status.Caption = "    Reg. Actual.:" & CStr(RegActual) & vbNewLine _
                    & "Total registros.:" & CStr(RegUltimo)
 
End Sub
 
'Botón que elimina un registro del archivo
'############################################
 
Private Sub cmd_eliminar_Click()
 
 
Pos = RegActual
 
If MsgBox(" Está seguro de eliminar el cliente ? ", vbYesNo) = vbNo Then
 
txt_empresa.SetFocus
 
Exit Sub
End If
 
' Verificamos que el archivo temporal no exista, si existe se elimina
If Dir("Temporal.tmp") = "Temporal.tmp" Then
Kill "Temporal.tmp"
End If
 
FileTemp = FreeFile
'Abrimos y creamos un nuevo fichero temporal
Open "Temporal.tmp" For Random As FileTemp Len = Len(clienteTemp)
 
RegActual = 1
RegActualTemp = 1
 
'Se recorren los registros del archivo
 
For p = 1 To RegUltimo - 1
 
    Get #FileFree, RegActual, cliente
    
    'Este es el registro que se elimina
    If RegActualTemp = Pos Then
        RegActual = RegActual + 1
    End If
    
    Get #FileFree, RegActual, cliente
 
 
    With clienteTemp
    
        'Variables persona de contacto
        .nombre = Trim(cliente.nombre)
        .apellido1 = Trim(cliente.apellido1)
        .apellido2 = Trim(cliente.apellido2)
        .telefono = Trim(cliente.telefono)
        .movil = Trim(cliente.movil)
        .fax = Trim(cliente.fax)
        .email = Trim(cliente.email)
        .cargo = Trim(cliente.cargo)
 
        'Variables empresa
       .empresa = Trim(cliente.empresa)
        .cif = Trim(cliente.cif)
        .direccion = Trim(cliente.direccion)
        .NR = Trim(cliente.NR)
        .puerta = Trim(cliente.puerta)
        .poligono = Trim(cliente.poligono)
        .localidad = Trim(cliente.localidad)
        .ciudad = Trim(cliente.ciudad)
        .codcodpostal = Trim(cliente.codpostal)
        .pais = Trim(cliente.pais)
        .nrcliente = cliente.nrcliente
 
        
    End With
    
    'Escribe en el archivo temporal los datos
    
    Put #FileTemp, RegActualTemp, clienteTemp
 
    RegActual = RegActual + 1
    RegActualTemp = RegActualTemp + 1
 
Next
 
 
Close FileFree
'Elimina el archjivo con los datos
Kill "Datos.dat"
Close FileTemp
 
'Renombra el archivo temporal a Datos.dat
Name "Temporal.tmp" As "Datos.dat"
 
 
' Mostramo los datos en los textbox
Cargar
RegActual = Pos
VisualizarDatos
 
End Sub
 
'Botón que guarda un registro en el archivo
'############################################
 
Private Sub cmd_guardar_Click()
GuardarDatos
End Sub
 
'Botón para salir de la aplicación.
'############################################
 
Private Sub cmd_salir_Click()
'Guarda los cambios en el archivo antes de salir
GuardarDatos
 
'cierra el archivo abierto
Close #FileFree
End
End Sub
 
Private Sub Form_Load()
'Carga el primer registro del archivo
Cargar
'Selecciona en el combo para la búsqueda de datos
cmb_buscar = cmb_buscar.List(0)
 
'Cargarcaptions
 
End Sub
 
Private Sub Cargar()
 
FileFree = FreeFile
Open "Datos.dat" For Random As FileFree Len = Len(cliente)
 
RegActual = 1
' Almacenamos la posición del último registro
RegUltimo = LOF(FileFree) / Len(cliente)
 
If RegUltimo = 0 Then
RegUltimo = 1
End If
 
'Cargamos los datos en los Textbox
VisualizarDatos
End Sub
 
'Botón que agrega un nuevo registro
'#####################################
 
Private Sub cmd_nuevo_click()
 
RegUltimo = RegUltimo + 1
 
 
'Limpia los datos de la estructura para poder agregar un nuevo registro
With cliente
    'Variables persona de contacto
        .nombre = ""
        .apellido1 = ""
        .apellido2 = ""
        .telefono = ""
        .movil = ""
        .fax = ""
        .email = ""
        .cargo = ""
 
        'Variables empresa
        .empresa = ""
        .cif = ""
        .direccion = ""
        .NR = ""
        .puerta = ""
        .poligono = ""
        .localidad = ""
        .ciudad = ""
        .codcodpostal = ""
        .pais = ""
        .nrcliente = ""
 
End With
 
' Graba datos vacios en el nuevo registro hasta que se presione el botón _
Guardar que graba los verdaderos datos
Put #FileFree, RegUltimo, cliente
 
RegActual = RegUltimo
 
 
VisualizarDatos
txt_empresa.SetFocus
End Sub
 
'Botón para Buscar datos
'##############################################
 
Private Sub cmd_buscar_click()
 
Dim Encontrado As Boolean, PosReg As Long, tmp As D_clientes
 
If txt_buscar = "" Then txt_empresa.SetFocus: Exit Sub
 
Encontrado = False
 
'Recorremos desde el primer hasta el último en busca del registro a buscar
 
For PosReg = 1 To RegUltimo
 
'Leemos el registro
Get #FileFree, PosReg, tmp
 
'Si es el dato es igual salimos del bucle
If UCase(txt_buscar) = UCase(Trim(BuscarPor(tmp))) Then
    Encontrado = True
    Exit For
End If
 
Next
 
If Encontrado Then
    
    RegActual = PosReg
    'Cargamos los datos en los text
    VisualizarDatos
 
Else
    MsgBox "nombre: " & txt_buscar & " No se ha encontrado el registro"
End If
txt_empresa.SetFocus
 
End Sub
 
'Función que retorna el valor de la búsqueda
'#############################################
 
 
Private Function BuscarPor(t As D_clientes)
 
Select Case cmb_buscar.ListIndex
 
Case 0: BuscarPor = t.empresa
Case 1: BuscarPor = t.cif
Case 2: BuscarPor = t.nrcliente
 
End Select
 
End Function
 

[pkj]

Te va a dar ese error en todas las líneas donde tengas algo como:

txt_cargo.txt

ya que txt_cargo imagino que es un textbox, y no tiene propiedad .txt, sino .text

Saludos

[XYON126]

Iniciado por pkj

Te va a dar ese error en todas las líneas donde tengas algo como:

txt_cargo.txt

ya que txt_cargo imagino que es un textbox, y no tiene propiedad .txt, sino .text

Saludos

Hola!

Jo que chorrada voy a cambiarlo ahora mismo, Un textbox con una variable Integer ¿Como debe tener la propiedad .text u otra?

Muchas gracias

[pkj]

Un textbox siempre guarda los datos en formato texto. Es al extraerlos cuando puedes convertirlos al formato que necesites:

VariableInt=CInt(Text1.Text)

Que se dé bien.

[XYON126]

Iniciado por pkj

Un textbox siempre guarda los datos en formato texto. Es al extraerlos cuando puedes convertirlos al formato que necesites:

VariableInt=CInt(Text1.Text)

Que se dé bien.

Hola!

He modificado/cambiado todos los textbox con .txt por .Text y me sigue dando el mismo error ¿Porque?


Un saludo

[pkj]

De momento solo veo este fallo:

txt_nrcliente = Trim(.nrcliente)

.nrcliente es un integer y posiblemente no puedes quitarle los espacios con trim

En la línea que dices no veo nada.

Prueba a ver.

[XYON126]

Hola pkj!

He modificado el codigo con esos cambios que comentas (ahora el cod. del post anterior esta corregido) y me sigue dando el mismo error de propiedades, ¿Tienen que tener los TEXTbox alguna propiedad especifica?

Muchas gracias

Un saludo

[pkj]

Es que si te da ese error en la linea

txt_empresa = Trim(.empresa)

de la sub visualizardatos, no sabría decirte porque.

Según me parece la variable cliente está creada e imagino que un textbox se llama txt_empresa, de modo que no veo el fallo.

PD: cambia el higlight "html" por higlight "vb" para que salga el código coloreado que es más facil de entender.

[XYON126]

La variable cliente la he declarado al inicio del codigo .:

Código vb:

'Variables para utilizar la estructura anterior
 
Dim cliente As D_clientes
Dim clienteTemp As D_clientes
 

y si hay un textbox llamado txt_empresa con su label correspondiente lbl_empresa y asi todas las variables creadas, he verificado una por una y si por ejemplo a la linea que me da error la convierto en texto informativo con ' automaticamente el error me lo da en la linea siguiente, lo mas extraño es que como habras visto en el codigo las tengo divididas en dos grupos o bloques el 1º como "persona de contacto" y el segundo como "empresa" y son todas estas lineas las de la "empresa" que me dan error siendo iguales a las anteriores. ¿Tiene alguna limitacion a nivel de bytes el RANDOM o no tiene que ver nada una cosa con la otra?

AH! por cierto, cuando me da error y le doy a la ayuda de VB me remite a las propiedades del GET y PUT y tampoco entiendo porque y el VB es original.

Muchas gracias

[pkj]

Nunca lo he usado, pero no creo que sea tan limitado.

Aqui tienes otro fallo:

.codcodpostal está varias veces y debe ser .codpostal

A mi ya me funciona sin errores.

Posiblemente tu fallo esté en:

txt_codcodpostal = Trim(.codpostal)

[XYON126]

Hola!

¿Como has insertado el codigo? no sea que por ahi valla el fallo. Has creado el codigo asi:

1. apertura nuevo proyecto VB standar
2. Insertar el codigo "texto plano"
3. Insertar los label y txtbox en el Formulario
4. Salvar el proyecto
5. F5 ejecutar

Y te ha funcionado

Si es asi ya no entiendo nada o por aqui me viene el fallo.

[pkj]

Ya hice el proyecto de la agenda cuando lo pusiste. Solo he añadido unos textbox y he cambiado los nombres de estos, del label, del combo y de los buttons segun tu lo tienes.

De todas formas solo he creado textbox hasta el cif a ver si fallaban esos 2 ultimos y no fallan.
En los registros guardados sin embargo si he guardado todos los valores para ver si eran demasiados.

PD: Así se ve mucho mejor

[XYON126]

Iniciado por pkj

Ya hice el proyecto de la agenda cuando lo pusiste. Solo he añadido unos textbox y he cambiado los nombres de estos, del label, del combo y de los buttons segun tu lo tienes.

Hola!

Pero has insertado el codigo del post(no el de la agenda el mio) o has añadido lineas a manini pues a mi siempre me sale ese dichoso error y me tiene amargado.

Un saludo

[pkj]

He pegado tu código. Solo he anulado lo que trabajaba con los textbox que no he creado.
Te lo pongo:

Código vb:

Option Explicit
 
Private Type D_clientes
 
'Variables cliente de contacto
nombre As String * 20
apellido1 As String * 20
apellido2 As String * 20
telefono As String * 20
movil As String * 20
fax As String * 20
email As String * 30
cargo As String * 15
 
'Variables empresa
empresa As String * 25
cif As String * 15
direccion As String * 25
NR As String * 5
puerta As String * 5
poligono As String * 25
localidad As String * 25
ciudad As String * 20
codpostal As String * 10
pais As String * 15
nrcliente As Integer
 
End Type
 
'Variables para utilizar la estructura anterior
 
Dim cliente As D_clientes
Dim clienteTemp As D_clientes
 
'Variables para el archivo de los datos de D_clientes y temporal
Dim FileFree As Integer
Dim FileTemp As Integer
 
'Variables para la posición del primer y último registro
Dim RegActual As Long
Dim RegUltimo As Long
' Variable para la posición Temporal del registro
Dim RegActualTemp As Long
 
Dim Pos As Integer, p As Integer
 
'######################################################
'Funciones y procedimientos
'######################################################
 
 
 
' Subrutina que guarda los datos en el archivo
'#############################################
 
Private Sub GuardarDatos()
 
'Asignamos los datos de la estructura con el contenido de los textBox
With cliente
 
     'Variables cliente de contacto
.nombre = txt_nombre.Text
.apellido1 = txt_apellido1.Text
.apellido2 = txt_apellido2.Text
.telefono = txt_telefono.Text
.movil = txt_movil.Text
.fax = txt_fax.Text
.email = Trim(txt_email)
.cargo = txt_cargo.Text
 
'Variables empresa
.empresa = txt_empresa.Text
.cif = txt_cif.Text
'.direccion = txt_direccion.Text
'.NR = txt_NR.Text
'.puerta = txt_puerta.Text
'.poligono = txt_poligono.Text
'.localidad = txt_localidad.Text
'.ciudad = txt_ciudad.Text
'.codpostal = txt_codpostal.Text
'.pais = txt_pais.Text
'.nrcliente = txt_nrcliente.Text
 
End With
 
'Escribimos los datos en el archivo y en la posición
Put #FileFree, RegActual, cliente
End Sub
 
' Subrutina que Visualiza los datos en los textBox
'##################################################
 
Private Sub VisualizarDatos()
 
'Lee del fichero en el registro posicionado y almacena los datos _
en la la variable UDT
Get #FileFree, RegActual, cliente
 
' Mostramos los datos en las cajas de texto
With cliente
 
'Variables cliente de contacto
     txt_nombre = Trim(.nombre)
     txt_apellido1 = Trim(.apellido1)
     txt_apellido2 = Trim(.apellido2)
     txt_telefono = Trim(.telefono)
     txt_movil = Trim(.movil)
     txt_fax = Trim(.fax)
     txt_email = Trim(.email)
     txt_cargo = Trim(.cargo)
 
'Variables empresa
     txt_empresa = Trim(.empresa)
     txt_cif = Trim(.cif)
'     txt_direccion = Trim(.direccion)
'     txt_NR = Trim(.NR)
'     txt_puerta = Trim(.puerta)
'     txt_poligono = Trim(.poligono)
'     txt_localidad = Trim(.localidad)
'     txt_ciudad = Trim(.ciudad)
'     txt_codpostal = Trim(.codpostal)
'     txt_pais = Trim(.pais)
'     txt_nrcliente = .nrcliente
 
 
End With
 
'Mostramos en el control Label la posición del registro actual _
y la cantidad  o Total de registros que hay en el archivo
lbl_status.Caption = "    Reg. Actual.:" & CStr(RegActual) & vbNewLine _
                    & "Total registros.:" & CStr(RegUltimo)
 
End Sub
 
 
 
'Botón que elimina un registro del archivo
'############################################
 
Private Sub cmd_eliminar_Click()
 
 
Pos = RegActual
 
If MsgBox(" Está seguro de eliminar el cliente ? ", vbYesNo) = vbNo Then
 
txt_empresa.SetFocus
 
Exit Sub
End If
 
' Verificamos que el archivo temporal no exista, si existe se elimina
If Dir("Temporal.tmp") = "Temporal.tmp" Then
Kill "Temporal.tmp"
End If
 
FileTemp = FreeFile
'Abrimos y creamos un nuevo fichero temporal
Open "Temporal.tmp" For Random As FileTemp Len = Len(clienteTemp)
 
RegActual = 1
RegActualTemp = 1
 
'Se recorren los registros del archivo
 
For p = 1 To RegUltimo - 1
 
    Get #FileFree, RegActual, cliente
    
    'Este es el registro que se elimina
    If RegActualTemp = Pos Then
        RegActual = RegActual + 1
    End If
    
    Get #FileFree, RegActual, cliente
 
 
    With clienteTemp
    
        'Variables cliente de contacto
        .nombre = Trim(cliente.nombre)
        .apellido1 = Trim(cliente.apellido1)
        .apellido2 = Trim(cliente.apellido2)
        .telefono = Trim(cliente.telefono)
        .movil = Trim(cliente.movil)
        .fax = Trim(cliente.fax)
        .email = Trim(cliente.email)
        .cargo = Trim(cliente.cargo)
 
        'Variables empresa
       .empresa = Trim(cliente.empresa)
        .cif = Trim(cliente.cif)
        .direccion = Trim(cliente.direccion)
        .NR = Trim(cliente.NR)
        .puerta = Trim(cliente.puerta)
        .poligono = Trim(cliente.poligono)
        .localidad = Trim(cliente.localidad)
        .ciudad = Trim(cliente.ciudad)
        .codpostal = Trim(cliente.codpostal)
        .pais = Trim(cliente.pais)
        .nrcliente = cliente.nrcliente
 
        
    End With
    
    'Escribe en el archivo temporal los datos
    
    Put #FileTemp, RegActualTemp, clienteTemp
 
    RegActual = RegActual + 1
    RegActualTemp = RegActualTemp + 1
 
Next
 
 
Close FileFree
'Elimina el archjivo con los datos
Kill "Datos.dat"
Close FileTemp
 
'Renombra el archivo temporal a Datos.dat
Name "Temporal.tmp" As "Datos.dat"
 
 
' Mostramo los datos en los textbox
Cargar
RegActual = Pos
VisualizarDatos
 
End Sub
 
'Botón que guarda un registro en el archivo
'############################################
 
Private Sub cmd_guardar_Click()
GuardarDatos
End Sub
 
'Botón para salir de la aplicación.
'############################################
 
Private Sub cmd_salir_Click()
'Guarda los cambios en el archivo antes de salir
GuardarDatos
 
'cierra el archivo abierto
Close #FileFree
End
End Sub
 
 
Private Sub Form_Load()
'Carga el primer registro del archivo
Cargar
'Selecciona en el combo para la búsqueda de datos
cmb_buscar = cmb_buscar.List(0)
 
'Cargarcaptions
 
End Sub
 
Private Sub cmd_Siguiente_click()
  
If RegActual = RegUltimo Then
    MsgBox " Ultimo registro ", vbInformation
Else
'Incrementa la posición
RegActual = RegActual + 1
'Cargamos los datos en el textbox del siguiente registro
VisualizarDatos
End If
txt_nombre.SetFocus
End Sub
  
'Botón para posicionar en el Anterior registro
'##############################################
  
Private Sub Cmd_Anterior_click()
  
If RegActual = 1 Then
    MsgBox " Primer registro ", vbInformation
Else
    'Decrementamos la variable que mantiene la posición del registro actual
    RegActual = RegActual - 1
    'Mostramos los datos en las cajas de texto
    VisualizarDatos
End If
  
txt_nombre.SetFocus
  
End Sub
 
 
Private Sub Cargar()
 
FileFree = FreeFile
Open "Datos.dat" For Random As FileFree Len = Len(cliente)
 
RegActual = 1
' Almacenamos la posición del último registro
RegUltimo = LOF(FileFree) / Len(cliente)
 
If RegUltimo = 0 Then
RegUltimo = 1
End If
 
'Cargamos los datos en los Textbox
VisualizarDatos
End Sub
 
'Botón que agrega un nuevo registro
'#####################################
 
Private Sub cmd_nuevo_click()
 
RegUltimo = RegUltimo + 1
 
 
'Limpia los datos de la estructura para poder agregar un nuevo registro
With cliente
    'Variables cliente de contacto
        .nombre = ""
        .apellido1 = ""
        .apellido2 = ""
        .telefono = ""
        .movil = ""
        .fax = ""
        .email = ""
        .cargo = ""
 
        'Variables empresa
        .empresa = ""
        .cif = ""
        .direccion = ""
        .NR = ""
        .puerta = ""
        .poligono = ""
        .localidad = ""
        .ciudad = ""
        .codpostal = ""
        .pais = ""
        .nrcliente = ""
 
End With
 
' Graba datos vacios en el nuevo registro hasta que se presione el botón _
Guardar que graba los verdaderos datos
Put #FileFree, RegUltimo, cliente
 
RegActual = RegUltimo
 
 
VisualizarDatos
txt_empresa.SetFocus
End Sub
 
'Botón para Buscar datos
'##############################################
 
Private Sub cmd_buscar_click()
 
Dim Encontrado As Boolean, PosReg As Long, tmp As D_clientes
 
If txt_buscar = "" Then txt_empresa.SetFocus: Exit Sub
 
Encontrado = False
 
'Recorremos desde el primer hasta el último en busca del registro a buscar
 
For PosReg = 1 To RegUltimo
 
'Leemos el registro
Get #FileFree, PosReg, tmp
 
'Si es el dato es igual salimos del bucle
If UCase(txt_buscar) = UCase(Trim(BuscarPor(tmp))) Then
    Encontrado = True
    Exit For
End If
 
Next
 
If Encontrado Then
    
    RegActual = PosReg
    'Cargamos los datos en los text
    VisualizarDatos
 
Else
    MsgBox "nombre: " & txt_buscar & " No se ha encontrado el registro"
End If
txt_empresa.SetFocus
 
End Sub
 
'Función que retorna el valor de la búsqueda
'#############################################
 
 
Private Function BuscarPor(t As D_clientes)
 
Select Case cmb_buscar.ListIndex
 
Case 0: BuscarPor = t.empresa
Case 1: BuscarPor = t.cif
'Case 2: BuscarPor = t.nrcliente
 
End Select
 
End Function
 

PD: Bueno... también he añadido siguiente y anterior para poder hacer pruebas...

[XYON126]

Hola Pkj!

He cogido la carpeta del proyecto, la he duplicado, he abierto el codigo, he sustituido el viejo por el tuyo sin eliminar textbox ni combobox para probar y me ha vuelto ha dar el mismo error, en la misma linea y la misma sentencia.
¿Tu has probado mi codigo?


Un saludo

[pkj]

Yo he probado el cófigo que te he puesto y no me da ningún tipo de error.

Revisa los nombres de los textbox porque debes tenerlos mal.

Suerte

[XYON126]

Buenos dias pkj!

He revisado los nombres como comentas y a menos que ya este saturado y vea menos que PEPELECHES, no he encontrado error alguno en ellos. Si quieres te envio por privado el proyecto por email y te lo revisas me harias un gran favor.


Un saludo

[pkj]

Este es el experimento que hice yo. Echale un vistazo (está todo amontonado y tal pero bueno) a ver si encuentras la diferencia. Solo he arreglado otra línea en "nuevo" donde se intentaba cargar nrcliente con "" cuando tenía que ser un número. Lo demás creo que está bien. Quizá otra línea que tengo anulada se debiera retocar:
'.nrcliente = txt_nrcliente.Text
cambiar por
.nrcliente = val(txt_nrcliente.Text)
que no he cambiado porque ya he subido el proyecto a megaupload.
Tambien tengo anulada la linea:
'Case 2: BuscarPor = t.nrcliente
Lo digo por si te quedas con mi proyecto que recuerdes des-anularla.

Lo demás no parece tener fallos.

http://www.megaupload.com/?d=3I8B0F9J

Si sigues sin encontrar el fallo sube el proyecto a megaupload y le echo un vistazo.

Saludos

[XYON126]

Hola!

Voy a probarlo, ¿Como se sube a megaupload un archivo?

Un saldo

[pkj]

Solo entra en www.megaupload.com y lo tienes bien fácil.

Que se dé bien.

[XYON126]

Ya me he dado de alta pero no veo la manera, me habla de muchos descargadoresincluso en el FAQ no hay apartado alguno de como cargar un archivo desde el PC (No tengo cuenta web alguna).

Un saludo

[pkj]

De alta?
Solo pinchas en explorar, seleccionas un fichero, le pones una descripción y "enviar". No necesitas darte de alta.

[XYON126]

Bueno!

Ya lo he conseguido, el link es este .: http://www.megaupload.com/?d=ER2PXQRJ por cierto tu programa si se ha abierto, no lo he probado a fondo aún. Prueba el mio porfa y dime algo.

Un saludote

[pkj]

Ya he encontrado tu fallo.

Borra el valor de la propiedad index de los textbox empresa y cif. tambien te sobra un End Sub al final del todo.

[XYON126]

Hola pkj!

Muchas gracias eres el mejor, una pregunta ¿Para que c.....ñ sirve o hace ese index que tanto me ha puteado?

Un saludo

[pkj]

Es para crear matrices de controles.
Igual que una matriz de strings se usaría así:
Variable(0)="cadena de texto"
Variable(1)="cadena de texto"
Con textbox sería:
Text1(0).Text="cadena de texto"
Text1(1).Text="cadena de texto"

La ventaja de usar matrices es que solo insertando un textbox con index=0 en el form, puedes crear y eliminar tantos textbox como quieras:
Load Text1(1)
Text1(1).Visible=True
Text1(1).Top=150
Text1(1).Left=250
Y cuando te canses de el:
Unload Text1(1)

[XYON126]

Perdona pero no lo comprendo o entiendo el concepto del uso o funcion de matrices, Quieres decir que un mismo textbox generado como matriz por ejemplo .: una matriz de 1x3 con lo que tres textbox llamados txtbox(0), (1) y (2) los tendria en una columna ¿Para que me pueden servir si los tres me darian los mismos datos al mismo tiempo o entraria los datos en uno y se repetirian en los otros dos al instante o estoy equivocado?.

Un saludo