Avatar billede james_ii Nybegynder
06. januar 2003 - 17:28 Der er 5 kommentarer og
1 løsning

What the ....bip.... (hvad er fejlen)

Hvor ligger fejlen i den her kode..
uanset om der står det samme i kundeid og kundeid2 eller ej prøver den at lave en ny record. Hvis findrecord ikke finder den laver den en ny record uden problemer, men når findrecord finder noget prøver den alligevel på at lave en ny record men kommer så med en gevaldig fejlmeddelse...

Det ville være dejlig hvis en kunne se geden..

Private Sub Form_Current()
[kundeid].SetFocus
DoCmd.FindRecord Forms!kundefaktura![kundeid2]

If Not Forms!kundefaktura![kundeid] = Forms!kundefaktura![kundeid2] Then
    DoCmd.GoToRecord , , acNewRec
    Forms!kundefaktura![kundeid] = Forms!kundefaktura![kundeid2]
End If

Mvh James II
Avatar billede kabbak Professor
06. januar 2003 - 17:35 #1
prøv denne

Private Sub Form_Current()
[kundeid].SetFocus

If  Forms!kundefaktura![kundeid] =Forms!kundefaktura![kundeid2] Then

DoCmd.FindRecord Forms!kundefaktura![kundeid2]

else
    DoCmd.GoToRecord , , acNewRec
    Forms!kundefaktura![kundeid] = Forms!kundefaktura![kundeid2]
End If
Avatar billede james_ii Nybegynder
06. januar 2003 - 17:39 #2
Ja nu ved jeg ikke om du har misforstået noget eller om det er mig der ikke kan forklare, Men den skal jo først se om den record findes før den så meget som slår en ski...

Mvh james
Avatar billede mugs Novice
06. januar 2003 - 17:40 #3
Prøv i første omgsang at indsætte denne kode, og se om den finder en post i Form2:

DoCmd.OpenForm "Form2"
Forms!Form2!Felt1.SetFocus
DoCmd.FindRecord Me!Felt1
Avatar billede james_ii Nybegynder
06. januar 2003 - 17:47 #4
til mugs:

kommer stadig med den samme fejl: "du kan ikke gå til den angivne post" og så viser den gult ved DoCmd.GoToRecord , , acNewRec

Mvh James
Avatar billede james_ii Nybegynder
06. januar 2003 - 17:49 #5
til mugs:
Med hensyn til om den finder en post, ja det gør den og det gjorde den også før, nu har jeg bare den samme kode 2 gange..

Mvh James
Avatar billede james_ii Nybegynder
06. januar 2003 - 23:27 #6
Fandt på noget andet..

Jeg placerede koden i knappen og ændrede den lidt, så nu virker det.


DoCmd.OpenForm ("kundefaktura")
Forms!kundefaktura![kundeid].SetFocus
DoCmd.FindRecord Me![kunde id]

If Not Forms!kunde![kunde id] = Forms!kundefaktura![kundeid] Then
DoCmd.GoToRecord , , acNewRec
Forms!kundefaktura![kundeid] = Forms!kunde![kunde id]
End If

If 0 = 0 Then
    Forms!kunde![faktura] = True
    Forms!kundefaktura![tlf].SetFocus
    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