Avatar billede Slettet bruger
08. februar 2012 - 17:05 Der er 8 kommentarer og
1 løsning

Kodemodul ???

Hej
Jeg er i gang med at lave en database, med stor hjælp fra denne side.
Jeg har i øjeblikket et, syndtes jeg, nærkeligt problem.
Jeg har denne kode fra jer, den kører perfekt:
Option Compare Database
  Private Sub Serie1_BeforeUpdate(Cancel As Integer)
    Me.Total = Me.Serie1 + Me.Serie2 + Me.Serie3
End Sub
Private Sub Serie2_Exit(Cancel As Integer)
    Me.Total = Me.Serie1 + Me.Serie2 + Me.Serie3
End Sub
Private Sub Serie3_BeforeUpdate(Cancel As Integer)
    Me.Total = Me.Serie1 + Me.Serie2 + Me.Serie3
End Sub
------------------
Men når jeg sætter den sammen med en anden, som er denne:

Option Compare Database

Private Sub Kommandoknap23_Click()
On Error GoTo Err_Kommandoknap23_Click


    DoCmd.GoToRecord , , acNewRec
   

Exit_Kommandoknap23_Click:
    Me.Serie1.SetFocus
    Me.Serie1 = ""
    Me.Serie2 = ""
    Me.Serie3 = ""
    Me.RødK = ""
    Me.BlåK = ""
    Me.Spare = ""
    Exit Sub

Err_Kommandoknap23_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap23_Click
   
End Sub
Så vil det ikke arbejde sammen.
Jeg har programmeret en del i VB6.0, men jeg kan ikke gennemskue kodemodulet.
Er der noget bestemt sted jeg skal sætte den ene elle den anden kode.
Spørg endelig, hvis spørgsmålet er uklart.
m.v.
Ole
Avatar billede mugs Novice
08. februar 2012 - 17:24 #1
Hvilken fejlmelding får du?
Avatar billede terry Ekspert
08. februar 2012 - 18:50 #2
I would suggest you change + to &

Also assigning values to fields in code may not trigger any events

where your doing this
Me.Total = Me.Serie1 + Me.Serie2 + Me.Serie3

So an idea would to make another function

Private Sub UpdateTotal()
Me.Total = Me.Serie1 + Me.Serie2 + Me.Serie3

End Sub

Then in your BeforeUpdate events etc. you call this function
EG:
Private Sub Serie1_BeforeUpdate(Cancel As Integer)
    UpdateTotal()
End Sub

Then change
Exit_Kommandoknap23_Click:
    Me.Serie1.SetFocus
    Me.Serie1 = ""
    Me.Serie2 = ""
    Me.Serie3 = ""
    Me.RødK = ""
    Me.BlåK = ""
    Me.Spare = ""
UpdateTotal()
    Exit Sub

Err_Kommandoknap23_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap23_Click
   
End Sub
Avatar billede terry Ekspert
08. februar 2012 - 18:50 #3
.
Avatar billede Slettet bruger
10. februar 2012 - 11:29 #4
Hej Terry
Efter at jeg havde skrevet dette spørgsmål og så det igen, tænkte jeg, det er der da ingen der kan forstå, det er næste lige så svært at sprive et spørgsmål, så det kan forstås, som det er at skrive selve koden.
Men du kunne gennem gennemskue det straks, og efter din anvisning, har jeg fået løst det problem.
Mange tak.
Med venlig hilsen
Ole
Avatar billede mugs Novice
10. februar 2012 - 11:40 #5
Og hvor vi andre er fortabte - det er set mange gange før. olejohn bør acceptere terry's svar.
Avatar billede terry Ekspert
10. februar 2012 - 13:11 #6
Happy to hear it works Ole

Can you both have a good weekend
Avatar billede Slettet bruger
10. februar 2012 - 16:20 #7
Dette er fjerde gang jeg forsøger at acceptere terry´s svar, men jeg syndtes, at det snyder en gang i mellem.
Men MUGS jeg syndtes fortsat det var fantastisk, at mit spørgsmål kunne forstås, og mit delprogram kører som i smør.
Mange tak TERRY
Og kan alle her have en god weekend.
Med venlig hilsen
Ole
Avatar billede Slettet bruger
10. februar 2012 - 16:23 #8
Hej igen!
Nu har jeg sat vingeben i acceptér dette svar, det har jeg ikke gjort de andre gange, idet jeg var bange for, at jeg så gav mig selv point, men nu får vi se.
Igen
Med venlig hilsen
Ole
Avatar billede terry Ekspert
10. februar 2012 - 18:13 #9
Thankjs for the points Ole

BR
Terry
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