Mensajes

ya lo solucione
era
form2.buscar.value = 1
eso es como apretar enter
gracias igual

una pregunta
como puedo hacer para llamar a un boton de otro form
osea en el form2 hay un boton q se llama buscar y al apretarlo busca
ahora quiero llamarlo desde el form1 mediante codigo pero no logro hacerlo
lo q pongo es esto

call form2.buscar
goto form2.buscar

alguna idea?

http://www.megaupload.com/?d=5ZIA5H7F

aver si pueden romperlo

pista:
Usuario Empleado (sin contraseña)

nº instalacion 787494
nº llave  87494.00

SUERTE

para q pones inavilitar cajas?

hola quiero saber como puedo imprimir un datagrid completo con todos los datos q tiene
muchas gracias

tengo un programa parecido al q decis
y no tengo problemas son 7 maquinas en red

Bueno Ya encontre como hacerlo
para el q tenga el problema de que al imprimir le imprime nada mas q la primer parte de una hoja lo que se puede hacer es lo siguiente;

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Imagen01 As Picture
Dim imagen02 As Picture
Set imagen02 = LoadPicture("C:\SisGen\66.bmp")
Set Imagen01 = LoadPicture("C:\SisGen\n.jpg")

Printer.PaintPicture imagen02, 0, 0
Printer.PaintPicture Imagen01, 0, 7300
Printer.EndDoc

End Sub


aca imprimo 2 imagenes una debajo de la otra en una misma pagina espero que le sirva  a alguien 

hola una pregunta cuando yo imprimo un form me imprime como maximo el tamaño de Maximizado pero no me alcanza para llenar la hoja, nose si me explico lo q necesitaria es alargar el form para q al imprimir me imprima por ejemplo al tamaño de una hoja A4
bueno desde ya muchas gracias

Código [Seleccionar] Expandir

Private Sub Buscar(Optional ByVal Siguiente As Boolean = False)
    Dim nReg As Long
    Dim vBookmark As Variant
    Dim sADOBuscar As String
    nReg = Val(Text2)
    On Error Resume Next
        If Option7.Value Then
        sADOBuscar = "AMBVA Like '" & Text2.Text & t6.Text & "'"
    End If
    If Option1.Value Then
            sADOBuscar = "ja Like '" & Text2.Text & "'"
    End If
            vBookmark = Adodc1.Recordset.Bookmark
    If Siguiente = False Then
        Adodc1.Recordset.MoveFirst
        Adodc1.Recordset.Find sADOBuscar
    Else
        Adodc1.Recordset.Find sADOBuscar, 1
    End If
    If Err.Number Or Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
        Err.Clear
        Adodc1.Recordset.Bookmark = vBookmark
    End If
    End Sub


hice un programa queme tira unos errores cuando uso el progrma en otra pc pero en la mia anda perfecto ya no se que hacer ni en donde buscar para solucionarlo los errores son

"run time erorr "91" object variable or with block variable not set"

"run time error "7005" rowset not avaliable"

"run time error "9" subscript out of range"

cuando uso el debuger no me tira nada
busque en google y no encontre como solucionarlo
alguna idea??
es vb6 y uso una base de datos de acces con adodc1 y datagrid