Problemet med denne kode er at den stopper så snart den har fundet første resultat. Hvis man gerne vil have vist at der er flere resultater af søgningen, hvordan gør man så det?? Ligeledes hvis man ønsker at have en Msgbox, der fortæller at der flere resultater af søgningen. Hvad er der galt med følgende kode?
Private Sub Txtfornavn_DblClick() dat.Recordset.MoveFirst Do Until ((txtsøge.Text = Txtfornavn.Text) Or (Txtfornavn.Text = \"\")) dat.Recordset.MoveNext Loop If Txtid.Text = \"\" Then svar = MsgBox(Prompt:=\"Blev ikke fundet\", Title:=\"søgning afsluttet\", Buttons:=vbOKOnly + vbInformation) End Sub
Hvis du vil vise hvor mange svar databasen kan give skal du tælle op og bruge en Do While Not EOF og så if(txtsøge.Text=Txtfornavn.Text) osv... then tal=tal+1
Do Until ((txtsøge.Text = Txtfornavn.Text) Or (Txtfornavn.Text = \"\"))
Denne linje er årsagen til at du stopper før den har læst hele db igennem. Din betingelse for at løkken skal stopper er jo ((txtsøge.Text = Txtfornavn.Text) dvs. første gang txtsøge.text = textfornavn.text.
Din betingelse for at stopper skal, ganske som mmp skriver, være EOF eller noget andet der angiver at du er nået slutningen på DB\'en .
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.
