disable mo properties nung textbox.. then pag click ng add command button... ienable sya....
or ganito lagay mo sa onload
textbox1.text = ""
Thanks po master
ang problema ko naman po pag finaflood ko po yung listview nag e-error po sya "E FAIL STATUS" po yung error pero pag mga 2 lines na paragraph lang po ang nilagay ko sa listview ok naman po sya paano po kaya e2 mga master
salamat po sa sasagot eto po yung code ko:
Private Sub Command1_Click()
With Adodc1.Recordset
.AddNew
!Name = Text1.Text
.Update
End With
DataReport1.Show
End Sub
Private Sub Command2_Click()
Me.Text19 = Me.Combo1
Adodc1.Recordset.Save
Adodc1.Recordset.Requery
MsgBox "Saved! Click OK to Print"
Set DataReport1.DataSource = Adodc1
DataReport1.Show
End Sub
Private Sub Command3_Click()
Form1.Show
Me.Hide
End Sub
Private Sub Form_Load()
Text15.Text = Date
Combo1.AddItem "ANGELITA REYES TEOTICO, MD, FPOGS FPSUOG"
Combo1.AddItem "ALEXANDRA CRUZ MALLARI, MD, FPOGS FPSUOG"
Combo1.AddItem "AILEEN A. LOPEZ, MD, FPOGS FPSUOG"
Combo1.AddItem "MARJORIE I. SANTOS, MD"
Combo1.AddItem "GLENDELL A. BAUTISTA, MD"
Combo1.AddItem "MARIA LOURDES T. SOLIDUM, MD"
Combo1.AddItem "ZARINA R. BALAGTAS, MD"
Text1.Text = vbNullString
Text2.Text = vbNullString
Text3.Text = vbNullString
Text4.Text = vbNullString
Text5.Text = vbNullString
Text6.Text = vbNullString
Text7.Text = vbNullString
Text8.Text = vbNullString
Text9.Text = vbNullString
Text10.Text = vbNullString
Text11.Text = vbNullString
Text12.Text = vbNullString
Text13.Text = vbNullString
Text14.Text = vbNullString
Text16.Text = vbNullString
Text17.Text = vbNullString
Text18.Text = vbNullString
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub Text19_Change()
Me.Text19 = Me.Combo1
End Sub
View attachment 233295 View attachment 233296 View attachment 233297