Afsluiten Access bij bereiken bepaalde datum

[dvah]

Hoi Forum

Mischien een simpele vraag maar ik kom er ff niet uit
ik wil dat access afsluit bij het bereiken van een bepaalde sysdate.

ik heb een access tool geschreven en wil een bepaalde proef periode hebben
in een formulier heb ik een veld tekst65 gevuld met de sysdate date()

nu wil ik als de sysdate bv 31-01-2010 word dat er een msgbox komt met een melding dat de proefperiode van deze tool is verlopen. en dat access word afgesloten

ik dacht zelf aan :

#private sub tekst65

if Formtekst65 = 31-01-2009 then

msgbox "de proefperiode van deze tool is verstreken"
do.cmd close

end sub

maar ik krijg dat niet aan de gang ?

de tool is geschreven in access 2003

Option Compare Database

Private Sub Keuzelijst_met_invoervak0_AfterUpdate()

End Sub

Private Sub Keuzelijst_met_invoervak31_GotFocus()

End Sub

Private Sub Knop35_Click()
DoCmd.RunCommand acCmdLinkedTableManager

End Sub

Private Sub send_mail_Click()
On Error GoTo Err_send_mail_Click

    Dim stAppName As String

    stAppName = "send mail"
    Call Shell(stAppName, 1)

Exit_send_mail_Click:
    Exit Sub

Err_send_mail_Click:
    MsgBox Err.Description
    Resume Exit_send_mail_Click
    
End Sub

Private Sub Knop22_Click()
On Error GoTo Err_Knop22_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Contact personen"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop22_Click:
    Exit Sub

Err_Knop22_Click:
    MsgBox Err.Description
    Resume Exit_Knop22_Click
    
End Sub

Private Sub Knop29_Click()
On Error GoTo Err_Knop29_Click


    DoCmd.Close

Exit_Knop29_Click:
    Exit Sub

Err_Knop29_Click:
    MsgBox Err.Description
    Resume Exit_Knop29_Click
    
End Sub

Private Sub Knop30_Click()
On Error GoTo Err_Knop30_Click


    DoCmd.Quit

Exit_Knop30_Click:
    Exit Sub

Err_Knop30_Click:
    MsgBox Err.Description
    Resume Exit_Knop30_Click
    
End Sub

Private Sub send_mail_GotFocus()

End Sub

Private Sub Knop49_Click()
On Error GoTo Err_Knop49_Click

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

Exit_Knop49_Click:
    Exit Sub

Err_Knop49_Click:
    MsgBox Err.Description
    Resume Exit_Knop49_Click
    
End Sub

Private Sub Knop50_Click()
On Error GoTo Err_Knop50_Click

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

Exit_Knop50_Click:
    Exit Sub

Err_Knop50_Click:
    MsgBox Err.Description
    Resume Exit_Knop50_Click
    
End Sub

Private Sub Knop57_Click()
On Error GoTo Err_Knop57_Click


    DoCmd.PrintOut

Exit_Knop57_Click:
    Exit Sub

Err_Knop57_Click:
    MsgBox Err.Description
    Resume Exit_Knop57_Click
    
End Sub

Private Sub Tekst65_BeforeUpdate(Cancel As Integer)

End Sub#

Ron

 

[snb]

- Waarom zet je code niet tussen code Tags (#)
- Wat doet al die code hier ? er is geen verband met je vraag.

 

[dvah]

code

die code is de code van het betrfeffende formulier

dat van die tags wist ik niet ik hersteld dat wel ff

 

[OctaFish]

Je kunt een formulier maken dat je laat openen bij het starten van de db, waar je een actie op zet bij de gebeurtenis <Bij laden>:

Private Sub Form_Load()

    If Me.txtDatum <= Date Then
        MsgBox "De proefperiode is verlopen...", vbOKOnly
        DoCmd.Quit
    End If

End Sub

Overigens is dit maar een heel globale oplossing, want met de <Shift> toets kun je hier nog ruimschoots omheen... Je zult dus verder moeten beveiligen om te voorkomen dat er met de db wordt gewerkt.

A Propos: waarom de vraag niet in de Access groep gepost

 

[dvah]

ja op die manier kan het ook niet aangedacht

kwam er pas achter dat er ook een speciale access groep was toen ik vraag had gelaatst.

kan iemand dit verplaatsen naar de juiste groep ?

 

[huijb]

@dvah code tussen codetags geplaatst. Een volgende keer graag zelf een zo helder mogelijk overzicht van je code plaatsen. Het lijkt nu meer op "Brusselse kermis"