Hola que tal?
A que es debido este error? Si, ya se que esperaba una funcion o una variable, pero en esencia, porque suele pasar este tipo de error?
El bucle esta bien escrito?
El error me lo marca con amarillo en Private Sub Form_Load() y en azul me subraya DLLdame_id.
Gracias.
Option Explicit
Private Sub Form_Load()
Dim n As Long
Dim k As Integer
Dim id As String
Dim t As String
Dim er As Long
Dim x As Long
x = 0
er = DLLcargar
If er = -1 Then
MsgBox "Error al cargar el fichero"
ElseIf er = -2 Then
MsgBox "Error al leer el id"
ElseIf er = -3 Then
MsgBox "error al leer el porcentaje de ocupacion"
ElseIf er = -4 Then
MsgBox "error al leer las cooredenadas"
ElseIf er = -5 Then
MsgBox "Las coordenadas exceden la capacidad de la matriz"
ElseIf er = -6 Then
MsgBox "Error al leer los datos personales"
Else
MsgBox "Fichero cargado correctamente"
id = " "
n = DLLdame_num_trenes
For k = 0 To n
t = " "
x = DLLdame_id(id, k)
If x = 0 Then
t = id
End If
List1.AddItem t
Next k
End Sub
que es DLLcargar??? deberia ser una funcion que devuelva un valor long...o una variable publica que este en algun modulo que contenga un valor...si ni vos sabes...lo mismo para DLLdame_num_trenes..
saludos.
Dim er As Long
er= DLLcargar
No devuelve un entero 'er'?