Private Sub Command2_Click()
Data1.Recordset.Edit
Text20.Text = Combo1.Text
Text21.Text = UCase$(Text1.Text)
Text22.Text = UCase$(Text2.Text)
Text23.Text = UCase$(Text3.Text)
Text24.Text = UCase$(Text4.Text)
Text25.Text = CDate(Text5.Text)
Text26.Text = CDate(Text6.Text)
Text27.Text = UCase$(Text7.Text)
Text28.Text = UCase$(Text8.Text)
Text29.Text = UCase$(Text9.Text)
Text30.Text = UCase$(Text10.Text)
Text31.Text = UCase$(Text11.Text)
Text32.Text = UCase$(Text12.Text)
Text33.Text = UCase$(Text13.Text)
Text34.Text = UCase$(Text14.Text)
Text35.Text = UCase$(Text15.Text)
Text36.Text = UCase$(Text16.Text)
Text37.Text = UCase$(Text17.Text)
Text38.Text = UCase$(Text18.Text)
Text39.Text = UCase$(Text19.Text)
Text40.Text = Combo2.Text
Text41.Text = Combo3.Text
Text42.Text = Combo4.Text
Data1.Recordset.Update
End If
Text44 = ""
Frame2.Visible = True
Frame1.Visible = False
End Sub
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "AGENTID LIKE '" & Text44.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox "ID not found"
Else
Frame1.Visible = True
Frame2.Visible = False
Label26.Caption = Text43.Text
Combo2.Text = Text20.Text
Text1.Text = Text21.Text
Text2.Text = Text22.Text
Text3.Text = Text23.Text
Text4.Text = Text24.Text
Text5.Text = Day(Text25.Text) & "/" & Month(Text25.Text) & "/" & Year(Text25.Text)
Text6.Text = Day(Text26.Text) & "/" & Month(Text26.Text) & "/" & Year(Text26.Text)
Text7.Text = Text27.Text
Text8.Text = Text28.Text
Text9.Text = Text29.Text
Text10.Text = Text30.Text
Text11.Text = Text31.Text
Text12.Text = Text32.Text
Text13.Text = Text33.Text
Text14.Text = Text34.Text
Text15.Text = Text35.Text
Text16.Text = Text36.Text
Text17.Text = Text37.Text
Text18.Text = Text38.Text
Text19.Text = Text39.Text
Combo1.Text = Text40.Text
Combo3.Text = Text41.Text
Combo4.Text = Text42.Text
End If
End Sub
Data1.Recordset.Edit
Text20.Text = Combo1.Text
Text21.Text = UCase$(Text1.Text)
Text22.Text = UCase$(Text2.Text)
Text23.Text = UCase$(Text3.Text)
Text24.Text = UCase$(Text4.Text)
Text25.Text = CDate(Text5.Text)
Text26.Text = CDate(Text6.Text)
Text27.Text = UCase$(Text7.Text)
Text28.Text = UCase$(Text8.Text)
Text29.Text = UCase$(Text9.Text)
Text30.Text = UCase$(Text10.Text)
Text31.Text = UCase$(Text11.Text)
Text32.Text = UCase$(Text12.Text)
Text33.Text = UCase$(Text13.Text)
Text34.Text = UCase$(Text14.Text)
Text35.Text = UCase$(Text15.Text)
Text36.Text = UCase$(Text16.Text)
Text37.Text = UCase$(Text17.Text)
Text38.Text = UCase$(Text18.Text)
Text39.Text = UCase$(Text19.Text)
Text40.Text = Combo2.Text
Text41.Text = Combo3.Text
Text42.Text = Combo4.Text
Data1.Recordset.Update
End If
Text44 = ""
Frame2.Visible = True
Frame1.Visible = False
End Sub
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "AGENTID LIKE '" & Text44.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox "ID not found"
Else
Frame1.Visible = True
Frame2.Visible = False
Label26.Caption = Text43.Text
Combo2.Text = Text20.Text
Text1.Text = Text21.Text
Text2.Text = Text22.Text
Text3.Text = Text23.Text
Text4.Text = Text24.Text
Text5.Text = Day(Text25.Text) & "/" & Month(Text25.Text) & "/" & Year(Text25.Text)
Text6.Text = Day(Text26.Text) & "/" & Month(Text26.Text) & "/" & Year(Text26.Text)
Text7.Text = Text27.Text
Text8.Text = Text28.Text
Text9.Text = Text29.Text
Text10.Text = Text30.Text
Text11.Text = Text31.Text
Text12.Text = Text32.Text
Text13.Text = Text33.Text
Text14.Text = Text34.Text
Text15.Text = Text35.Text
Text16.Text = Text36.Text
Text17.Text = Text37.Text
Text18.Text = Text38.Text
Text19.Text = Text39.Text
Combo1.Text = Text40.Text
Combo3.Text = Text41.Text
Combo4.Text = Text42.Text
End If
End Sub
全站熱搜
留言列表