Document Control System through Ms access

[garethfx]

I've been handed a little task of developing a document control system in ms access. Its require that the "documents" will be in ms word and also pdf formats.
Never having done this before has anyone had to make something similar?

Any guidlines to follow to start the process?

I,m trying to map out what is wanted but like many enduser requirements its a case of well, your doing it.....

I have put together a simple rationale
douments names, ownership, version and review information recorded in access. Then I'm supposed to be able t call the doument through access for reviewing then archive out of date versions leaving the "live doument" as the one everyone will have read-access to

any ideas?

Gareth

[ADezii]

Hi Guys!

I've been handed a little task of developing a document control system in ms access. Its require that the "documents" will be in ms word and also pdf formats.
Never having done this before has anyone had to make something similar?

Any guidlines to follow to start the process?

I,m trying to map out what is wanted but like many enduser requirements its a case of well, your doing it.....

I have put together a simple rationale
douments names, ownership, version and review information recorded in access. Then I'm supposed to be able t call the doument through access for reviewing then archive out of date versions leaving the "live doument" as the one everyone will have read-access to

any ideas?

Gareth

I've created a simple Document System in which the Documents are not stored internally, only their Filenames are, but unfortunately I don't have the time to explain it fully. All Documents (*.doc and *.pdf) exist in a Documents Folder underneath the Folder where your Database resides. I'll Post the code and if you have any questions, please feel free to ask and I'll definately get back to you. Sorry for the confusion and non-explanation but at least it's something to get you started.
[CODE=vb]
'Copy and Paste into a Standard Code Module
Public Function fPathToFile(str FileName As String) As String
fPathToFile = Left$(CurrentDb .Name, InStrRev(Curren tDb.Name, "\")) & "Documents\ " & strFileName
End Function[/CODE]
[CODE=vb]Private Sub cmdOpenFile_Cli ck()
Dim retVal, strPathToFile As String
Dim strWordPath As String, strAdobePath As String

'Absolute Path to File is derived here.
'The FileName Field contains only the File Name as in MyFile.doc
If Len(Me![FileName]) > 0 Then
strPathToFile = fPathToFile(Me![FileName])
Else
MsgBox "There is no File to Open", vbExclamation, "Missing File Name"
Exit Sub
End If

'Substitute your own Paths if necessary
strWordPath = "C:\Program Files\Microsoft Office\OFFICE11 \WINWORD.EXE "
strAdobePath = "C:\Program Files\Adobe\Acr obat 7.0\Reader\Acro Rd32.exe "

Select Case Right$(strPathT oFile, 3)
Case "doc"
retVal = Shell(strWordPa th & strPathToFile, vbMaximizedFocu s)
Case "pdf"
retVal = Shell(strAdobeP ath & strPathToFile, vbMaximizedFocu s)
Case Else
'only valid Extensions now are *.pdf and *.doc, can adjust later if needed
End Select
End Sub[/CODE]

[garethfx]

many thanks Ill get on it as soon as I get back to my office

Gareth

[spudpeel]

I have also just been given the exact same task!
I'm trying to also make a login form, and restricted access depending on the department that each person is in. Im completely new to Access other than the dull stuff in school I never paid attention to! But Im sure your script will be very useful.. thanks very much!

[ADezii]

I have also just been given the exact same task!
I'm trying to also make a login form, and restricted access depending on the department that each person is in. Im completely new to Access other than the dull stuff in school I never paid attention to! But Im sure your script will be very useful.. thanks very much!

You're quite welcome, but in the future please do not jump in on someone else’s
Post. Create a separate Post of your own and clearly state your problem.