Private Sub mj_Click()
Dim filename As String
Dim aa, bb, cc As Integer
aa = MsgBox("是否为外购件", vbYesNo, "请选择")
If aa = 1 Then
bb = MsgBox("进入成本计算系统", vbYesNo, "请选择")
If bb = 2 Then
Form2.Show
Else
Form5.Show
End If
Else
cc = MsgBox("请直接输入成本", vbYes, "请选择")
If cc = 1 Then
Form2.Show
End If
End If
End Sub

怎么让form2和form5能调用？

问题解决了,跟大家分享一下!
将aa=1改为aa=7, 同样让bb=7.现在就没什么问题了.

关键问题是vbYesNo这个按钮有特定的参数值!

将代码改为：

if MsgBox("是否为外购件", vbYesNo, "请选择")=vbYes Then
If MsgBox("进入成本计算系统", vbYesNo, "请选择")=vbYes Then
Form2.Show

Else
Form5.Show

End If

End if

Else
If MsgBox("请直接输入成本", vbYes, "请选择")=vbYes Then
Form2.Show

End If

Endif
实际上MsgBox返回的是一个枚举。

[此贴子已经被作者于2006-5-18 21:23:36编辑过]

这样的比我的要简单的多了，谢谢了!!!

三楼的中间多写了一个:End If

恩，看出来了，可能是笔下误