SoloCodigo

Nada mas checa si metiste en tu formulario un control data. Y si es asi que se llame data1.

Saludos

Hola intenta algo asi:

Private Sub buscar_Click()'el nombre de tu boton
Dim bm As Variant
bm = Data1.Recordset.Bookmark'data1 te enlaza a la tabla
If Tbus.Text <> "" Then'Tbus es el cuadro de texto donde te aparecera el dato a buscar
Data1.Recordset.MoveFirst
If Op1.Value Then'Option button
cad = "ID_Prof = " & Val(Tbus)
End If
If Op2.Value Then'Option button
cad = "Nombre='" & Tbus & "'"
End If
Data1.Recordset.FindFirst cad
If Data1.Recordset.NoMatch Then
   Data1.Recordset.Bookmark = bm
   MsgBox "Registro No Encontrado"
   End If
   Else
   MsgBox "Teclee el dato a buscar"
End If
End Sub

Nada mas acomoda el codigo a como lo quieres.
Si tienes dudas avisame.
Saludos

Ok roxii, muchas gracias, intentare lo que me dices. Tambien tengo problemas con el formato de los datos de mi msflexgrid a excel. Que te parece si nos ayudamos mutuamente.
Tienes msn???

Hola Brroz. ¿Como has estado?
Pues de nuevo vuelvo a agradecerte que siempre nos estes apoyando en las dudas que tenemos.
Tambien agradezco a las demas personas que contestan.

Gracias  por el apoyo y que esten bien.

Hola amigos tengo el siguiente codigo el cual me muestra el label 12 cuando posiciono el puntero del mouse sobre el label11. Mi pregunta es:
¿Como puedo hacerle si al quitar el puntero del label11 el label12 sea invisible otra vez?  

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label12.Visible = True
End Sub

Gracias.

Saludos a todos

Hola amigos. Existe alguna manera de hacer shareware tu proyecto, es decir que solo se utilize durante 1 semana o determinado tiempo y que despues de ahi no puedas seguir utilizandolo una vez que ya esta instalado???

Saludos

Hola amigos.
He utilizado las propiedades de borderstyle para que los formularios de mi aplicacion aparezcan maximizados al momento de ejecutarla. Y que me aparezca el boton de minimizar, y cerrar, pero no lo he logrado.

Alguien puede orientarme.

Gracias.

En un principio utilize la propiedad .Printgrid y le agregaba un titulo.
Pero lo que queria hacer es que me apareciera dentro del grid.

De todas formas gracias por el tiempo que te tomas para responderme.

Que estes bien.

Hola de nuevo.
Se puede insertar algun titulo en un msflexgrid??
Pero que no vaya dentro de las celdas del mismo, es decir hasta arriba??

Si alguien sabe como espero y pueda ayudarme.

Gracias

Hola amigos.
Mi duda es la siguiente:
Quiero comparar 2 numeros, en 2 textbox diferentes y si el numero que se meto en el text1.text es mayor al que meto en el text2.text me salga un mensaje.

Me sale bien, pero cuando pongo en el text1.text 93 y en el text2.text  100 me sale el mensaje de que el valor minimo es mayor al maximo cuando no es asi, les pongo el codigo para que me entiendan mejor:

Private Sub Command1_Click()    
       
    If (Text1.Text > Text2.Text) Then
    res = MsgBox("El valor minimo es mayor al maximo", , "Advertencia")
    Text1.Text = ""
    Text2.Text = ""
    End If  
       
End Sub

Me pueden decir en que estoy fallando si no es mucha molestia. Gracias

Hola.

Que te parece si metes textbox y un data vinculandolo a la base de datos y a la tabla que deseas eligiendo el campo??

Buenos dias SR._(text1.text)_ de la calle ._(text2.text)_

Asi utilizarias la misma carta para todos tus registros. Solo lo vas recorriendo al que quieras o crea un boton de busqueda para que te encuentre el registro que quieras.

Saludos.

Se me olvido decirte que el ObjApp.Show lo puse asi:

ObjApp.Show = True

De todas formas aunque le agrege el = True me saca el mismo error.

Saludos

Hola Brroz. Aplique los cambios que me dijiste y me aparece un error: el objeto no soporta este tipo de metodo, y no me abre excel.

El codigo esta asi:

Private Sub Command9_Click()
   
   On Error GoTo Err_XLS
   
   Dim objApp As Object
   Dim objWb As Object
   Dim objSh As Object
   Dim lngR As Long, lngC As Long
   
   Set objApp = CreateObject("Excel.Application")
   Set objWb = objApp.WorkBooks.Add
   Set objSh = objWb.ActiveSheet
   
   For lngR = 0 To tabla.Rows - 1
       For lngC = 0 To tabla.Cols - 1
           objSh.Cells(lngR + 1, lngC + 1) = _
           tabla.TextMatrix(lngR, lngC)
       Next lngC
   Next lngR
       
   objApp.Show
   
Exit_XLS:
   On Local Error Resume Next
   objApp.Close
   objApp.Quit
   Set objSh = Nothing
   Set objWb = Nothing
   Set objApp = Nothing
   Exit Sub

Err_XLS:
   MsgBox "(" & Err.Number & ") " & Err.Description, vbCritical, "Xls"
   Resume Exit_XLS
   

End Sub

Tambien lo probe quitandole el Exit_XLS y el Err_XLS y me sale lo mismo.

Espero y puedas ayudarme.

Saludos.