Listbox selected double click update value (1 Viewer)

[Akai90]

hai,

i got some issue with listbox double click

my code here

Private Sub listgurufilterips_DblClick(Cancel As Integer)
Dim MyDB As Database, MyTable As Recordset
Dim JWBCONFIRM As String
    Set MyDB = DBEngine.Workspaces(0).Databases(0)
    Set MyTable = MyDB.OpenRecordset("TGuruIPS", DB_OPEN_TABLE)
   MyTable.Index = "noid"
   MyTable.Seek "=", Forms![FkemaskiniPG]![listgurufilterips]
    JWBCONFIRM = MsgBox("Pasti mahu tukar?", vbYesNo, "SAHKAN TUKAR")
    If JWBCONFIRM = vbNo Then
           Forms![FkemaskiniPG]![listgurufilterips].SetFocus
           SendKeys "{DOWN}"
           Exit Sub
    Else
          With MyTable
          .Edit
          !KodInstitusi = " "
          !JenisInstitusi = " "
          !Alamat = " "
          !Institusi = " "
          !status = "BERHENTI"
          .Update
          End With
          DoCmd.OpenQuery "QListFilterGuru"
          Me![listgurufilterips].Requery
          Forms![FkemaskiniPG]![listgurufilterips].SetFocus
          SendKeys "{DOWN}"
          DoCmd.Close
    End If
End Sub

when i double click the list box seleted item value with update with data i want.

 

[Gasman]

So what is it not doing?

MSGBOX returns a number not a string?

MsgBox function (Visual Basic for Applications)

Office VBA reference topic

learn.microsoft.com

 

[Akai90]

when i double click the listbox nothing happen...

i want.. when i double click selected data in list box.. some value will change to this..

.Edit
!KodInstitusi = " "
!JenisInstitusi = " "
!Alamat = " "
!Institusi = " "
!status = "BERHENTI"
.Update

 

[Gasman]

So walk your code with F8 and breakpoints.

Debugging 101.

Why are you clearing the first record in the recordset, regardless of what entry in the listbox is selected?