01. juli 2002 - 13:21Der 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.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
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
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
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.