[access] Record benaderen dmv waarde vergelijken uit kolom

Pagina: 1
Acties:

  • Zerora
  • Registratie: September 2003
  • Laatst online: 20:03

Zerora

Ik Henk 'm!

Topicstarter
Ik heb een probleem/vraag met mn Access database.

Hoe ga je met access naar een record waarvan de waarde uit de kolom "ID" uit die tabel overeenkomt met een getal.
Bijvoorbeeld:
Hoe zeg je in Access met vb-code: "ga naar het record waar ID = 3"

Omdat er gebruikt wordt gemaakt van een keuzelijst moet het volgende command erbij gebruikt worden:
code:
1
DoCmd.GoToRecord acDataForm, "data", acGoTo,


Hopelijk heeft iemand een oplossing. Ik heb het echt nodig.

Trans-life! :::: "All things change, whether from inside out or the outside in. That is what magic is. And we are magic too."


  • zwippie
  • Registratie: Mei 2003
  • Niet online

zwippie

Electrons at work

Als de index getallen in de combobox in PRECIES dezelfde volgorde staan als de records in je formulier, dan kun je het oplossen met:
Visual Basic:
1
DoCmd.GoToRecord , , acGoTo, cmbIndex.ListIndex + 1

De +1 is omdat arrays in Acces beginnen te tellen vanaf 1, maar de combobox denkt daar natuurlijk weer net even anders over. :Z
Let wel op, dit is een 'gevaarlijke' methode. Er hoeft maar iets in de volgorde van 1 van beide te veranderen en het klopt niet meer. Je moet in de gegevensbron van je formulier en combobox dus absoluut dezelfde query gebruiken met dezelfde SORT BY Index oid.

How much can you compute with the "ultimate laptop" with 1 kg of mass and 1 liter of volume? Answer: not more than 10^51 operations per second on not more than 10^32 bits.


  • Zerora
  • Registratie: September 2003
  • Laatst online: 20:03

Zerora

Ik Henk 'm!

Topicstarter
OK heb hem zelf weten te fixen. ;)

code:
1
2
3
4
5
6
7
Private Sub Keuzelijst19_Click()
Dim naam As Object
          
Set naam = Me.Recordset.Clone
     naam.FindFirst "[ID] = " & Str(Nz(Me![Keuzelijst19], 0))
     If Not naam.EOF Then Me.Bookmark = naam.Bookmark
End Sub


Zwippie iig bedankt voor je moeite ;)

[ Voor 10% gewijzigd door Zerora op 21-03-2005 23:12 ]

Trans-life! :::: "All things change, whether from inside out or the outside in. That is what magic is. And we are magic too."