Avatar billede juks Novice
10. oktober 2002 - 12:18 Der er 1 løsning

spring over hvis ikke loaded

Hej
jeg 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

----------
Avatar billede juks Novice
10. oktober 2002 - 12:24 #1
har løst den , satte bare en on error ind

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
On Error GoTo rrr
If fakn = Reports![faktura].faknr Then
fakn = fakn + 1
Me.faknr = fakn
Else
rrr:
  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
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester