Avatar billede jensen363 Forsker
27. februar 2007 - 17:53 Der er 10 kommentarer og
1 løsning

Sagsbehandlingssystem med sagsmappestyring

Jeg er i gang med et større projekt, som bl.a. omfatter udvikling af en form for sagsbehandlingssystem, som i sin enkelthed består af en række inputdatabaser/klienter og een output sagsbehandler del.

En typisk sag kan bestå af data, som udelukkende indtastes og gemmes i databasen, men kan også bestå af een eller flere vedhæftede sagsakter/dokumenter.

Her var det så, at jeg ville have brugeren til at svare på om der skulle vedhæftes filer til sagen, hvorefter der blev oprettet en filmappe på et nærmere angivet sted. Mappen skulle være navngivet i forhold til det aktuelle sagsnummer, og brugeren skulle så kunne gemme de tilhørende filer/dokumenter i dette filbibliotek.

Når sagsbehandler så ved fremsøgning får en sag til besvarelse, skulle denne kunne pr. automatik kunne hente/åbne de vedhæftede filer i det aktuelle bibliotek.

Nogen idé til hvordan det skal laves ???
Avatar billede mugs Novice
27. februar 2007 - 17:57 #1
Du kna oprette en mappe med et givent navn således. Det er da en begyndelse. Testdb???

Private Sub Kommandoknap0_Click()
a = InputBox(Prompt:="Indtast på hvilket drev mappen skal oprettes:", Title:="Drev", Default:="")
b = InputBox(Prompt:="Indtast mappens navn:", Title:="Mappe", Default:="")
If Dir(a & ":" & "\" & b, vbDirectory) = "" Then
MkDir a & ":" & "\" & b
MsgBox "Mappen" & vbNewLine & vbNewLine & a & ":" & "\" & b & vbNewLine & vbNewLine & "er nu oprettet."
Else:
MsgBox "Mappen eksisterer i forvejen."
Exit Sub
End If
End Sub
Avatar billede jensen363 Forsker
27. februar 2007 - 18:15 #2
Hej Mugs > sorry, jeg kan ikke sende mit hoved via mail, men processen er tiltænkt således :

1. Brugeren opretter en sag ( kundenummer, navn o.s.v. )
2. Når sagens grundelementer er udfyldt, godkendes sagsoprettelsen, hvorefter sagen tildeles et sagsnummer, en oprettelsesdato og en deadline.
3. Bruger skal nu tage stilling til om sagen er oprettet på baggrund af A eller B.
4. Hvis A ( ingen dokumenter ), så skal brugeren indtaste nogle flere oplysninge i databasen.
5. Hvis B ( dokumentation vedhæftet ), skal systemet generere en mappe et foruddefineret sted ( styret af en stamdata tabel ). Mappen skal automatisk navngives med sagsnummeret, som består af både nummeriske og alfanummeriske karakterer ( eksempel KB-S : 00000001 )
6. Denne mappe skal så fungere som target for de filer der skal vedhæftes.

  -  På et tidspunkt
Avatar billede mugs Novice
27. februar 2007 - 18:49 #3
Der er vel ingen problemer med at tildele variablerne a og b værdier fra formularen. Jeg har et lille system der ligner meget det du skitserer. Det er en database i Acces med nogle nøgledata med opskrifter. Hver opskrift henviser så til en mappe hvori opskrifterne ligger som word-filer der åbnes ved tryk på en knap. Du må gerne få den til inspiration.

jeg vil også mene, at du kan gøre det på samme måde, som du indsætter billeder i access, ved at indsætte en tekststreng som henviser til en bestemt mappe.
Avatar billede jensen363 Forsker
27. februar 2007 - 18:52 #4
Lad mig bare se dit eksempel :

Mail (zipped) til :  ose@post.dk
Avatar billede mugs Novice
27. februar 2007 - 19:13 #5
Sendt.
Avatar billede civil05 Nybegynder
28. februar 2007 - 12:19 #6
Hej Mugs,

Det lyder interessant at kunne oprette mapper, jeg havde et spørgsmål vedr. vedhæftning af filer som du svarede på for en uges tid siden , er der mulighed for at jeg må se din database med mappeopretning: civil05@gmail.com
vh Anders
Avatar billede mugs Novice
28. februar 2007 - 13:38 #7
Sender når jeg er hjemme.
Avatar billede jensen363 Forsker
28. februar 2007 - 13:58 #8
Til almindelig inspiration, endte jeg op med denne programstump :

Private Sub cmdGodkendSag_Click()
Dim FilFolder As String
Dim Enhed
           
'Opret Sagsmapper til vedhæftning af dokumenter.

    FilFolder = DLookup("[ImportFil]", "tblFilplacering", "[ImportID] = 1")
    Enhed = DLookup("[Salgsenhed]", "tblInitial")
       
        MkDir (FilFolder & Enhed & " " & Format(Me!Sagsnummer, "00000000"))

End Sub
Avatar billede mugs Novice
28. februar 2007 - 14:25 #9
Tak for point :o)
Avatar billede jensen363 Forsker
28. februar 2007 - 14:31 #10
Velbekommen :-)
Avatar billede mugs Novice
28. februar 2007 - 16:55 #11
Testdb sendt til civil05.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester