Private Sub BtnEdit1_Click() SQL = "SELECT * FROM ASSET_OPTION" RS.Open SQL, CON, 1, 2 RS.AddNew Else RS.Open "SELECT A.*,B.* FROM ASSET_OPTION A,ASSET B WHERE B.AID=A.AID AND ASSET_NAME= '" & Combo4.Text & "'", CON, 1, 2 End If RS!AO_ID = Text1.Text RS!AID = Combo4.ItemData(Combo4.ListIndex) RS!LOC_ID = Combo1.ItemData(Combo1.ListIndex) RS!IDLE_SINCE_DATE = DTPicker2.Value RS!REASON_IDLE = Text8.Text RS!UTILIZED_PERIOD = DTPicker3.Value RS!FREE_ON_DATE = DTPicker4.Value RS!P_COST = Text3.Text RS!P_DATE = DTPicker1.Value RS!CURRENT_STATUS = Combo2.Text RS!SALE_STRATEGY = Text7.Text RS!OFFER_RECEIVED = Text5.Text RS!EXPECTED_VAL = Text6.Text RS.Update RS.Close End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)