Optellen is access

[wizard2000]

Optellen in access

Hij doet het.....

Bij converteren access2k3 naar 2k7 werden macro`s automatische op niet inschakelen gezet...



Jongens bedankt..

john

 

[wizard2000]

Optellen in access

Kan het popup scherm van jaar en maand keuze....na de keuze te hebben gemaakt en op kasboek is gedukt......automatisch sluiten..???


John

 

[OctaFish]

Dat kan. Je moet er dan een regeltje bijzetten.

Docmd.Close

 

[wizard2000]

Optellen in access

Zo..??

Option Compare Database
Option Explicit

Private Sub cboJaar_AfterUpdate()
Me.cboMaand = ""
Me.cboMaand.Requery
End Sub

Private Sub cboMaand_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub cmdKasboek_Click()
On Error GoTo Err_cmdKasboek_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "KASBOEK"

stLinkCriteria = "Format([DATUM],'mmmm')='" & Me.cboMaand & "' AND Year([DATUM])=" & Me.cboJaar
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdKasboek_Click:
Exit Sub

Err_cmdKasboek_Click:
MsgBox Err.Description
Resume Exit_cmdKasboek_Click
DoCmd.Close


End Sub

Private Sub Details_Click()

End Sub

Maar dan doet ie het niet..

john

 

[OctaFish]

Nee, dat is logisch. Je hebt de code helemaal achteraan gezet, als de procedure al is gestopt. Hij moet hier:

Private Sub cmdKasboek_Click()
On Error GoTo Err_cmdKasboek_Click
Dim stDocName As String
Dim stLinkCriteria As String
    stDocName = "KASBOEK"
    
    stLinkCriteria = "Format([DATUM],'mmmm')='" & Me.cboMaand & "' AND Year([DATUM])=" & Me.cboJaar
[B][COLOR=blue]    DoCmd.Close acForm, Me.Form.Name
[/COLOR][/B]    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Exit Sub
Err_cmdKasboek_Click:
MsgBox Err.Description
End Sub

Ik heb 'm nog een beetje uitgebreid, omdat alleen Docmd.Close een beetje riskante opdracht is. Staat hij op de verkeerde plaats, dan heb je kans dat je de hele db ermee afsluit, en dat is niet altijd de bedoeling. Nu sluit hij specifiek alleen het actieve formulier.

En nog een tip: als je vba code plaatst, zet hem dan in de CODE tag (knop #). Dat leest prettiger.

 

[wizard2000]

Optellen in access

Ja, zal ik doen.

Werkt nu prima.


Dank je wel.

John