Fejlmeddelse

Overflow kan ske af mange årsager - typisk for lille variabel. Hvor går det galt?

Efter at jeg har indtastet kundenr...hvor jeg så skal have ovf pågældende data på pågældende kundenr

Prøv at vise en lille kodestump der gør det du beskriver

Sub IndsaetKundeInfo()
    Dim objConn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strConnString As String
    Dim strSQL As String
    Dim Kundenr As Integer
Kundenr = InputBox("indtast kundenr")

    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 Navn, Adresse FROM emner WHERE Kundenr = " & Kundenr
    objRs.Open strSQL, objConn
   
    If Not objRs.EOF Then
        Selection.TypeText Text:="Kundenavn: " & objRs("Navn") & vbCrLf
        Selection.TypeText Text:="Adresse: " & objRs("Adresse") & vbCrLf
    End If
   
    objRs.Close
    objConn.Close
End Sub

Lige ved første øjekast. Er du sikker på at Integer er ok til Kundenr? Hvad sker der hvis der indtastes noget forkert i din InputBox?

Det er nok en go' ide at bruge IsNumeric til kundenr

try

Dim Kundenr As Long
Kundenr = InputBox("indtast kundenr")

If Not isnumeric(Kundernr) Then
msgbox" Fejl "
exit sub

end if

If your kundernr is text then

Dim Kundenr As string

Kundenr = InputBox("indtast kundenr")

Then you need to alter your SQL

strSQL = "SELECT Navn, Adresse FROM emner WHERE Kundenr = '" & Kundenr & "'"
    objRs.Open strSQL, objConn