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
|