Hur gör jag en öppna funktion

för närvarande så gör jag

<code>
Private Sub Form_Load()

'ws = Workspace
'Db = Databas
'rs = Recordset

Set ws = DBEngine.Workspaces(0)
' Här hämtar jag mdb filen.
Set db = ws.OpenDatabase(App.Path & "\db\CdReg.mdb")
'Här är formuläret som tabellerna ligger i
Set rs = db.OpenRecordset("main", dbOpenTable)

End Sub
</code>

Hur gör jag för att kunna skapa en öppna funktion

Hej
Varför vill du göra en funktion av det.Tycker det ser bra ut som det är. Men Ok.

Private Sub Form_Load()
'ws = Workspace
'Db = Databas
'rs = Recordset

Set ws = DBEngine.Workspaces(0)
' Här hämtar jag mdb filen.
Set db = ws.OpenDatabase(OpenDb)
'Här är formuläret som tabellerna ligger i
Set rs = db.OpenRecordset("main", dbOpenTable)

End Sub

Private Function OpenDb() As String
OpenDb = App.Path & "\db\CdReg.mdb"
End Function
/Sven

det hänvisar bara till databasen

jag vill att man ska kunna använda (arkiv-öppna) för att kunna ha databasen
på olika ställen..

ex:
Som ifall jag använder den på servern så kan det bli
"d:\databaser\cdreg" och använder jag programet från datorn
så blir det

"N:\databaser\cdreg"


Vet att man måste använda
CommonDialog

men inte hur jag ska skriva!!!

hej



<code>
commondialog1.showopen
msgbox commondialog1.filename ' detta ger sökvägen till filnamnet på din databas
</code>

/B

hur använder jag detta i min code

<code>
Private Function OpenDb() As String

commondialog1.showopen

OpenDb = commondialog1.filename

End Function
</code>

men programet ska inte fråga efter mdb filen utan jag ska välja den manuellt från en knapp...

Nu frågar han efter den så fort jag startar programet...

Om du har nått i form_load så ska det bort.
alltså om det kallar på sökvägen till din databas.
vill du inte välja varje gång du startar får du spara det som commondialog1 ger som filnamn o sökväg

<code>
Private sub command1_click

call OpenDb 'denna kallar på din funktion som öppnar

end sub
</code>

<code>

Private Function OpenDb() As String

commondialog1.showopen

OpenDb = commondialog1.filename

End Function
</code>

Hej Oki då kan det bli enl denna princip
du bör lägga upp en Meny Open .CommonDialog heter här CmDialog
Inte som Berra råder, det här skall givetvis vara kvar

Private Sub Form_Load()
'ws = Workspace
'Db = Databas
'rs = Recordset
Set ws = DBEngine.Workspaces(0)
' Här hämtar jag mdb filen.
End Sub

Private Sub mnuOpen_Click()
'Cancel Error är True
On Error GoTo OpenError
CmDialog.Filter = "Access97 mdb|*.mdb"
CmDialog.InitDir = App.Path
CmDialog.DefaultExt = "*.mdb"
CmDialog.DialogTitle = " Öppna DataBas"
CmDialog.Flags = &H1000
CmDialog.FileName = ""
CmDialog.ShowOpen
PathMinDb = CmDialog.FileName

Set db = ws.OpenDatabase(PathMinDb)
'Här är formuläret som tabellerna ligger i
Set rs = db.OpenRecordset("main", dbOpenTable)

OpenError:
'Användaren tryckte Avbryt
End Sub
/Sven
"main" ovan förstår jag inte
DS

Tackar men jag får fel i

<code>
PathMinDb = CmDialog.FileName
</code>

Hej
Den måste ju vara deklarerad i General som
Dim PathMinDb As String
DS

tackar nu funkar det äntligen


Tackar så mycket...

Du har så rätt så sven, jag gjorde ett exempel enbart på commondialog, han fråga ju hur man skrev för att använda den. men ok, lämnar tråden.

Lycka till:)

Sven.. Bara ett liten fråga kvar..

Öppnar man databasen så funkar det fint.. Väljer man avbryt så får man sitta och klicka bort felmedelanden..

Hej Oki på det ta bort detta OpenError:
' Användaren tryckte Avbryt

Viktigt ! Jag vill gärna ha FeedBack på vad det står i felmeddelanden
efter Avbryt . Lite märkligt att du behöver göra så.

Lägg till detta

OpenCancel:
Exit Sub
OpenError:
On Error Goto 0
Resume OpenCancel
'Användaren tryckte Avbryt
End Sub

/Sven

Hej igen
Efter att ha funderat ett tag , så kom jag fram till att du kanske
borde ta bort denna flag CmDialog.Flags = &H1000
Den håller koll på att du anger en godkänd sökväg.
Om det då är tomt i Filnamn rutan får du förmodligen det fel som du anger.

Spånar
/Sven

Så här har jag skrivit

<code>
Private Sub mnuArkivOppna_Click()
On Error GoTo OpenError
CmDialog.Filter = "Access97 mdb|*.mdb"
CmDialog.InitDir = App.Path
CmDialog.DefaultExt = "*.mdb"
CmDialog.DialogTitle = " Öppna DataBas"
'CmDialog.Flags = &H1000
CmDialog.FileName = ""
CmDialog.ShowOpen
PathMinDb = CmDialog.FileName

Set db = ws.OpenDatabase(PathMinDb)
'Här är formuläret som tabellerna ligger i
Set rs = db.OpenRecordset("main", dbOpenTable)

'Här anropas funktionen som hämtar all data till
'Listboxen
list
OpenError:
End Sub
</code>

det som händer när jag klickar avbryt
är att en ruta kommer upp som heter
"Select Data Source"

och där får man klicka på avbryt

Här värkar felet vara

<code>
Private Sub Form_Load()

'Denna rad är det som spökar ifall man trycker på Cancel
'Har man inte den så funkar det inte
Set ws = DBEngine.Workspaces(0)
End Sub
</code>

kan man inte koppla en händelse till knappen Cancel..

typ ifall Cancel
då går du till sista raden..

Editerad: icke relevant CancelError = True var svaret.
/Sven

Det SvenPon glömde i sin kod var att du måste sätta CancelError = True
Skriv detta först i din kod.
<code>
CmDialog.CancelError = True
</code>

Då kommer du att hamna i felhanteringen när du trycker på Cancel med fel nummer 32755
Så stoppa in denna kod i felhanteringen så att du tar hand om felet på ett korekt sätt
<code>
If Err.Number = 32755 Then
Err.Clear
MsgBox "Du måste välja en fil", vbInformation, "Open db"
Exit Sub
End If
</code>

//Tobbe

Hej
Bra Teed , så var det.
/Sven

Nu funkar det fint..

Till alla som hjälpt så vill jag värkligen tacka för hjälpen..

ni är värd en ros...

Hej igen epilog
>Det SvenPon glömde i sin kod var att du måste sätta CancelError = True

Konstigt att man inte valt att ha detta som default.
/Sven