Dim db As Database Dim rs As Recordset Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 With rs .AddNew .Fields(0) = Text1(0).Text .Fields(1) = Text1(1).Text .Fields(2) = Text1(2).Text X = MsgBox("Do you want to Add?", vbYesNo, "OKAY") If X = vbYes Then .Update MsgBox "Successfull Added!" Else MsgBox "Cancelled" End If End With End If Case 1 With rs .Edit .Fields(0) = Text1(0).Text .Fields(1) = Text1(1).Text .Fields(2) = Text1(2).Text .Fields(3) = Text1(3).Text .Fields(4) = Text1(4).Text .Fields(5) = Text1(5).Text .Fields(6) = Text1(6).Text If Option1 X = MsgBox("Do you want to Edit?", vbYesNo, "OKAY") If X = vbYes Then .Edit MsgBox "Updated Successfully!" Else MsgBox "Cancelled" Case 2 Case 3 Case 4 Unload Me End Select End Sub Private Sub display() With rs For i = 0 To 6 Text1(i).Text = .Fields(i) Next If .Fields(7) = "Male" Or .Fields(7) = "male" Then Option1(0).Value = True Else: Option1(1).Value = True End If End With End Sub Private Sub Form_Load() Set db = OpenDatabase("act01.mdb") Set rs = db.OpenRecordset(act01) Call display End Sub code1
Posted on: Thu, 20 Jun 2013 07:20:46 +0000
Trending Topics
Recently Viewed Topics
© 2015