Private Sub Form_Load()
'conectar el adodc1 con la tabla
Adodc1.CursorLocation = adUseClient
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\datos.mdb; persist security info=False"
'conectar el adodc1 con la tabla de usuarios
Adodc1.RecordSource = "SELECT * FROM clientes order by cliente"
Adodc1.Refresh 'actualizar los datos del adodc1
'asignar el Adodc1 al Datagrid1
Set DataGrid1.DataSource = Adodc1
FormatoDataGrid 'dar formato al data grid
'marcar una opcion como busqueda predeterminada
Text1.Text = " "
End Sub
Private Sub DataGrid1_DblClick()
Form1.Text1.Text = DataGrid1.Columns(7).Text
On Error GoTo error
Dim wb As Object
Set wb = CreateObject("Word.Basic")
wb.FileOpen Name:=Text1.Text
wb.AppShow
Exit Sub
error:
MsgBox "Error el documento no se encuentra en la carpeta agregelo nuevamente", vbCritical, "Modificar"
End Sub
Private Const WS_SYSMENU = &H80000
Private Const GWL_STYLE = (-16)
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Sub MDIForm_Load()
Dim L As Long
' Optiene en un long las caracteristicas de La ventana
L = GetWindowLong(Me.hwnd, GWL_STYLE)
L = L And Not (WS_SYSMENU)
L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
End Sub