Jag har problem med en uppdate i VB
Databasen är Access 97
Tabellen det gäller är t_placering som har fälten:
plac_id nyckel & räknare
Datum datum/tid
omr_id främmande nyckel till tabellen t_område
placering tal
ArrNo främmande nyckel till tabellen t_songtitlar

List3 tar fram alla sångtitlar(songtitlar) och visar upp i list4 dom datum
som finns registrerade på den titlen. Genom att sedan klicka på ett datum
så får man fram dom olika placeringarna.
Text3(0) visar aktuellt datum
Text3(1) visar placering i Sverige
Text3(2) visar placering i Europa
Text3(3) visar placering i Världen
Det jag vill göra nu är att kunna uppdatera placeringarna.
Så här ser koden ut:

Dim strDatum as Date
Dim strPlacSv, strPlacEu, strPlacVrld As Long
Dim SQL, strID As String
'Dim intRecEff
strDatum = Text3(0).Text
strPlacSv = Text3(1).Text
If Len(Text3(2)) > 0 Then
strPlacEu = Text3(2).Text
End If
If Len(Text3(3)) > 0 Then
strPlacVrld = Text3(3).Text
End If
If Command6.Caption = "Uppdatera Posterna?" Then

Set mittRS1 = minDB.OpenRecordset("SELECT t_SongTitlar.Arrno,
t_SongTitlar.songtitel, t_placering.Datum FROM t_SongTitlar INNER JOIN
t_placering ON t_SongTitlar.Arrno = t_placering.ArrNo WHERE songtitel = '"
& List3.Text & "' ORDER BY songtitel", dbOpenDynaset)

strID = mittRS1.Fields!ArrNo

SQL = "Update t_placering "
SQL = SQL & " Set Datum = #" & strDatum & "#, Placering =" &
strPlacSv & " WHERE ArrNo =" & strID & " AND datum = #" & List4.Text
& "# AND omr_id = 1"

Debug.Print SQL
minDB.Execute SQL

Jag får följande fel:
Run Time Error 3464
Data Type missmatch in criterea expression

Hur fixar jag detta?

Jag skulle också vilja ha med
BeginTrans
RollbackTrans
CommitTrans
Men när jag försöker så får jag fel.
Några förslag???

Jag har hittat ett fel:

WHERE ArrNo ='" & strID & "'

Problemen lösta.
Eftersom det är en speciell post för varje( sverige,europa världen) så fick jag köra tre uppdate !!!

Hej!

Om jag minns rätt så stödjer väl inte Access (eller Jet Database Engine egentligen) transaktioner!?! Så CommitTrans etc fungerar inte...

Rätta mig gärna om jag har fel - bara en tanke som slog mig.

// Qez

Access stödjer transaktioner.