Hello Folks
Ett litet problem som jag hoppas få hjälp med

Så här gör jag och det funkar Ua
dtaSQL är en DataControll och DAO 3.51

Private Sub DBGrid_AfterDelete()
Dim DbPlott As Database
Dim SQLstr As String
On Error GoTo DeleteErr
SQLstr = "SELECT * FROM PLOTTDATA " & _
"WHERE KontoId = " & CLng(DBGrid.Tag)
Set DbPlott = OpenDatabase(PathFondData)
Set dtaSQL.Recordset = DbPlott.OpenRecordset(SQLstr)
If dtaSQL.Recordset.EOF Then Exit Sub

dtaSQL.Recordset.MoveFirst
Do Until dtaSQL.Recordset.EOF
dtaSQL.Recordset.Delete
dtaSQL.Recordset.MoveNext
Loop
*****************************
Jag skulle vilja gör så här med SQLstr
men får det inte att funka.
SQLstr = "DELETE * FROM PLOTTDATA " & _
"WHERE KontoId = " & CLng(DBGrid.Tag)
Set DbPlott = OpenDatabase(PathFondData)
Set dtaSQL.Recordset = DbPlott.OpenRecordset(SQLstr)
*****************************
Vad blir fel
med raden här under,som ger SQLfel meddelande ??

Set dtaSQL.Recordset = DbPlott.OpenRecordset(SQLstr)

funderande SQL Sven

Troligaste anledningen till felet är väl att en DELETE inte returnerar några records. Testa att använda databasens Execute metod direkt istället:

Set DbPlott = OpenDatabase(PathFondData)
DbPlott.Execute SQLstr


MS

Så var det med det
En tackar så hemskt mycket

Må ökensanden icke tränga in under din förhud

mvh
Sven