VB窗口的问题，，高分回报在线等。。 。

Question

弹出一个窗口后，要使必须输入数据或按取消后才可以显示别的窗口，
同时给出提示，‘
能否给出代码。
谢谢。。 。

Answer 1

If MsgBox("你是确定吗？", vbYesNo, "请回答？") = vbYes Then
......
 
Else
form2.show
  
End If

Answer 2

If MsgBox("你是确定吗？", vbYesNo, "请回答？") = vbYes Then
......
 
Else
form2.show
  
End If

Answer 3

Private Sub Command1_Click()
If Combo1.Text = "Admin" And Text1.Text = "123" Then
SMIS_mdi.Show
Unload Me
ElseIf Combo1.Text = "User" And Text1.Text = "321" Then
SMIS_mdi.Show
Unload Me
Else
MsgBox "用户名或密码错误"
Text1.Text = ""
Text1.SetFocus
End If
End SubPrivate Sub Command2_Click()
Unload Me
End Sub

Answer 4

Private Sub Command1_Click()
    Dim strMessage As String
    strMessage = InputBox("请输入数据", "提示")
    MsgBox strMessage
End Sub

Answer 5

form1（主窗体）中
设一public类型变量 strTemp
Private Sub Command1_Click()
     Form2.Show vbModal
     if strTemp="" then
         msgbox "按下取消按钮"
     else
         msgbox "输入数据为：" & strTemp 
     end if
End Subform2(弹出窗口)中
Private Sub Command1_Click()'按下确认按钮
    Form1.strTemp = text1.Text
End SubPrivate Sub Command2_Click()'按下取消按钮
Form1.strTemp = ""
End Sub

Answer 6

Private Sub Command10_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
' 引用 ODBC driver 建立连接.
cnn.ConnectionString = "driver={SQL Server};" & _
"server=dcser;uid=sa;pwd=;database=stxt"
cnn.OpenadoConnection.Execute "Update Rs Set QQTS = 0"   请问这句要怎么改呢？

Answer 7

Private Sub Command10_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
' 引用 ODBC driver 建立连接.
cnn.ConnectionString = "driver={SQL Server};" & _
"server=dcser;uid=sa;pwd=;database=stxt"
cnn.OpenadoConnection.Execute "Update Rs Set QQTS = 0"   请问这句要怎么改呢？错误信息424  要求对象

Answer 8

俺滴Msn：Rick110AHotmail.com
如果你想要例子程序，Call 俺

Answer 9

cnn.Execute "Update Rs Set QQTS = 0"  搞定

Answer 10

from.show 1
show后加参数 1使之打开变为模式窗口