Hi I'm using Userform, but unable to change the image to show Dates, dollars figures and decimal points.
How do I fix this on VBA?
How do I fix this on VBA?
VBA Code:
Private Sub cmdEdit_Click()
If Selected_List = 0 Then
MsgBox "No row is selected.", vbOKOnly + vbInformation, "Edit"
Exit Sub
End If
'Code to update the value to respective controls
Me.TxtRowNumber.Value = Selected_List - 1
Me.TxtDate.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 0)
Me.TxtNo.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 1)
Me.CmbConVar.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 2)
Me.TxtQuoteNo.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 3)
Me.TxtItemNo.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 4)
Me.TxtArea.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 5)
Me.TxtDes1.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 6)
Me.TxtDes2.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 7)
Me.TxtHeight.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 8)
Me.TxtLength.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 9)
Me.TxtLevels.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 10)
Me.TxtErect.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 11)
Me.TxtHUI1.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 12)
Me.TxtHUI2.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 13)
Me.TxtHUI3.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 14)
Me.TxtSTD.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 15)
Me.TxtLCS.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 16)
Me.TxtIB.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 17)
Me.txtTMNo.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 18)
Me.TxtTM.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 19)
Me.TxtHUMNo.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 20)
Me.TxtHUM.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 21)
Me.TxtDismantle.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 22)
Me.TxtTransport.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 23)
Me.TxtSCS.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 24)
Me.TxtSundry.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 25)
Me.TxtSupplyBeams.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 26)
Me.TxtOthers.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 27)
Me.TxtENG.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 28)
Me.TxtHire.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 29)
Me.TxtHireWeeks.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 30)
Me.TxtOH.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 31)
Me.TxtWklyHire.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 32)
Me.TxtTotal.Value = Me.lstdatabase.List(Me.lstdatabase.ListIndex, 33)
MsgBox "Please make the required changes and click on 'Save' button to update.", vbOKOnly + vbInformation, "Edit"
End Sub