map vanuit access openen

• 

  Koen Verhees

  01-01-2004 22:01

  Hoi allemaal,

  allereerst de beste wensen voor het nieuwe jaar.

  Is het mogelijk om vanuit access een map in deze computer te openen die als naam de sleutel van de betreffende record heeft?

  Dus er is een tabel met 10 records met sleutels, bijv. 1 tot en met 10.

  Als je het formulier opent dat op record 5 is gebaseerd, en daarna op een knop drukt, dan moet hij de map “C:/mappen/5” openen.

  kan iemand mij helpen?

  Koen
• 

  Jaap

  02-01-2004 11:56

  Wil je dat de gebruiker een bestand uit deze map kiest…..of

  bepaal jij welk bestand vervolgens wordt geopend?

  GR Jaap
• 

  Koen Verhees

  05-01-2004 17:19

  Eigenlijk allebei.

  Maar vooralsnog hoeft hij alleen de map te openen, waarna de gebruiker zelf een bestand uitkiest.

  Later wil ik dit uit gaan breiden. Maar als het niet te ingewikkeld is, zou ik het allebei graag willen weten.

  Alvast bedankt!

  Groet,

  Koen
• 

  Jaap

  05-01-2004 20:28

  Bij deze een voorbeeld van aanroep je moet hem zelf even verder aanpassen

  Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOpenfilename As OPENFILENAME) As Long

  Private Type OPENFILENAME

  lStructSize As Long

  hwndOwner As Long

  hInstance As Long

  lpstrFilter As String

  lpstrCustomFilter As String

  nMaxCustFilter 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

  Private Sub Form_Load()

  'code zet je tussen Private Sub en End sub van je knop

  Dim OFName As OPENFILENAME

  OFName.lStructSize = Len(OFName)

  'Set the parent window

  OFName.hwndOwner = Me.Hwnd

  ‘Set the application’s instance

  OFName.hInstance = Me.Hwnd

  'Select a filter

  OFName.lpstrFilter = “Text Files (*.txt)” + Chr$(0) + “*.txt” + Chr$(0) + “All Files (*.*)” + Chr$(0) + “*.*” + Chr$(0)

  'create a buffer for the file

  OFName.lpstrFile = Space$(254)

  'set the maximum length of a returned file

  OFName.nMaxFile = 255

  'Create a buffer for the file title

  OFName.lpstrFileTitle = Space$(254)

  'Set the maximum length of a returned file title

  OFName.nMaxFileTitle = 255

  'Set the initial directory

  'hier zet je…..recordnummer moet de naam van je veld zijn

  'OFName.lpstrInitialDir =“C:/mappen/” & me.recordnummer

  'en deze deactiveer je

  OFName.lpstrInitialDir = “C:\”

  'Set the title

  OFName.lpstrTitle = “Open File”

  'No flags

  OFName.flags = 0

  ‘Show the ’Open File'-dialog

  If GetOpenFileName(OFName) Then

  MsgBox “File to Open: ” + Trim$(OFName.lpstrFile)

  Else

  MsgBox “Cancel was pressed”

  End If

  End Sub
• 

  OneApi

  05-01-2004 23:47

  kun je niet makkelijker een reference naar Commondialog opnemen en deze op je form plakken? Vervolgens in code:

  Filename=“”

  CommonDialog.Showopen

  Filename = Commondialog.Filename

  If FileName <> “” Then

  MsgBox “File to Open: ” & FileName

  Else

  MsgBox “Cancel was pressed”

  End If

  gr. A.
• 

  Jaap

  06-01-2004 16:50

  Ja dat kan waar je dan wel mee rekening moet houden dat op het moment dat je Access aflevert aan klanten de commom dialog (ocx) library aldaar moet registreren…vandaar dat ik kies voor een harde API aanroep naar een windows DLL…werkt altijd en overal
• 

  thierry

  03-08-2005 11:36

  Jaap,

  Het wil mij niet lukken om een map te openen dit gelijk is aan mijn veld

  Ik heb een tabel en elke klant heeft een uniek nummerveld

  Ik heb op de c: voor alle klanten een map gemaakt

  Wat ik nu zou willen is door op een formulier te staan waar je de klant gegevens ziet op een knop te klikken die vervolgens de map opent met daarin zijn bestanden.

  Ik heb de code nu al 5 keer doorgenomen maar kom er niet uit, ik hoop dat je mij een beetje op weg kunt helpen.

  Thierry