Remove Item Den er sku lidt svær syntes jeg

Hvad får du af fejl? Prøv evt. med
SQL_query = "Delete * FROM User Where Id = " & CLng(Text17.Text)

nej nej nej jeg for ingen fejl, den fungere, men List3.RemoveItem id = Text17.Text fungere ikke,

DEn fjerner den alt andet en den ene record der bliver slettet, men når man så lukker programmet og vender tilbage så er den rigtige blevet fjernet

MC

list.text="" ?

Det er ikke min Sql der er fejl, Jeg vil bare gerne fjerne den der bliver slettet i databasen fra List3.
Min list 3 bliver indexseret med recordens Id og id er så lig med Text17.Text

MC

jrl0469
Den fattede jeg desværre ikke
MC

Øeh sludder herfra. Hvorfor ikke bare genindlæse listen når du har slettet posten?

Så vidt jeg kan se skal du nøjes med

List3.RemoveItem id

Har jeg også prøvet men sjovt nok Så viser den så igen alle poster incl. Den der er slettet men selv følgelig så fungere den ikke som klikkebar

MC - Jeg er extremt lost

c971572

Sådanne her

Private Sub Command14_Click()
If Label29.Caption = "" Then
Fejl = MsgBox("Du skal vælge en bruger at slette fra listen", vbOKOnly, "Fejl")
Else
Dim Besked As String
Besked = "Ønsker du at slette " & Text18.Text
Besked = MsgBox(Besked, vbOKCancel, "Bekræft sletning af " & Text18.Text)
If Besked = vbOK Then
List3.RemoveItem id
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "c:\Rokuda\db.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "Delete * FROM User Where Id = " & Text17.Text
Set rs = MyConn.Execute(SQL_query)
End If
Command15.Enabled = False
Command16.Enabled = False
Command12.Enabled = True
Command13.Enabled = True
Label30.Caption = 3
End If
End Sub

Så fjerner den igenalle på nær den der blev slettet

MC

Sådanne nu fik jeg det til at virker

Private Sub Command14_Click()
If Label29.Caption = "" Then
Fejl = MsgBox("Du skal vælge en bruger at slette fra listen", vbOKOnly, "Fejl")
Else
Dim Besked As String
Besked = "Ønsker du at slette " & Text18.Text
Besked = MsgBox(Besked, vbOKCancel, "Bekræft sletning af " & Text18.Text)
If Besked = vbOK Then
List3.RemoveItem id
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "c:\Rokuda\db.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "Delete * FROM User Where Id = " & Text17.Text
Set rs = MyConn.Execute(SQL_query)
List3.Clear
SQL_query = "SELECT * FROM User"
Set RSedit = MyConn.Execute(SQL_query)
While Not RSedit.EOF
Dim Varedit(2) As String
Varedit(1) = RSedit("id")
Varedit(2) = RSedit("Navn")
List3.AddItem RSedit("Navn")
List3.ItemData(List3.NewIndex) = RSedit("id").Value
RSedit.movenext
Wend
End If
Command15.Enabled = False
Command16.Enabled = False
Command12.Enabled = True
Command13.Enabled = True
Label30.Caption = 3
End If
End Sub

Jeg inlæser den bare igen, som jrl0469 sagde, dog kan jeg ikke forklare hvorfor det vikrer nu og ikke før

Jrl svare du også lige

MC

10-4

Takker for jeres hjælp og tid

MC

og go weekend

MC

I lige måde MC...

thanx