---

Er der nogen der kan fortælle hvorfor Text1.text ikke modtager det der står
i (kunde) Det hentes fra en database

Mail for projekt.
Dan

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private Sub Combo1_click()
'Text1.Text = Combo1.Text

End Sub


Private Sub Form_Load()
Dim db_file As String
Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

' hent data.
db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "statik.mdb"

' åben forbindelse.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open

' Select statement.
statement = "SELECT * FROM lastberegninger"

' opret resultset.
Set rs = conn.Execute(statement, , adCmdText)

' brug resultset som man har lyst her cmbbox og listbox.

Do While Not rs.EOF

With Combo1
.AddItem rs!adresse '& " " & rs!efternavn & " " & rs!adresse
'.AddItem rs!efternavn
'.AddItem rs!adresse
'List1.AddItem rs!efternavn & " " & rs!adresse

End With

If rs!adresse = Combo1 Then
Text1.Text = rs!Kunde

' TxtEfternavn.Text = rs("efternavn")
'TxtAdresse.Text = rs("adresse")
' TxtPostNr.Text = rs("postnr")
'TxtBy.Text = rs("bynavn")

End If



rs.MoveNext
Loop


' Do While Not rs.EOF

' If rs!adresse = Combo1.Text Then
' Text1.Text = rs!Kunde
' TxtEfternavn.Text = rs("efternavn")
'TxtAdresse.Text = rs("adresse")
' TxtPostNr.Text = rs("postnr")
'TxtBy.Text = rs("bynavn")

' End If

' rs.MoveNext

' Loop



' luk resultset og forbindelse
rs.Close
conn.Close

Combo1.ListIndex = 0
End Sub
Private Sub Form_Resize()
Dim hgt As Single
'bla bla
Combo1.Width = ScaleWidth

hgt = ScaleHeight - List1.Top
If hgt < 120 Then hgt = 120
List1.Width = ScaleWidth
List1.Height = hgt
End Sub