SubまたはFunctionがVB6

Question

なぜ私はエラー "SubまたはFunctionが定義されていない" 取得していますが定義されていません...ここに私のコードがある

FORM2

Option Explicit 
Public Report As New CrystalReport1 
Public mvCn As New ADODB.Connection 

Public Function printReport() 

Dim strConnectionString As String 
Dim rs As ADODB.Recordset 
Dim strScript As String 

strConnectionString = "Provider=SQLOLEDB............" 

mvCn.ConnectionString = strConnectionString 
mvCn.CommandTimeout = 0 
mvCn.CursorLocation = adUseClient 
mvCn.Open 

strScript = strScript & "SELECT * FROM employee" & vbCrLf 

Set rs = mvCn.Execute(strScript) 

Report.Database.SetDataSource rs 
Report.AutoSetUnboundFieldSource crBMTNameAndValue 

CRViewer1.ReportSource = Report 
CRViewer1.ViewReport 

Set Report = Nothing 

End Function 

フォーム1 .....

Answer 1

ここで、printReport関数は定義されていますか？クラスモジュール内にある場合は、クラスのインスタンスをインスタンス化し、そのクラスのメソッドとしてprintReportを呼び出す必要があります。例えば：

Private Sub Command1_Click() 
    Dim oClass As New Class1 

    oClass.printReport 

End Sub 

それとも、あなたはそれをインスタンス化したりする方法としてそれを呼び出すことはありません、モジュールであなたのprintReport機能を配置することができます - あなたはあなたのクリックイベントに持っているとして、あなたが代わりにそれを呼び出します。

Answer 2

手順はCAことができる "）プライベートサブのCommand1_Click（" エラーメッセージがここに

Option Explicit 

Private Sub Command1_Click() 

printReport 

End Sub 

ここで私の機能 "printReport" と呼んでそんなに単純な方法で縛られた。[あなたが電話した通り]

例：

Private Sub Form_Load() 
    Test1 
End Sub 

Sub Test1() 
    MsgBox "Test1" 
End Sub