Tabel data i tekst boks

Gem følgende i et modult og sæt me.FRABOKS = fhpHentFra()
(Er dog ikke helt sikker på resultatet)

Du burde nu nok i stedet bruge en listbox til at vise dine data fra tabellen.

Public Function fhpHentFra() As String
' -----------------------------------------------------------------------------------
' Purpose    :
' Parameters :
' Returns    : String
' Created    : 15-12-2010
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpHentFra
  Dim Result As String
  Dim rst As New ADODB.Recordset
 
  strSQL = "SELECT * FROM Fra"
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic

  rst.MoveFirst
  While Not rst.EOF
    Result = Result & Nz(rst!Fra, "") & vbCrLf
    rst.MoveNext
  Wend
 
  rst.Close
  Set rst = Nothing

Exit_fhpHentFra:
  fhpHentFra = Result
  Exit Function

Error_fhpHentFra:
  Result = ""
  Select Case Err.Number
    Case 3021
    Case 2501
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpHentFra'"
  End Select
  Resume Exit_fhpHentFra

End Function

Kanon det virker bare som det skal
Takker mange gange

Skriv et svar så du kan få dine point :-)

PS: det er ikke så smart at kalde din tabel det samme som et felt i den. Det kan give dig noget rod senere.

Kald f.eks. tabellen tblKald og feltet for fldKald. Så kan du altid senere hurtigt få overblik over hvad der er hvad.

PPS: tak for point

ja det har jeg fundet ud af, og jeg har rettet dem *S*