Predmet:Re: Kumulativni zbir u Access 2007

---

vidili ko gdje je ovdje greška

zapne na komandi IF

Private Sub Command6_Click()
Dim ag, ag1, ng, ng1, ng2, NG3, OP As String
Dim P, K, K1, PD, KD As Date

P = "01.01." & Me.Text4.Column(1) & "."
K = "30.06." & Me.Text4.Column(1) & "."
K1 = "31.12." & Me.Text4.Column(1) & "."
ng = "aktiv.godina = '" & Me.Text4.Column(1) & "'"
ng1 = "period.godina = " & Me.Text4.Column(1) & ""
ng2 = "aktiv.firma = '" & Me.Text4.Column(2) & "'"
NG3 = "period.firmaID = '" & Me.Text4.Column(2) & "'"
OP = "period.ObracinskiPeriod = '" & Me.Text4.Column(4) & "'"
PD = "period.Pdatum = " & P
If Me.Text4.Column(4) = "periodicni" Then
KD = "period.Kdatum = " & K
ElseIf Me.Text4.Column(4) = "GODISNJI" Then
KD = "period.Kdatum = " & K
End If

DoCmd.RunSQL "UPDATE period SET period.aktiv = false;" 'poništi aktivni period
DoCmd.RunSQL "UPDATE aktiv SET " & ng & " WHERE (((aktiv.aktivan)=True));" 'NOVI UPIS PERIODA U AKTIV
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & NG3 & " WHERE " & ng1 & ";" 'upis aktivne firme u period
DoCmd.RunSQL "UPDATE aktiv SET " & ng2 & " WHERE (((aktiv.aktivan)=True));" 'u aktiv upisi aktivnu firmu
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & OP & " WHERE " & ng1 & ";" 'upis aktivne firme u period
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & PD & " WHERE " & ng1 & ";" 'upis aktivne firme u period
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & KD & " WHERE " & ng1 & ";" 'upis aktivne firme u period

Set ag1 = CurrentDb().OpenRecordset("SELECT m.[Puni naziv firme] AS P, a.godina AS G FROM aktiv AS a INNER JOIN [maticni podatci] AS m ON a.firma = m.[Firma id] WHERE (((a.NivoFirma)=True));")
Refresh
Me.Caption = "Aktivna firma " & ag1!P & " i aktivna godina " & ag1!g
Me.Text4.Requery
MsgBox "Obračunski period uspješno promjenjen." & vbCrLf & vbCrLf & "Aktivna firma je " & ag1!P & "." & vbCrLf & "Aktivna godina je " & ag1!g & vbCrLf & "Obračunski period ostaje aktivan do sljedeče promjene", vbOKOnly, "P L A T E"
If vbOK Then
DoCmd.Close
End If
End Sub