Print side | Luk vindue

Fejl efter opdatering fra 2007 til 2010

Udskrevet fra: Dansk Access Forum
Kategori: Hjælp til Access
Forum navn: VBA / Makro
Forum beskrivelse: Spørgsmål vedr. den programmeringsmæssige del af Access
Web-adresse: http://www.accessforum.dk/forum_posts.asp?TID=130
Udskrevet den: 26-10-2020 kl. 23:14


Emne: Fejl efter opdatering fra 2007 til 2010
Besked fra: Bøffe
Emne: Fejl efter opdatering fra 2007 til 2010
Posteringsdato: 30-10-2018 kl. 17:47
Hej

Efter man opdatere vores Access 2007 til 2010 på mit arbejde.
så komme den med fejlmeldles når man klikke på kalender ikon så komme følgene fejl.

Run-time error 2683 hvis man så klikker på debug så komme med følgene

<

Option Compare Database

Private Sub Calendar0_AfterUpdate()

End Sub

Private Sub Calendar0_Click()

Dim TypeId As Integer

TypeId = DLookup("[BrugerType_Id]", "tblBruger", "[StabsNummer]='" & Forms!frmDøgnRapport!txtBruger & "'")

If Tekst1 = 0 Then

    Forms!frmRapportDialog!Tekst1 = Calendar0.Value

ElseIf Tekst1 = 1 Then

    Forms!frmRapportDialog!Tekst3 = Calendar0.Value

ElseIf Tekst1 = 2 Then

    Forms!frmDøgnRapport!Tekst80 = Calendar0.Value

    Forms!frmDøgnRapport.Requery

    If Calendar0.Value = Date Then

        DoCmd.GoToRecord , , acLast

        Forms!frmDøgnRapport.Requery

        Call SkiftPost(TypeId)

    End If

End If

DoCmd.Close acForm, "frmKalender"

End Sub

Private Sub Form_Load()

Calendar0.Value = Date

End Sub

>

Denne line er gul: Calendar0.Value = Date

Daterbasen er lavet med en forende og bagende.

Håber at det er nok til at hjælpe mig da jeg ikke selv kan finde en løsning.

mvh

Steen 



Svar:
Besked fra: hkh
Posteringsdato: 31-10-2018 kl. 16:44
Kører selv 2007, men det kan være du ikke har slået de rigtige tilføjelser til?

Feltet Calendar0, eksisterer det?


-------------
Hans



Print side | Luk vindue