Fejl med mssql...

rs("RMAMAUNALER&DRIVERE") = text7.text

sikker på at den må indeholde tegnet "&" og at du har skrevet rigtigt med text7.text....?

Du skal ikke have [] omkring.

PS: Det er altså ikke god skik at benytte "&" i feltnavne.

det var selvfølgelig et svar jeg lavede :D

Hov... Der er flere muligheder for at dit statement går galt. Du skal ALTID vedlægge fejlbeskeden når du poster sådan et spørgsmål.

rs("RMAMAUNALER&DRIVERE") = text7.text  virker heller ikke...

hvordan ser din conn ud?

HVORDAN SER FEJLMEDDELELSEN UD?

Fejlmeddelse:
Der opstod en eller flere fejl ved en ole-db handling på flere trin. Kontroller alle ole-db-statusværdier. Handlingen blev ikke udført.

Kildekode:
Private Sub Command1_Click()
On Error GoTo SeErr
    Dim sql As String
    Dim conn As New Connection
    Dim rs As New Recordset
       
    conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RaistlinXp;Data Source=PDC"
    sql = "Select * from t_rma"
       
    rs.Open sql, conn, adOpenStatic, adLockBatchOptimistic
       
    If DataCombo1.BoundText = "" Then
    MsgBox ("Doh! - Vælg dit navn fra listen...")
    DataCombo1.SetFocus
    Exit Sub
    End If
   
    If Text1.Text = "" Then
    Text1.Text = "0000"
    End If
   
    If DataCombo3.BoundText = "" Then
    DataCombo3.BoundText = "-"
    End If
   
    If Text5.Text = "" Then
    Text5.Text = Date
    End If
   
    If Text8.Text = "" Then
    Text8.Text = "-"
    End If
   
    rs.AddNew
    rs("RMAKundeNavn") = Text2.Text
    rs("RMAKundeAdr") = Text3.Text
    rs("RMAKundePostnr") = Text1.Text
    rs("RMAKundeTelefon") = Text4.Text
    rs("RMAFakturaDato") = Text5.Text
    rs("RMAFakturaNr") = Text6.Text
    rs("RMAManualer&Drivere") = Text7.Text
    rs("RMAOriginalEmb") = Check1.Value
    rs("RMAFejlbskrInd") = Check2.Value
    If Not DataCombo2.BoundText = "" Then
    rs("RMAKonfiguration") = DataCombo2.BoundText
    Else
    rs("RMAKonfiguration") = Null
    End If
    rs("RMASerienummer") = DataCombo3.BoundText
    rs("RMAFejlbeskr") = Text8.Text
   
   
    rs("RMAStatus") = "I-rep"
    rs("RMAModtMedarb") = DataCombo1.BoundText
    rs.UpdateBatch
    rs.Requery
    rs.MoveLast
   
    f_dialog.Text2.Text = rs("RMANr")
   
    f_dialog.Show 1
   
    Clean
   
    DataCombo1.SetFocus
   
    rs.Close
    conn.Close
   
  Exit Sub
SeErr:
  MsgBox "Frow my a freaking bone here! - Need the info..: " & Err.Description
End Sub

Du kan ikke opdatere på en connection der er statisk vælg adOpenDynamic i stedet.

ocp -> hjalp ikke, kan forøvrigt godt opdatere og bruge koden, hvis jeg sætter en ' udenfor linjen - altså undgår at skrive til dette felt...

Jeg ville klart prøve at ændre feltnavnet. Alternativt er der en konflikt mellem det du prøver at lægge ind og felttypen.

Du skal også lige prøve at skrive conn.errors-collectionen ud (Start med at prøve conn.errors(0).description).

kan ikke ændre feltnavnet, så der må være end anden udvej...

lukker spm