opfangning af dobbelt poster

Du kunne jo først hente dataene fra databasen og putte dem i et array. Derefter kan du se om arrayet indeholder mere end én konto. Hvis arrayet indeholder mere end en konto kan du vise brugeren alle konti så brugeren kan vælge hvilken konto der skal indsættes i Word-dokumentet.

hvordan lægges dataene i arrayes?

Måske noget ala det her:

    If Not objRs.EOF Then
       
        Do While Not rs.EOF
            arrTelNumbers(intCounter) = "Kundenr: " & objRs("Kundenr") & vbCrLf & _
                objRs("Navn") & vbCrLf & _
                objRs("Adresse") & vbCrLf & _
                objRs("postby") & vbCrLf
           
            intCounter = intCounter + 1
        Loop
       
        objRs.Close
        objConn.Close
       
    End If

Hvad med der her:

Sub kundetlf()
    Tlf = InputBox("indtast tlfnr")

    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strConnString As String
    Dim strSQL As String
   
    Dim intCounter As Integer
    Dim arrTelNumbers() As String
    Dim strMsg As String
    Dim i As Integer
   
 
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
 
    strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\kunder.MDb"
    objConn.Open strConnString
 
    strSQL = "SELECT Kundenr,Navn, Adresse, postby FROM emner WHERE tlf = " & Tlf
    objRs.Open strSQL, objConn
 
    intCounter = 0
    If Not objRs.EOF Then
       
        Do While Not rs.EOF
            arrTelNumbers(intCounter) = "Kundenr: " & objRs("Kundenr") & vbCrLf & _
                objRs("Navn") & vbCrLf & _
                objRs("Adresse") & vbCrLf & _
                objRs("postby") & vbCrLf
           
            intCounter = intCounter + 1
        Loop
       
        objRs.Close
        objConn.Close
    End If
   
    If intCounter > 1 Then
        strMsg = "Der er i alt fundet " & intCounter & ":"
       
        For i = LBound(arrTelNumbers) To UBound(arrTelNumbers)
            strMsg = strMsg & i & " " & arrTelNumbers(i)
        Loop
       
        strMsg = strMsg & vbCrLf & "Vælg et nummer"
        out = InputBox(strMsg)
       
        Selection.TypeText Text:=arrTelNumbers(out)
    Else
        Selection.TypeText Text:=arrTelNumbers(0)
    End If
End Sub

why put the data into an array when you already have it in a recordset?

If rs.recordcount > 1 Then 'More than one with same telephone number

  'You could write the data to a listbox where it is possible to see and choose

End if

hvordan skal jeg lægge detn ind i prog...jeg mener syntaksen?

Erstat koden med ovenstående kode.

hvordan virker den listbox?

Hvilken listbox?

jeg får en fejlmeld..på loop whitout do i dit prog

Prøv at erstatte
        For i = LBound(arrTelNumbers) To UBound(arrTelNumbers)
            strMsg = strMsg & i & " " & arrTelNumbers(i)
        Loop

med

        For i = LBound(arrTelNumbers) To UBound(arrTelNumbers)
            strMsg = strMsg & i & " " & arrTelNumbers(i)
        Next

den siger det samme?

jeg tror at den rigtige måde er med recordcount,  så jeg prøver, men det kniber lidt med syntaksen.