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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()