Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.40K
|
Private Sub btn_addc_Click() On Error Resume Next If Me.txtAddc.Text = "" Then MsgBox "Please fill up", vbInformation, "ADD CATEGORY" Exit Sub End If If Me.btn_addc.Caption = "ADD" Then If rs.State = adStateOpen Then rs.Close rs.Open " Select * From tbl_category WHERE CategoryList ", db, adOpenStatic, adLockOptimistic If rs.RecordCount > 0 … 
|