[Access]: Registratiesysteem

[koelkast]

Ik moet op m'n stageadres een systeem opzetten om vragen te registreren die hier op het informatiecentrum binnenkomen. Nu zijn er wel wat programma's in de handel, maar die zijn allemaal veel te uitgebreid, en te duur.

Ik ben nou aan het bekijken of ik in Access ook zelf zoiets kan maken. Daarom heb ik een paar vraagjes:

* Hier staat Access 2000 op het netwerk geinstalleerd. Kan ik dan gewoon een database aanmaken, met als frontend een webpagina? Is dat allemaal in Access te doen, of moet ik daarvoor VisualBasic gaan schrijven?

* Het is uiteindelijk de bedoeling dat er vragen in het systeem gezet worden, die worden beantwoord vanuit een queue. Zodra er een antwoord op een vraag is, moet het antwoord in het systeem worden gezet, en óók automatisch naar de vragensteller worden gemaild. Kan dit met Access gemaakt worden, bijv. een koppeling met Outlook 2000?

* Weet iemand misschien een goed boek voor Access 2000?

[Tommel]

Ja, dat moet wel kunnen met Access.
Je hoeft je niet zo zeer in Access te verdiepen maar meer denk ik in database ontwerp.
Voor de frontend zou je bv ASP kunnen gebruiken.
E-mail met antwoord is ook goed te doen met ASP.
Denk ik wel een leuke en leerzaam projectje voor een eerste stage.

Linkjes:
ASP http://www.asp101.com/samples/index.asp
DB ontwerp http://www.sum-it.nl/cursus/dbdesign/hollands/scope010.htm

[Basszje]

Access kan je idd gebruiken als database. het moet neem ik aan vanuit een webbrowser gaan ( is wel zo makkelijk denk ik ) .

Indien niet zou het ook met access kunnen, maar daarin werken raad ik helemaal niemand aan.

Anders moet je denken aan een scripttaal als ASP voor webgebaseerd scripten of visual basic voor een applicatie.
(oid natuurlijk ) .

Maar die keuze is dus aan jezelf. Ik zou eens beginnen met het googlen op trefwoorden ( VB ASP Access etc) en kijken wat je wilt.

[koelkast]

Bedankt voor jullie reacties. Ik heb besloten toch maar iets in Access zelf te maken ipv een database te proggelen. Ik vraag me nu af of ik ook een koppeling kan maken tussen Access en Outlook 2000; als er een record is ingevoerd, moet er automatisch een mailtje uitgaan naar een bepaalde medewerker. Hoe stel ik dat in?

[Verwijderd]

Maak een referentie aan naar het Outlook object. Met behulp van dat object is het eenvoudig mail te versturen.

[Sjnirk]

Je kunt als je programmeer ervaring niet echt zo groot is met asp, ook data access pages gebruiken die in access zelf zitten, die hebben wel als voorwaarde dat er ie 4+ en office 2000 ofzo op de computer moet zitten die de webpagina heeft opstaan,

voor de link naar outlook: Daar kun je op deze pagina iets van vinden
http://www.mvps.org/access/

[koelkast]

Op woensdag 24 april 2002 15:45 schreef JeroenDega het volgende:
Maak een referentie aan naar het Outlook object. Met behulp van dat object is het eenvoudig mail te versturen.

Hoe maak ik zo'n referentie aan? Zou je daar wat meer over kunnen vertellen ?

[Sjnirk]

Dit is wel voor access 97 bedoelt, dus je zult wat aanpassingen moeten maken

code:

**************** Usage Example Start ****************
Sub TestMAPIEmail()
Dim clMAPI As clsMAPI
    Set clMAPI = New clsMAPIEmail
    With clMAPI
      .MAPILogon
      .MAPIAddMessage
      .MAPISetMessageBody = "Test Message"
      .MAPISetMessageSubject = "Some Test"
      .MAPIAddRecipient stPerson:="[e-mail]", _
                        intAddressType:=1      'To
      .MAPIAddRecipient stPerson:="Dev Ashish", _
                        intAddressType:=2      'cc
      .MAPIAddRecipient stPerson:="smtp:[e-mail]", _
                        intAddressType:=3      'bcc

      .MAPIAddAttachment "C:\temp\Readme.doc", "Jet Readme"
      .MAPIAddAttachment stFile:="C:\config.sys"

      .MAPIUpdateMessage
      .MAPISendMessage boolSaveCopy:=False
      .MAPILogoff
    End With
End Sub
'**************** Usage Example End ****************

'**************** Class Start ***********************
'
Option Compare Database
Option Explicit

Private mobjSession As MAPI.Session
Private mobjMessage As Message
Private mboolErr As Boolean
Private mstStatus As String
Private mobjNewMessage As Message

Private Const mcERR_DOH = vbObjectError + 10000
Private Const mcERR_DECIMAL = 261144    'low word order +1000

Public Sub MAPIAddMessage()
    With mobjSession
      Set mobjNewMessage = .Outbox.Messages.Add
    End With
End Sub

Public Sub MAPIUpdateMessage()
    mobjNewMessage.Update
End Sub

Private Sub Class_Initialize()
    mboolErr = False
End Sub

Private Sub Class_Terminate()
    On Error Resume Next
    Set mobjMessage = Nothing
    mobjSession.Logoff
    Set mobjSession = Nothing
End Sub

Public Property Let MAPISetMessageBody(stBodyText As String)
    If Len(stBodyText) > 0 Then mobjNewMessage.Text = stBodyText
End Property

Public Property Let MAPISetMessageSubject(stSubject As String)
    If Len(stSubject) > 0 Then mobjNewMessage.Subject = stSubject
End Property

Public Property Get MAPIIsError() As Boolean
    MAPIIsError = mboolErr
End Property

Public Property Get MAPIRecipientCount() As Integer
    MAPIRecipientCount = mobjNewMessage.Recipients.Count
End Property

Public Sub MAPIAddAttachment(stFile As String, _
                Optional stLabel As Variant)
Dim objAttachment As Attachment
Dim stMsg As String

    On Error GoTo Error_MAPIAddAttachment

    If mboolErr Then Err.Raise mcERR_DOH
    If Len(Dir(stFile)) = 0 Then Err.Raise mcERR_DOH + 10

    mstStatus = SysCmd(acSysCmdSetStatus, "Adding Attachments...")

    If IsMissing(stLabel) Then stLabel = CStr(stFile)

    With mobjNewMessage
      .Text = " " & mobjNewMessage.Text
      Set objAttachment = .Attachments.Add
      With objAttachment
        .Position = 0
        .Name = stLabel
        'no need to link a file me thinks
        .Type = CdoFileData
        .ReadFromFile stFile
      End With
      .Update
    End With

Exit_MAPIAddAttachment:
    Set objAttachment = Nothing
    Exit Sub
Error_MAPIAddAttachment:
    mboolErr = True
    If Err = mcERR_DOH + 10 Then
      stMsg = "Couldn't locate the file " & vbCrLf
      stMsg = stMsg & "'" & stFile & "'." & vbCrLf
      stMsg = stMsg & "Please check the file name and path and try again."
      MsgBox stMsg, vbExclamation + vbOKOnly, "File Not Found"
    ElseIf Err <> mcERR_DOH Then
      MsgBox "Error " & Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_MAPIAddAttachment
End Sub

Public Sub MAPIAddRecipient(stPerson As String, intAddressType As Integer)
Dim objNewRecipient As Recipient 'local

    On Error GoTo Error_MAPIAddRecipient
    mstStatus = SysCmd(acSysCmdSetStatus, "Adding Recipients...")

    If mboolErr Then Err.Raise mcERR_DOH

    'If there's no SMTP present in the stPerson var, then
    'we have to use Name, else Address
    With mobjNewMessage
      If InStr(1, stPerson, "SMTP:") > 0 Then
        Set objNewRecipient = .Recipients.Add(Address:=stPerson, _
                                Type:=intAddressType)
      Else
        Set objNewRecipient = .Recipients.Add(Name:=stPerson, _
                                Type:=intAddressType)
      End If
      objNewRecipient.Resolve
    End With

Exit_MAPIAddRecipient:
    Set objNewRecipient = Nothing
    Exit Sub

Error_MAPIAddRecipient:
    mboolErr = True
    Resume Exit_MAPIAddRecipient
End Sub

Public Sub MAPISendMessage(Optional boolSaveCopy As Variant, _
                    Optional boolShowDialog As Variant)

    mstStatus = SysCmd(acSysCmdSetStatus, "Sending message...")
    If IsMissing(boolSaveCopy) Then
      boolSaveCopy = True
    End If
    If IsMissing(boolShowDialog) Then
      boolShowDialog = False
    End If

    mobjNewMessage.Send savecopy:=boolSaveCopy, showdialog:=boolShowDialog
End Sub

Public Sub MAPILogon()
On Error GoTo err_sMAPILogon
Const cERROR_USERCANCEL = -2147221229

    mstStatus = SysCmd(acSysCmdSetStatus, "Login....")
    Set mobjSession = CreateObject("MAPI.Session")
    mobjSession.Logon

exit_sMAPILogon:
    Exit Sub

err_sMAPILogon:
    mboolErr = True
    If Err = CdoE_LOGON_FAILED - mcERR_DECIMAL Then
      MsgBox "Logon Failed", vbCritical + vbOKOnly, "Error"
    ElseIf Err = cERROR_USERCANCEL Then
      MsgBox "Aborting since you pressed cancel.", _
            vbOKOnly + vbInformation, "Operatoin Cancelled!"
    Else
      MsgBox "Error number " & Err - mcERR_DECIMAL & " description. " _
            & Error$(Err)
    End If
    Resume exit_sMAPILogon
End Sub

Public Sub MAPILogoff()
On Error GoTo err_sMAPILogoff
    mstStatus = SysCmd(acSysCmdSetStatus, "Logging off...")
    mobjSession.Logoff

    Set mobjNewMessage = Nothing
    Set mobjSession = Nothing
    mstStatus = SysCmd(acSysCmdClearStatus)
exit_sMAPILogoff:
    Exit Sub

err_sMAPILogoff:
    Resume exit_sMAPILogoff
End Sub
'**************** Class End  ***********************