spring over hvis ikke loaded
Hejjeg har en lille stum kode der ikke vil som jeg.
problem er hvis ikke det en rapport er loaded så skal den bare køre som "normalt" , men er det nødvendig at finde ud af om rapporten er indlæst eller kan man lige som i isnull() bare springe over den istedet (fx resume eller) ???
problem stump
-----------
If fakn = Reports![faktura].faknr Then
fakn = fakn + 1
Me.faknr = fakn
-----------
Hele koden
----------
Dim varX As Variant
varX = DLookup("[Fakturaid]", "tbl_faktura", "[auktionsnummer] = " & Me.Aktionsnummer & " And [kperson] = " & Me.SpersonID & " And [cd] = -1")
If IsNull(varX) Then
Dim fakn As Double
If IsNull(DLookup("[fakturaid]", "tbl_faktura")) Then
Me.faknr = "1"
Exit Sub
Else
fakn = DLast("[fakturaid]", "tbl_faktura") + 1
If fakn = Reports![faktura].faknr Then
fakn = fakn + 1
Me.faknr = fakn
Else
Me.faknr = fakn
End If
End If
Else
Me.faknr = varX
MsgBox "Denne faktura har været udskrevet tidligere" & vbCrLf & "såfremt der er ændringer i beløbet vil dette IKKE blive gemt i databasen" & vbCrLf & "Kontakt evt. Chefprogrammør eller Nick "
End If
Else
Me.faknr = Forms!faktura_udskriv!Tekst8
End If
End Sub
----------
