Buton pentru insert hyperlink

[petru24]

Buna ziua

Mai revin cu o situatie. Incerc sa creez un buton intr-un form care insereaza hyperlinkul ales in campul din tabel Hyperlink.
Am incercat foarte multe optiuni dar nici una nu da rezultate. Am incercat-o si pe cea cu DoCmd.RunCommand acCmdInsertHyperlink.

Pur si simplu nu reusesc.

Va multumesc pentru ajutor

[mesersmith]

nu mi-e clar deloc.
vrei sa apesi pe un buton si sa insereze link-ul din tabel...dar unde?
incearca sa atasezi exemple ca sa avem pe ce lucra concret.

[petru24]

Din pacate nu pot atasa un exemplu dar pot fi mai explicit.

Am un tabel cu clienti si un form Update clienti.

In tabelul clienti am si un camp "Contract". Acest camp as dori sa fie completat sau updatat prin intermediul formularului dar nu prin a scrie manual calea unde se afla contractul aferent fiecarui client ci printr-un buton care va fi foarte asemanator cu browse dar in acelasi timp va completa dupa inchidere si calea exacta a fisierului in tablelul clienti, campul contract.

Mai pe scurt introducerea unui hyperlink fara a folosi optiunea din Design view +hyperlink si apoi introdusa manual calea in tabel.

[petru24]

Se pare totusi ca am formulat intr-adevar un pic ciudat si pentru asta imi pare rau. Am realizat ca ceea ce vreau este de fapt un buton care se comporta ca un browse iar dupa selectarea butonului in field-ul "Contract" sa apara ca un link pe care se poate apasa calea spre documentul word cu contactul pentru fiecare client in parte.

Acum poate va fi mai clar si va multumesc anticipat pentru ajutor

[petru24]

Ok. Dupa o asteptare indelungata am luat problema in propriile maine.

Iata si pentru cei interesati un cod pentru stocarea intr-un field a caii de access pentru un fisier, cale ce va putea fi folosita mai tarziu in diferite contexte.

Cod: Selectaţi tot

Private Sub Contract_Click()
    Dim sApi As Object
    Dim sFile As String

    Set sApi = Application.FileDialog(3)
    
    With sApi
        .AllowMultiSelect = False
        If .Show Then
            sFile = sApi.SelectedItems(1)
            Contract.Value = sFile
        End If
    End With
End Sub

Codul este valabil pentru un field text si o casuta text.

Va multumesc oricum.