ASP-VBCode.Com - ASP.Net, VB.Net, PayPal IPN Solution, Web Design

Visual Basic 6 Code Functions/Procedures

InQuotes Function

PauseTime Proc.

Remove Invld Chr Function

Database Insert Proc.

Database Select Function

Database Delete Proc.

Database Update Function

Make Enter key to act as TAB

Time calculation

Change 1st char to Ucase

Populate MSFlxGrid with db data

How to use CASE

Save file

Open file

Populate TreeView w/database

Catch RDO Error

Catch RDO error

Public Sub cmdOK_Click()
'*************************************************************
'Procedure:    Public Method cmdOK_Click
'Author:       Ahmad E. Ashparie
'Module:       Form1
'Project:      Project1
'Parameters:
'
'*************************************************************

On Error GoTo CnEh
.
.
.
CnEh:
    Dim er As rdoError

    For Each er In rdoErrors
        If er.Number < 0 Then
            Screen.MousePointer = vbDefault
            MsgBox "Errors: " + er.Description & ":" & er.Number & vbCr
            Err.Clear
            Set rdoRs = Nothing
            
            Exit Sub
        End If
    Next
Screen.MousePointer = vbDefault
End Sub