currupipi999

La sintaxis correcta debería ser la siguiente: tabla1.FindFirst "FOLIO = " & Text1.Text

Te propongo esta solución: Dim objApp 'Inicialización de Word Set objApp = CreateObject("Word.Application") objApp.Visible = True 'Con esto sera visible la ventana 'Se abre el documento ObjApp. Documents.Open "C:\prueba.doc"

Option Explicit Private Const CP_ACP = 0 Private Declare Function GetTimeZoneInformation Lib _ "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long Private Declare Function lstrlenW Lib "kernel32" (lpString As Any) As Long Private...

Hay varias formas de hacer eso. Una es conectándote al txt mediante Ado. Luego con el recordset de los datos del Txt, podes hacer un Insert Into a la tabla Código: Private Function DatosTxt(Path As String) As ADODB.Recordset Dim rs As ADODB.Recordset...

Yo lo he hecho utilizando API's. Aquí el código: Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Command1_Click() Dim frecuencia As Long Dim duración As Long frecuencia = 800 'Hz...

En un control Text puedes fijar la longitud máxima del texto a introducir. Si quieres ponerle una máscara de entrada, puedes utilizar el control MaskEdBox.

El datagrid tiene el evento ColResize que te permite detectar si se cambió el ancho de columna. Te pongo aquí un código que debería resolver tus dos preguntas: Private Sub DataGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer) MsgBox "se...

¿Probaste a registrar nuevamente el OCX?

Lo puedes hacer con un timer, haciendo que cada vez que transcurra el periodo de tiempo que quieras se llame a la función del botón. Te dejo un ejemplo básico con un command y un timer. En la propiedad intevarl del timer tendrás que poner el tiempo...

Yo probé con el siguiente código y funciona perfectamente. Espero que te sirva. Dim strPATH Dim appWord As Object 'strPATH = Application.CurrentProject.Path Set appWord = CreateObject("Word.basic") With appWord .appmaximize .fileopen "C:\PRUEBA.DOC"...