Newsgroup: it.comp.appl.access
Titolo: Ricollegare tabelle tra front end e back end.

Ciao a tutto il NG.
Ho trovato un modulo abbastanza bello che mi permette di creare su una
maschera una casella di testo non associata nella quale posso far comparire
il percorso completo di un qualsiasi file da me selezionato tramite il
pulsante sfoglia che fa comparire un finestra come gestione risorse.
Ora siccome non sono molto ferrato in argomenti come questi voleva sapere se
qualcuno mi poteva dare una mano.
Io vorrei che se le tabelle tra frontend e backend non sono collegate,
all'apertura del db venga effettuato un controllo che verifica se le tabelle
sono collegate e nel caso non lo fossero mi permetta tramite la fuzione che
posto di seguito (magari adattandola), di selezionare il db e ricollegare le
tabelle a selezione effettuata.
Qui di seguito posto il codice che deve essere inserito in un modulo :
*********************
Option Compare Database
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustomFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
'************************
'************************
Public Sub ShowFile(frm As Form, fb As OPENFILENAME)
    Dim fName As String
    Dim result As Long
    Dim path As String
    path = "C:\"
    With fb
        .lStructSize = Len(fb)
        .hwndOwner = frm.Hwnd
        .hInstance = 0
        .lpstrFilter = "Tutti i File (*.*)" & vbNullChar & "*.*" &
vbNullChar
        .nMaxCustomFilter = 0
        .nFilterIndex = 1
        .lpstrFile = Space(256) & vbNullChar
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = Space(256) & vbNullChar
        .nMaxFileTitle = Len(.lpstrFileTitle)
        .lpstrInitialDir = path & vbNullChar
        .lpstrTitle = "Scelta File" & vbNullChar
        .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
        .nFileOffset = 0
        .nFileExtension = 0
        .lCustData = 0
        .lpfnHook = 0
    End With
    result = GetOpenFileName(fb)
    If result <> 0 Then
        fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    End If
End Sub
*************************************************
Se creo una maschera e metto una casella di testo (chiamata txtFile) non
associata e un pulsante (comando2) al quale associo il seguente codice :
Private Sub Comando2_Click()
Dim fb As OPENFILENAME
    Dim fName As Variant
    Call ShowFile(Me, fb)
    fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    txtFile = fName
End Sub
******************
Non so come spiegare ma forse chi è più esperto puo' comprendere (provare
per capire)
Vorrei poter usare questo sistema per dire al db che il percorso memorizzato
in txtfile è quello che deve usare per ricollegare le tabelle.
AIUTATEMI PERFAVORE.
Ciao.
Marco

 ha scritto nel messaggio
news:FsZr9.48496$%M1.12...@twister2.libero.it...

ECCOMI !!!
Rispondo al mio quesito!!!
Ho risolto eggreggiamente in modo molto semplice. Devo solo perfezzionare
due cosette per rendere il tutto snello.
Ma funziona tutto .
Quando ho snellito se vi interessa posto la soluzione.
Ciao a tutti.
tentare non nuoce....e sono ruscito a risolverlo da me !!
Sono stra contento.
Ciao a tutti.

Lo so ho sbagliato a premere invia prima di togliere tutto il mio vecchio
post.
Chiedo scusa.
Ciao con simpatia Marco.


[CUT]
Se vai un po' pių indietro (intorno al 17 Ottobre) troverai dei messaggi
(titolo: collegare tabelle) che parlano proprio di questo.
--
-------------------------------------------------------
May the Force be with you
Skywalker Senior