Avatar billede nyholm Novice
05. december 2005 - 22:16 Der er 2 kommentarer og
1 løsning

Mærkligt felmeddelande

Vid utskrift av en rapport øppnas ett formulær med en kalender dær val av tidsperiod gørs. Vid stængning av rapporten finns instruktionen att æven stænga formulæret med kalendern. Allt fungerar korrekt men jag får felmeddelandet att Objektet støder inte egenskapen eller metoden. Vet någon vad som kan vara orsaken?
Avatar billede jesperfjoelner Nybegynder
06. december 2005 - 00:02 #1
Kan du vise os linjen, hvor fejlen sker?
Avatar billede nyholm Novice
06. december 2005 - 20:20 #2
Hej jesperfjoelner! Jag har varit upptagen med annat och inte kunnat svara dig førræn nu.
Koden till formulæret ær enligt føljande:
    If IsDate(Me.Startdatum) And IsDate(Me.SLUTDATUM) Then
            If Me.SLUTDATUM < Me.Startdatum Then
                msg "Slutdatum måste vara senare än startdatum.", vbInformation, "Datumfel!"
                AngeDatum.Caption = "Ange slutdatum"
                MarkeraDatum.SetFocus
            Exit Sub
            End If

        If Forms.Urval.Rapp = 2 Then
            If DLookup("Debiteras", "ResapMakulSpec") > 0 Then
                    DoCmd.OpenReport "ResapMakulPrint", acNormal
                If DLookup("Fakturering", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort", acNormal
                End If
                If DLookup("Bokslut", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort2", acNormal
                End If
            Else
                If DLookup("Fakturering", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort", acNormal
                End If
                If DLookup("Bokslut", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort2", acNormal
                End If
            End If
        End If
   
        If Forms.Urval.Rapp = 3 Then
            If DLookup("Debiteras", "ResapMakulSpec") > 0 Then
                    DoCmd.OpenReport "ResapMakulPrint", acViewPreview
                If DLookup("Fakturering", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort", acViewPreview
                End If
                If DLookup("Bokslut", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort2", acViewPreview
                End If
            Else
                If DLookup("Fakturering", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort", acViewPreview
                End If
                If DLookup("Bokslut", "Ftg") = True Then
                    DoCmd.OpenReport "Manadsrappinkort2", acViewPreview
                End If
            End If
        End If
        DoCmd.Close acForm, "Urval"<<<<<<<<<<<
    Else
        msg "Ange ett giltigt datum för startdatum och slutdatum.", vbInformation, "Ogiltigt datum!"
    End If
Jag har nu ændrat <<<<<<<<<< från att tidigare varit Me.Visible = False
vilket fungerar. Tidigare stængdes formulæret via rapporten som vid stængning kørde koden Docmd.Close acform, "Urval" vilket gav felmeddelandet att objektet inte støder egenskapen eller metoden.
Avatar billede nyholm Novice
16. december 2005 - 20:32 #3
Closing question.
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