Access modules 1

[lhg123456]

Ich möchte Daten in Access importieren, damit dies benutzerfreundlich ist, will ich dies mit einer CommonDialog Box verbinden. So muß der Endnutzer nur noch den Importpfad angeben, den Rest soll das Programm erledigen. Zu diesem Zweck habe ich eine Dummy File erzeugt.
Access soll nun den Pfad dieser Dummy File nehmen, und den hinteren Teil (also die Dummy File) abschneiden, so dass nur noch der Pfad in dem sich die Dummy File befindet übrig bleibt. Wie geht das??
Bitte helft mir!!

 

[THoey]

Translated at

http://babelfish.altavista.com/

:

I would like to import data in ACCESS, so that this is user friendly, want I this with a CommonDialog box to connect. So the final user must indicate only the import path, the program is to settle the remainder. For this purpose I produced a file for dummy. ACCESS is to take now the path this dummy file, and which cut rear part off (thus the dummy file), so that only the path is in that the dummy file remains remaining. How can that be done?? Please help me!!

Terry
**************************
* General Disclaimor - Please read *
**************************
Please make sure your post is in the CORRECT forum, has a descriptive title, gives as much detail to the problem as possible, and has examples of expected results. This will enable me and others to help you faster...

 

[lhg123456]

Ich benötige den Befehl database in Access 2000.
Leider ist dieser Befehl in meinem Access nicht verfügbar,
wie bekomme ich diesen Befehl?

 

[mikevh]

I need the instruction DATA cousin in ACCESS 2000. Unfortunately isn't this instruction available in my ACCESS, how I get this instruction?

Translated at

http://babelfish.altavista.com/

:

 

[mikevh]

lhg123456:

In response to your earlier post about returning just the
path of a file, without the file name itself, the following
function may help. It takes a full pathname as argument
and returns everything up to and including the final "\".
Curiously, I just wrote this yesterday:


Public Function DirName(ByVal PathName As String) As String
'Takes a full pathname as argument, returns everything up
'to and including last "\".

Dim Start As Integer
Dim pos As Integer

Start = 1
DirName = ""
Do
pos = InStr(Start, PathName, "\&quot
If pos > 0 Then
DirName = DirName & _
Mid(PathName, Start, pos - Start + 1)
Start = pos + 1
End If
Loop While pos > 0
End Function