Visual Basic - error 424 Se requiere un objeto

Life is soft - evento anual de software empresarial
 
Vista:

error 424 Se requiere un objeto

Publicado por aldo (111 intervenciones) el 19/11/2007 19:11:19
Hola,

cuando pongo estas lineas...

If Ado.Recordset!fecegre Is Null Then
txtDias.Text = Ado.Recordset!now - Ado.Recordset!fecing
End If

me sale el siguiente error...

"Error: 424 . Se requiere un objeto"

como puedo solucionarlo?

Gracias
Aldo
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

RE:error 424 Se requiere un objeto

Publicado por Unomásnomás (77 intervenciones) el 19/11/2007 22:48:42
Pues el error es claro. En que línea exactamente se queda. Normalmente es en ese control el que no se encuentra pegado en el form o tu variable objeto tampoco existe..
Revisalo bien.. una formase saberlo es tmb escribiendo el nombre del objeto le agregar el (.) punto y te aparece el listado de propiedades y eventos, si este no aparece es xq ese objeto no esta pegado o no está declarado
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

RE:error 424 Se requiere un objeto

Publicado por Llaverin (70 intervenciones) el 20/11/2007 09:03:16
Hola de nuevo:
Entiendo que estas preguntando por si ese campo es nulo, yo lo hago de la siguiente manera:
If IsNull(Ado.Recordset!fecegre) Then
txtDias.Text = Ado.Recordset!now - Ado.Recordset!fecing
End If

No se si te valdrá.

Saludos
Ana
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

RE:error 424 Se requiere un objeto

Publicado por ¯¯¯¯¯ (1 intervención) el 17/03/2010 02:52:03
Private Sub Timer1_Timer()
Static a As Integer
a = a + 1
If a = 5 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\  \Mis documentos\Mis imágenes\slipknot\untitled.bmp")
End If
If a = 25 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\  \Mis documentos\Mis imágenes\slipknot\untitled5.bmp")
End If
If a = 35 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\  \Mis documentos\Mis imágenes\slipknot\slipknot-.bmp")
End If
If a = 45 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\  \Mis documentos\Mis imágenes\slipknot\slipknot.bmp")
End If
If a = 55 Then
a = 0
End If
End Sub
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

RE:error 424 Se requiere un objeto

Publicado por Alex (2 intervenciones) el 04/09/2017 05:10:25
No entiendo porque me sale el mismo error, solo le cambie el Integer a Long y no me va..
1
2
3
4
5
6
7
8
9
10
11
12
Sub Ordenar()
Dim rangoDato As Range
Dim campoOrden As Range
Dim ultimaFila As Long
 
ultimaFila = Sheets("INVENTARIO").Range("T" & Rows.Count).End(xlUp).Row
Set rangoDato = (Range("B15:T" & ultimaFila))
Set campoOrden = Range("F15")
 
rangoDato.Sort Key1:=campoOrden, order1:=xlAscending, Header:=xlYes
 
End Sub
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