Excel og Access Record problem
HejNedenstående kode skal hente data fra Access og ind i en brugerform konstrueret som multipage således at hver side skal fremvise en Konsulent. Den henter fint den første Record men siden intet så jeg må jo gøre et eller andet galt. Er det muligt evt at sortere de data man henter således at de hentes i en speciel rækkefølge?
vh Steen
Sub HentKonsulenter()
On Error Resume Next
Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim c As Variant
Dim iBox As String
Dim strSQL As String
Dim sPath As String
Dim Tlfno As String
Tlfno = FrmFirma.TextBox1.Text
sPath = ActiveWorkbook.Path & "\"
' Create the connection string.
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & sPath & "gps.mdb;"
szSQL = "SELECT * FROM FKonsulenter WHERE [Tlf] = '" & Tlfno & "'"
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not rsData.EOF Then
FrmFirma.TextBox40.Text = rsData("Fornavn").Value
FrmFirma.TextBox41.Text = rsData("Efternavn").Value
FrmFirma.TextBox42.Text = rsData("Postnr").Value
FrmFirma.TextBox43.Text = rsData("Mobil").Value
FrmFirma.TextBox44.Text = rsData("E-mail").Value
FrmFirma.TextBox45.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox46.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox47.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox48.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox49.Text = rsData("Bemærkninger 2").Value
rsData.MoveNext
FrmFirma.TextBox50.Text = rsData("Fornavn").Value
FrmFirma.TextBox51.Text = rsData("Efternavn").Value
FrmFirma.TextBox52.Text = rsData("Postnr").Value
FrmFirma.TextBox53.Text = rsData("Mobil").Value
FrmFirma.TextBox54.Text = rsData("E-mail").Value
FrmFirma.TextBox55.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox56.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox57.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox58.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox59.Text = rsData("Bemærkninger 2").Value
rsData.MoveNext
FrmFirma.TextBox60.Text = rsData("Fornavn").Value
FrmFirma.TextBox61.Text = rsData("Efternavn").Value
FrmFirma.TextBox62.Text = rsData("Postnr").Value
FrmFirma.TextBox63.Text = rsData("Mobil").Value
FrmFirma.TextBox64.Text = rsData("E-mail").Value
FrmFirma.TextBox65.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox66.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox67.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox68.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox69.Text = rsData("Bemærkninger 2").Value
rsData.MoveNext
FrmFirma.TextBox70.Text = rsData("Fornavn").Value
FrmFirma.TextBox71.Text = rsData("Efternavn").Value
FrmFirma.TextBox72.Text = rsData("Postnr").Value
FrmFirma.TextBox73.Text = rsData("Mobil").Value
FrmFirma.TextBox74.Text = rsData("E-mail").Value
FrmFirma.TextBox75.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox76.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox77.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox78.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox79.Text = rsData("Bemærkninger 2").Value
rsData.MoveNext
FrmFirma.TextBox80.Text = rsData("Fornavn").Value
FrmFirma.TextBox81.Text = rsData("Efternavn").Value
FrmFirma.TextBox82.Text = rsData("Postnr").Value
FrmFirma.TextBox83.Text = rsData("Mobil").Value
FrmFirma.TextBox84.Text = rsData("E-mail").Value
FrmFirma.TextBox85.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox86.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox87.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox88.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox89.Text = rsData("Bemærkninger 2").Value
rsData.MoveNext
FrmFirma.TextBox90.Text = rsData("Fornavn").Value
FrmFirma.TextBox91.Text = rsData("Efternavn").Value
FrmFirma.TextBox92.Text = rsData("Postnr").Value
FrmFirma.TextBox93.Text = rsData("Mobil").Value
FrmFirma.TextBox94.Text = rsData("E-mail").Value
FrmFirma.TextBox95.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox96.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox97.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox98.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox99.Text = rsData("Bemærkninger 2").Value
rsData.MoveNext
FrmFirma.TextBox100.Text = rsData("Fornavn").Value
FrmFirma.TextBox101.Text = rsData("Efternavn").Value
FrmFirma.TextBox102.Text = rsData("Postnr").Value
FrmFirma.TextBox103.Text = rsData("Mobil").Value
FrmFirma.TextBox104.Text = rsData("E-mail").Value
FrmFirma.TextBox105.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox106.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox107.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox108.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox109.Text = rsData("Bemærkninger 2").Value
rsData.MoveNext
FrmFirma.TextBox110.Text = rsData("Fornavn").Value
FrmFirma.TextBox111.Text = rsData("Efternavn").Value
FrmFirma.TextBox112.Text = rsData("Postnr").Value
FrmFirma.TextBox113.Text = rsData("Mobil").Value
FrmFirma.TextBox114.Text = rsData("E-mail").Value
FrmFirma.TextBox115.Text = rsData("Arbejdsområde 1").Value
FrmFirma.TextBox116.Text = rsData("Arbejdsområde 2").Value
FrmFirma.TextBox117.Text = rsData("Arbejdsområde 3").Value
FrmFirma.TextBox118.Text = rsData("Bemærkninger 1").Value
FrmFirma.TextBox119.Text = rsData("Bemærkninger 2").Value
End If
Set rsData = Nothing
End Sub
