Jag vill uppdatera en post i en databas med data från olika textfält.
Såhär har jag skrivigt men jag får ett felmeddelande:
"Run-time error "3061": To few parameters, expected 1."

Private DB As Database
Private RS As Recordset
Set DB = OpenDatabase(vilkenFil)
Set RS = DB.OpenRecordset("SELECT * FROM kunder WHERE case = " & etikCaseNr & "", dbOpenDynaset)

With RS
.Edit

.Fields("företag").Value = textrFöretag.Text
.Fields("förNamn").Value = textrFörNamn.Text
.Fields("efterNamn").Value = textrEfterNamn.Text
.Fields("adress").Value = textrAdress1.Text
.Fields("adress2").Value = textrAdress2.Text
.Fields("postNr").Value = textrPostNr.Text
.Fields("ort").Value = textrOrt.Text
.Fields("teleNr").Value = textrTeleNr.Text
.Fields("faxNr").Value = textrFaxNr.Text
.Fields("epost").Value = textrEpost.Text
.Update
.Close
End With

Vilken rad inträffar det på?

/Johan

" & etikCaseNr & "", dbOpenDynaset

Är detta kopierat ??
Då är där ju en " för mycket..
Annars... är etikCaseNr deklarerat som en STR ??

Då ska den vara "'" & etikCaseNr & "'"

/Martin

Fältet case finns inte i tabellen kunder. Eller så är den felstavat.

Tack, klantiga jag hade ju skrivigt case istället för caseNr ... hmmm klantigt av mig, med det e ju tur att det finns vakna och smarta killar som ni! =)

Tack.

/Chrille

Själv råkat ut för det några gånger. Så man känner igen det. I stora, mer avancerade fråger kan det vara svårt att lista ut vart felet ligger. KAn en Querydef hjälpa till.
<code>
Dim db as database
Dim QDef as QueryDef
Dim P as PArameter
Dim strSQL as String
strSQL = "SELECT * from... osv"

Set db = OpenDatabase(App.Path & "\Data.mdb")
Set QDef = db.CreateQueryDef("", strSQL)
For each P In QDef.Parameters
Debug.Print P.Name
Next
</code>