Reset af tæller hvis omstændigheder er til stede.
Jeg har langt om længe, med hjælp her fra "Experten", fået mine tællere til, næsten at virke efter hensigten.Jeg mangler kun at kunne resætte dem under visse omstændigheder.
Jeg har nogle gange brug for at resætte når tælleren har talt til et forudbestemt tal.
F.eks.tælle fra 1 til 10 og derefter ressætte til 1.
Jeg har prøvet at lægge en "Iff sætning" flere forskellige steder men uanset hvad, får jeg på "SET Nr = Nr+1"
Private Sub AC_Reg_BeforeUpdate(Cancel As Integer)
Dim Stringsearch As String
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE TblTællerX SET TblTællerX.Nr = [Nr] WHERE ((TblTællerX.[AC Reg])=[Forms]![FrmX]![AC Reg])"
DoCmd.SetWarnings True
Stringsearch = Me.AC_Reg
Me.X_check_ number = DLookup("[Nr]", "TBLTællerX", "[AC REG]='" & Stringsearch & "'")
End Sub
'Private Sub Form_AfterInsert(Cancel As Integer)
'Dim Stringsearch As String
'Stringsearch = Me.AC_Reg
'Me.X_check_number = DLookup("[Nr]", "TblTællerX", "[AC_Reg]='" & Stringsearch & "'")
'DoCmd.SetWarnings False
'DoCmd.RunSQL "UPDATE Nr ,TblTællerX", (AC_Reg = "Me.AC_Reg")
'Set Nr = Nr + 1
'DoCmd.SetWarnings True
'End Sub