Avatar billede software Nybegynder
01. juli 2002 - 13:21 Der er 14 kommentarer og
1 løsning

AfterUpdate

Hej

Jeg har lavet en formular med en kombobox som henter ID fra en tabel.
Alt efter hvilket ID-nr. man vælger skal de nedenstående tekstfelter automatisk blive fyldt ud med oplysninger fra tabellen.

Scriptet ser således ud:

Private Sub CboMoveTo_AfterUpdate()
Sub CboMoveTo_AfterUpdate()
    Dim Rst As Recordset
    Set Rst = Me.RecordsetClone
    Rst.FindFirst "[CustomerID] = '" & Me![CboMoveTo] & "'"
    If Not Rst.NoMatch Then Me.Bookmark = Rst.Bookmark
End Sub

men jeg får denne fejl:

Udtrykket EfterOpdatering, du indtastede som indstilling af hændelsesegenskaben gav en fejl: Ambiguous name detected: CboMoveTo_AfterUpdate.

Hvad betyder det ??
01. juli 2002 - 13:25 #1
Det er fordi du bruger det samme navn til 2 subér
01. juli 2002 - 13:27 #2
Først private sub CboMoveTo_AfterUpdate()
så sub CboMoveTo_AfterUpdate()
KOmmandoen sub henviser til navnet på din rutine og du henviser til det 2 gange inden i hinanden
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 13:28 #3
...er fordi du skriver

Private Sub cboMoveTo_AfterUpdate()
Sub cboMoveTo-AfterUpdate()

ie du bruger samme navn til 2 sub-procedurer er access ikke meget for
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 13:29 #4
prøv med

Private Sub CboMoveTo_AfterUpdate()
    Dim Rst As Recordset
    Set Rst = Me.RecordsetClone
    Rst.FindFirst "[CustomerID] = '" & Me![CboMoveTo] & "'"
    If Not Rst.NoMatch Then Me.Bookmark = Rst.Bookmark
End Sub

i stedet for
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 13:30 #5
>>udviklingskonsulenten - 2 hoveder en tanke :D
Avatar billede software Nybegynder
01. juli 2002 - 13:32 #6
Nu Får jeg en Compile error - Method or data member not found

hvor den markere ![CboMoveTo]
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 13:35 #7
....det felt du søger på er det tekst- eller talfelt?
Avatar billede software Nybegynder
01. juli 2002 - 13:37 #8
tekst
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 13:39 #9
...ups der var jeg for hurtig - sorry

Private Sub CboMoveTo_AfterUpdate()
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[CustomerID] = '" & Me![cboMoveTo] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Avatar billede terry Ekspert
01. juli 2002 - 13:39 #10
Try deleting the code and combo. Then use the combo box wizard to put a new combo on the form
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 13:41 #11
...hi terry
been a while :D
Avatar billede software Nybegynder
01. juli 2002 - 13:42 #12
det virker sgu nu..................tak
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 13:44 #13
...selv tak :)
Avatar billede terry Ekspert
01. juli 2002 - 13:46 #14
Hi susanne> Yes it has and I can see your getting faster at this game :o)
Avatar billede susanne_larsen Nybegynder
01. juli 2002 - 14:07 #15
...well so much to learn so little time ;p)
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