where betingelse i query fra text-box

hi juks, what are you after?

hvordan kan man liste alle poster i en tabel i eet felt
jeg har en tabel der hedder udskriv .
indeholdene et kontonr og ikke andet , de skal listes i et text felt

IF I understand you correctly you want to show a single field from ALL records in ONE field?

You willl need to loop through a recordset concatenating the db field to the end of the text field.


Dim dbs As Database, rst As Recordset
   
   
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("TheTable")
   
    'Empty the field
    me.TheTextField = ""

    Do while NOT rst.EOF
          me.TheTextField = me.TheTextField & rst!ThedBField
          rst.movenext

        Loop

something like that I would think!

ja det er noget ligne men den viser ikke konto numrene i mit felt ! bare uden dubletter .

sorry forkert kommentar 10:21:19, jeg har fået det til at virker . men du har ikke en løsning til det In() halløj i http://www.eksperten.dk/spm/274942

In is the same as

A OR B OR C

hvis jeg sætter 650-22,211-23 ind i mit felt virker min sql ikke jeg brug den where betingelse her .
------
WHERE (((qbe_timepriser_alle_pr_kommune.Kontonr) In ([Formularer]![frm_vaelg_udskrift]![Tekst33]))
------------
hvis du tager konto 650-22 eller 211-23 enekeltvis  så virker det fint

jeg tror det er fordi det er et tekst felt både i tabellen og i formularen .

Its because they are text fields and text fields need to be inside '' so you need to append '' to the text field too and a comma between them.

IF I understand you correctly you want to show a single field from ALL records in ONE field?

You willl need to loop through a recordset concatenating the db field to the end of the text field.


Dim dbs As Database, rst As Recordset
   
   
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("TheTable")
   
    'Empty the field
    me.TheTextField = ""

    Do while NOT rst.EOF

          me.TheTextField = "'" & me.TheTextField & rst!ThedBField & "',"
          rst.movenext

    Loop

'We will end up with a , att the end, I will let you look at that problem yourself :o)

hvorfor virker det kun anden gang man trykker på en given post , første gang vises der ikke noget i textfield men den skriver i tabellen

Private Sub Kontonr_DblClick(Cancel As Integer)
On Error GoTo err
Dim dbs As Database
Dim rst As dao.Recordset
 
   
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("Select * from tbl_udskriv ", dbOpenDynaset)
    With rst
        .AddNew
        !Kontonr = Me.Kontonr
        .Update
    End With


   
    'Empty the field
    Me.Tekst16 = ""

 
        ' If Me.Tekst16 = "" Then
          ' Do While Not rst.EOF
        ' Me.Tekst16 = Me.Tekst16 & rst!Kontonr
          'rst.MoveNext
          'Loop
          'Else
          Do While Not rst.EOF
          Me.Tekst16 = Me.Tekst16 & "," & rst!Kontonr
          rst.MoveNext
Loop
'End If

err:

End Sub