Fjerne text i userform

her er en mulighed

Private Sub CommandButton4_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    If TypeName(ctl) = "TextBox" Then ctl = ""
Next
End Sub

Det fungerer bare perfekt. Kan du kort forklare hvordan det fungerer - hvad står Me for? Husk at svare så du kan få point :0)

sub'en gennemløber alle de controlelementer der er på formen, chekker om de er textboxe og sætter alle textboxe til "".
Me står for selve formen. Der kunne også have stået Userform1.
Me kan bruges fordi du sætter sub'en ind i userformens eget kodemodul.

Tak for hjælpen.
Ved du i øvrigt noget om ListBoxe jvf:
http://www.eksperten.dk/spm/411818
Jeg har oprettet en listbox1 i en userform og forsøgt at indlæse data fra access til denne jvf ovenstående men det lykkes ikke. Den skriver noget med Object Variable or With variable not set?

Ja, jeg ved lidt om listboxe, men forstår nok ikke lige spm.

Henvisningen er der mit problem er. Jeg har fået hentning af data fra Access database til at fungere vha nedenstående men ville geren ha' den indlæst i en Listbox/Userform, her er det der er lavet ( det der er anført med ' fungerer fint på ark2):

Sub SøgEfternavn()
Dim Rec As Recordset
Dim DB As Database
Dim IBox As String
Dim strSQL As String
  IBox = InputBox("Indtast søgestreng")
  strSQL = "SELECT * FROM [Kartotek 2003] WHERE Efternavn LIKE'" & IBox & "'"
  Set DB = Workspaces(0).OpenDatabase("\\hjertesrv\faelles\Lotte og Susanne\Registre\Patientregisteret.mdb")
  Set Rec = DB.OpenRecordset(strSQL, dbOpenSnapshot)
 
'  Dim i As Integer 'i indeholder rækkenummeret på den celle der skrives til
'  Ark2.Activate
'  Range("A1:K100").ClearContents
'  Range("A2").Select
'  Do While Not Rec.EOF
'    i = i + 1
'    ActiveSheet.Cells(i + 1, 1).Value = Rec!Fornavn
'    ActiveSheet.Cells(i + 1, 2).Value = Rec!Efternavn
'    ActiveSheet.Cells(i + 1, 3).Value = Rec![CPR nr]
'    ActiveSheet.Cells(i + 1, 4).Value = Rec![Patient nr]
'    ActiveSheet.Cells(i + 1, 5).Value = Rec![Adresse]
'    ActiveSheet.Cells(i + 1, 6).Value = Rec![Postnr og Bynavn]
'  Rec.MoveNext
' Loop
Dim ListBox1 As ListBox
ListBox1.ColumnCount = 6
 
'  ListBox1.Clear
  Do While Not Rec.EOF
    ListBox1.AddItem Rec![Patient nr]
    ListBox1.AddItem Rec!Fornavn
    ListBox1.AddItem Rec!Efternavn
    ListBox1.AddItem Rec![CPR nr]
    ListBox1.AddItem Rec!Adresse
    ListBox1.AddItem Rec![Postnr og Bynavn]
    Rec.MoveNext
  Loop
     
Rec.Close
Set DB = Nothing


End Sub

se iøvrigt http://www.eksperten.dk/spm/408393
og nogle af de andre spm CDDK har stillet. Jeg tror han har været godt omkring emnet

prøv lige med
listbox1.list = rec.getrows

Altså:

    Do While Not Rec.EOF ' the field names
      ListBox1.List = Rec.GetRows
      Rec.MoveNext
    Loop
Ovenstående fungerer ikke - fejl i anden linie

Steen -> mail med eksempel sendt til din msn adresse

Det ser da utrolig godt ud. Man kan vel i princippet lade listboxen videresende en til ex. anden projektmappe eller evt flette med et Worddokument?

Ja, det første burde nok kunne lade sig gøre, det andet ved jeg intet om.