Buenas, me estoy comiendo la cabeza de malas manera y no se como hacerlo ya que mi capacidad en visual es bastante justa y no se ni si se puede hacer, lo comento.

Tengo en una tabla de Access una serie de campos:

Campo1: CONVENIO DE TOKIO
Campo2: c:\normativa\convenio de tokio.doc

Lo que quiero es cargar solo el campo1 en un FlexGrid, y cuando cliquees en el FlexGrid, te vaya a la ruta del campo2, para que se abra el documento de word.

Como cargar el FlexGrid desde Access lo tengo y como abrir el documento de word tambien, pero como puedo solo mostrar el campo1 y cuando cliquees en el se abra el documento??

Me entendeis lo que quiero decir?? Se puede hacer???
Por favor, ayuda!!!

Siento poner este titulo, porque me leido las sugerencias del foro, pero no se que poner en el titulo, lo siento de verdad!
Pero necesito ayuda urgente!!!

Tambien hay un campo que pone todo

Campo3: CONVENIO DE TOKIO c:\normativa\convenio de tokio.doc

Si pudiera solo mostrar CONVENIO DE TOKIO y cuando cliquees que se abra el documento???

Pongo el código de como lo tengo hecho, en este caso solo necesito un FlexGrid y un Command Buttom.

Private Sub Cargar_MsFlexGrid(Conexion_ADO As Connection, _
Consulta_SQL As String, _
MsFlexGrid As Object)

Dim LaFrase As String, sResult1 As String, sResult2 As String, sResult3 As String
'Variables para el Recordset, _
El campo de la base de datos _
El dato actual y un array para los anchos de columna
Dim rst As Recordset
Dim Campo As Field
Dim Dato As String
Dim n As Long
Dim widthCol() As Long

' Nuevo recordset
Set rst = New Recordset

'Deshabilita el redibujado del control _
para que la carga sea mas veloz
MsFlexGrid.Redraw = False

'Abre el recordset
rst.Open Consulta_SQL, Conexion_ADO

'Redimensiona el array a la cantidad de columnas
ReDim widthCol(1 To rst.Fields.Count)

Dato = vbNullString
n = 1

'Recorre los campos de la tabla
For Each Campo In rst.Fields
'almacena el ancho de los campos
Dato = Dato & Campo.Name & vbTab
widthCol(n) = TextWidth(Campo.Name & " ")
n = n + 1

Next

MsFlexGrid.FormatString = Left(Dato, Len(Dato) - 1)

With MsFlexGrid
.FixedCols = 0
End With

'REcorre todos los registros del recordset
While Not rst.EOF

n = 1

Dato = vbNullString

For Each Campo In rst.Fields
Dato = Dato & Campo.value & vbTab

'si el dato NO es un valor nulo ... comprueba
If Not IsNull(Campo.value) Then
' si el ancho del dato actual es mayor _
al de su columna, entonces asigna el nuevo ancho
If TextWidth(Campo.value) > widthCol(n) Then
widthCol(n) = TextWidth(Campo.value)
End If
End If

n = n + 1

Next
'Agrega la fila al Msflexgrid
LaFrase = Dato
sResult1 = Replace(LaFrase, "%", " ")
sResult2 = Replace(sResult1, "#", " ")
sResult3 = Replace(sResult2, "20", "")
MsFlexGrid.AddItem sResult3
'Mueve el recordset al siguiente registro
rst.MoveNext

Wend

'cierra el recordset y elimina la variable
On Error Resume Next
rst.Close
Set rst = Nothing
On Error GoTo 0

'Elimina la primer fila vacía
MsFlexGrid.RemoveItem 1

'ajusta los encabezados de columna
For n = 1 To MsFlexGrid.Cols
MsFlexGrid.ColWidth(n - 1) = widthCol(n)
Next

'Habilita nuevamente el Repintado del control
MsFlexGrid.Redraw = True
End Sub
Private Sub Command1_Click()
Dim Columna As Long, Fila As Long
Dim Color As Long
Call Cargar_MsFlexGrid(cnn, "Select * From tablatotal", MSFlexGrid1)
End Sub
'End Sub

Private Sub Form_Load()
On Error GoTo ErrSub
Dim ConString As String
'Cadena de conexión ( indicar la ruta de la base de datos )
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C" & _
":"ruta de la mdb";Persist Security Info=False"
Set cnn = New Connection
With cnn
.ConnectionString = ConString
.CursorLocation = adUseClient

'Abre la conexión
.Open

End With

Command1.Caption = " Cargar Flex Grid "

Exit Sub
ErrSub:
MsgBox Err.Number & " " & " Error " & Err.Description, vbCritical
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not cnn Is Nothing Then
Set cnn = Nothing
End If
End Sub
Private Sub MSFlexGrid1_Click()
Dim LaFrase As String, sResult1 As String, sResult2 As String
Dim sFraseCompleta As String
Dim sFraseParcial As String
Dim nCol As Integer
If MSFlexGrid1.Text <> vbNullString Then
LaFrase = MSFlexGrid1.Text
sResult1 = Replace(LaFrase, "%", " ")
sResult2 = Replace(sResult1, "#", " ")
sFraseCompleta = sResult2
nCol = InStr(1, sFraseCompleta, "normativa")
If nCol > 0 Then
sFraseParcial = Mid(sFraseCompleta, 1, nCol - 1)
Else
sFraseParcial = sFraseCompleta
End If
MsgBox sFraseParcial
MsgBox sFraseCompleta
'ruta1 = ruta & sResult2
'MsgBox sResult2
'MsgBox ruta1
'ShellExecute Me.hwnd, "open", ruta1, "", "", 4
End If
End Sub

Hola Larry, lo que podrias hacer es asignar el ancho de lasegunacolumna en cero (esta se supone que tienela ruta del archivo a abir), para que no sea visible. Y cuando se haga doble clic en la primera columna, tomas el valor de lasegunda columnay abres el archivo. Aqui te dejo un pequeño ejemplo.

Código:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
 With MSFlexGrid1
 .ColWidth(1) = 2000
 'Esta columna que va a mostrar la ruta
 'Le pones ancho cero para q no sea visible
 .ColWidth(2) = 0
 .ColWidth(3) = 3000
 .TextMatrix(1, 1) = "CONVENIO DE TOKIO"
 'Ruta del documento
 .TextMatrix(1, 2) = "c:\normativa\convenio de tokio.doc"
 .TextMatrix(1, 3) = "Prueba de abrir documento"
 End With
End Sub
Private Sub MSFlexGrid1_DblClick()
 Dim sArchivo As String
 With MSFlexGrid1
 'If hacen doble clic en la primera columna
 If .Col = 1 Then
 'Se obtiene el contenido de la segunda columna
 sArchivo = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
 ShellExecute Me.hwnd, "open", sArchivo, vbNullString, vbNullString, 1
 End If
 End With
End Sub

Espero que te sirva... BYE

Isaac...

comunicate conmigo a davidsryl@hotmail.com y resolvere tu problema de un manera sencilla y sin mucho codigo engorrso

Gracias a todos por responder, de verdad, muchas gracias