Visual Basic - ERROR 438

Life is soft - evento anual de software empresarial
   
Vista:

ERROR 438

Publicado por Wilson (3 intervenciones) el 27/12/2017 01:19:57
Buenas noches; excelente Foro !!, alguien me podría colaborar con el error 438, no me deja compilar "txtDescripcion" en la casilla código del formulario, gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

ERROR 438

Publicado por Andres Leonardo (1284 intervenciones) el 27/12/2017 01:31:16
Ese error es porque la propiedad no esta propiedad mas referencias

Error 438" objeto no admite esta propiedad o método" es como que le quieras poner un valore true a un textbox o a una casilla un texto ....

si pondrias parte del codigo donde tienens la novedad ayudaria a la revision

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ERROR 438

Publicado por Wilson (3 intervenciones) el 27/12/2017 01:45:54
Hola Andres...

Gracias por tu ayuda; estoy realizando una macros para inventario con formulario de un tutorial en you tube, en el formulario al realizar la búsqueda digitado el código para que me arroje la descripción del producto me sale este error..(segunda linea), la verdad muy poca información por la web, tal vez es solo un detalle, gracias.

Private Sub txtCodigo_AfterUpdate()
txtDescripcion = modESformulario.consultarProducto(txtCodigo)

End Sub

el dato "consultarProducto" no me lo registra
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ERROR 438

Publicado por Alberto (171 intervenciones) el 27/12/2017 09:47:55
Comprueba que el modulo modESformulario tiene un método publico llamado consultarProducto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

ERROR 438

Publicado por Andres Leonardo (1284 intervenciones) el 27/12/2017 15:36:45
Adicional a lo indicado por alberto


Le dar a txtDescripcion un valor que quizas no es soportado si no tiene la propuedad TEXT

txtDescripcion.TEXT = modESformulario.consultarProducto(txtCodigo)

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ERROR 438

Publicado por Juan Gilberto (315 intervenciones) el 27/12/2017 16:41:07
Mas bien es que en el formulario no existe un textbox con el nombre de txtDescripcion...
porque la propiedad TEXT es la propiedad Default de un TextBox y no es necesario escribirla

o sea que es valido:
txtDescripcion = modESformulario.consultarProducto(txtCodigo)

(repito... siempre que exista un textbox con ese nombre)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

ERROR 438

Publicado por Andres Leonardo (1284 intervenciones) el 27/12/2017 17:49:17
Estimado Juan Gilberto
si no existiera el textbox o con ese nombre saldría error 24 se requiere un objeto .

En todo caso muchas gracias por tu aclaración , pero te comento que durante mucho tiempo he tenido problemas por obviar esa propiedad ya que en muchos computadores suele fallar y encuentro este error.

SAludos

Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ERROR 438

Publicado por Wilson (3 intervenciones) el 29/12/2017 02:57:05
Hola Alberto...

Cordial saludo; en efecto el modulo "modESformulario" tiene "consultarProducto", no comprendo cuando dices "metodo pulico"?, gracias!!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function consultarProducto(codigo As String) As String
    Dim ultLinea As Long
    Dim ultLineaDatos As Long
    Dim fecha, nombre, orden_sap_pedido, cantidad, codigo, descripcion, tipomovimiento As String
    Dim busquedaFilaDatos As Range
    Dim rangoBusqueda As String
    Dim filaRegistro As Long
 
    ultLineaDatos = Sheets("Prueba").Range("A" & Rows.Count).End(xlUp).Row
    rangoBusqueda = "A10:A" & ultLineaDatos
 
    Set busquedaFilaDatos = Sheets("Prueba").Range(rangoBusqueda).Find(codigo, lookat:=xlWhole)
 
    If busquedaFilaDatos Is Nothing Then
        consultarProducto = ""
        MsgBox "El código ingresado no existe", vbCritical, "Resultado"
    Else
        filaRegistro = busquedaFilaDatos.Row
        consultarProducto = Sheets("Prueba").Cells(filaRegistro, 2)
    End If
End Function


Hola Juan...

Si existe el textBox "txtDescripcion", gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad