hejsa jeg har lavet et lille program med en søgning der lister navne op i en listbox . nu kunne jeg så godt tænke mig at når jeg trykkede på et af disse navne resten af recordsettet endte i nogle textfelter jeg har lavet .kkan jeg det uden at skulle bruge sql koder ?? Håber på hurtig hjælp
Du kan bruge _Click eventen sammen med det index der er registreret, der er klikket på. Og så kan du så fylde det du vil i textboxe - jeg forstår ikke helt hvad du mener med " resten af recordsettet endte i nogle textfelter jeg har lavet"
jeg mener at når jeg får resultatet af min søgning i listboksen der får jeg jo kun et felt af hele recordsettet når jeg så klikker på det navn jeg vælger skal alle informationerne sættes i tekstfeltet som jeg har lavet og bruger til at oprette og slette
Du kan gå gennem dit recordsæt med MoveNext og MovePrevious. Så kan du nappe det du vil og sætte det ind i den textbox du vil...
Prøv at tænk på, at vi intet ved om dit program - så når du siger "all informationerne", "resultatet af min søgning" osv, er det ikke ret let at forstå. Resultaterne af hvilken søgning, f.eks.?
Et uddrag af din kode, og et mere struktureret/præcist spørgsmål vil hjælpe mig og andre med at hjælpe dig :o)
End Sub Dim sogefelt As String sogefelt = InputBox("TAST Brancekode") Data1.Recordset.MoveFirst list1.Clear Do While Data1.Recordset.EOF = False If Data1.Recordset("Branche kode") = sogefelt Then list1.AddItem Data1.Recordset("kontaktperson") Exit Sub End If Data1.Recordset.MoveNext Loop If list1.ListCount = 0 Then MsgBox "der er ikke nogen branche med den kode" End If End Sub det er så der at jeg fylder noget i listfeltet og det virker jo meget godt men har er det så sket jeg kan ikke få den til at vælge noget
der er i min db en masse informationer om firmaer bla.firmanavn og tlf . da det ville praktisk hvis jeg kunne vælge et navn fra lisen klikke på det og få alle felterne vist (i det recordset) hvis du har tid og lyst vil jeg gerne maile det til dig ......det skal jeg selvfølgelig nok give ekstra Points for ?
Ikke for noget, men den kode du har vist virker vel ikke? Du mangler at definere din Sub - du har en End Sub, men ingen start...
Desuden vil du vist aldrig få mere end EN kontaktperson i din List1.
Og desuden har du en Command3, der ikke bliver brugt til noget
Men når du så klikker på den kontaktperson, kan du jo bare læse de tilhørende data ind, på samme måde som du henter kontaktpersonen
fx. Text1.Text = Data1.Recordset("telefonnr")
Den kode smider du i din _Click event for List1...
Synes godt om
Ny brugerNybegynder
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.