how do I "FORMS"

[Dib]

Hi,

how do I call a form to open from another form.

example

I have a frmLogIn and an frmError

The frmError have a ListBox. If the frmLogin generated an error I want the
error to show in the ListBox on frmError.

Here is the code I have

Private Sub ErrorLog()

Dim errLoop As ADODB.Error

' Change mousepointer to normal.

System.Windows. Forms.Cursor.Cu rrent =
System.Windows. Forms.Cursors.W aitCursor

Select Case errcase

Case 1, 2, 3

If errcase = 1 Then

If Cn.Errors.Count = 0 Then

Exit Sub

End If

End If

If errcase = 2 Then

Response = MsgBox(MsgConnU n, vbOKOnly, Title)

End If

If errcase = 3 Then

If Cn.Errors.Count = 0 Then

Exit Sub

End If

End If

For Each errLoop In Cn.Errors

Dim strError(5)

Dim i As Integer

strError(0) = "Error Number: " & errLoop.Number

strError(1) = " Description: " & errLoop.Descrip tion

strError(2) = " Source: " & errLoop.Source

strError(3) = " SQL State: " & errLoop.SQLStat e

strError(4) = " Native Error: " & errLoop.NativeE rror

i = 0

Do While i < 5

frmError.lstErr ors.Items.add(s trError(i)) 'Error is here lstErrors is the
ListBox

i = i + 1

Loop

frmError.lstErr ors.Items.add(" ") 'Error is here lstErrors is the ListBox

Next ' Continue looping through ADO Errors collection.

' Create string for summary count of errors.

c = Cn.Errors.Count & " provider error(s) occurred."

' Display a count of the provider errors.

frmError.lstErr ors.Items.add(c ) 'Error is here lstErrors is the ListBox

'frmError.lstEr rors.Items.add( "") 'Error is here lstErrors is the ListBox

frmError.Show() 'Error is here

' Clear the ADO errors collection.

Cn.Errors.Clear ()

Case Else ' Fall-through case statement.

Exit Sub

End Select

End Sub

Thanks

Dib

[Larry Serflaten]

"Dib" <dN************ @conNOSPAMsoftw are.com> wrote

how do I call a form to open from another form.
Declare the form variable name before you use it, like you would
any other variable name....

Private Sub ErrorLog()

Dim errLoop As ADODB.Error

Dim frmError As New frmError
See if that helps....
LFS