อยากเรียกอีก form "expense_tran2" บน listbox  โดยใช้ codeนี้ แต่ขึ้นมาเฉพาะ form เปล่า 
Private Sub expenselist_DblClick(Cancel As Integer) 
 Dim strWhere As String, varItem As Variant, gstrWhere As String 
    If Me!expenselist.ItemsSelected.Count = 0 Then Exit Sub 
      For Each varItem In Me!expenselist.ItemsSelected 
             strWhere = Me!expenselist.Column(0, varItem) 
    Next varItem 
strWhere = Left$(strWhere, Len(strWhere) - 1) 
    gstrWhere = "no = '&strWhere&'" 
DoCmd.OpenForm FormName:="expense_tran2", wherecondition:=gstrWhere 
     
   End Sub 
 code นี้ สามารถเปิด form"expense_tran2" แต่ไม่สามารถเรียก record บน listbox  
ไม่ทราบว่า code ผิดหรือเปล่า แล้ว  form"expense_tran2"  ที่เราจะเรียกต้องใส่ code ด้วยหรือเปล่าครับ......