强分题目！！很急！！有了答案立刻结帖

Question

按下一个窗体中的“查询按钮”打开“查询”窗体的代码如何编写
按下查讯窗体中的返回按钮，返回原来的窗体的代码如和编写

Answer 1

Dim str As Stringstr = InputBox("请输入条件!格式<字段=条件>", "查询什么")
If Not str = "" ThendjkData.Recordset.FindFirst str '查找序号的记录进行修改Else
MsgBox "请保证输入正确!", 48, "出错啦!"
End If
'************
If djkData.Recordset.NoMatch Then
   MsgBox "暂时不能找到记录的原始材料,请保证输入正确!", 48, "出错啦!"
   djkData.Recordset.MoveLast
   Else
'找不到记录的提示

Answer 2

没怎么懂你的意思，看看是不是这样的'打开查询窗体
Private Sub CmdChaXun_Click()
Frm_ChaXun.Show
End Sub
'查询窗体里有个返回按钮
Private Sub CmdBack_Click()
Frm_Main.Show
End Sub

Answer 3

'查询按钮
Private Sub Command1_Click()
Form2.Show 'Form2是查询窗体End Sub'“查询”窗体的返回按钮
Private Sub Command1_Click()
Form1.Show      'Form1是返回原来的窗体
Form1.SetFocus
Unload Me
End Sub'***************************************
^_^ 看完帖子请结帐哦.

Answer 4

在调用查询窗体的代码中：
Private Sub Command1_Click()'查询按钮
    Dim frmQuarry As New Form2
    
    frmQuarry.Show vbModal, Me
End Sub在查询窗体中：
Private Sub Command1_Click()'返回按钮
    Unload Me
End Sub

Answer 5

在第一个窗体的查询按钮写
private sub cmdchaxue_click()
   查询.show
   unload 查询窗体
end sub
在第二个窗体及查询窗体的返回写入
private sub cmdfanghui_click()
   查询窗体.show
   unload 查询
end sub

Answer 6

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Dim str As Stringstr = InputBox("请输入条件!格式<字段=条件>", "查询什么")
If Not str = "" ThendjkData.Recordset.FindFirst str '查找序号的记录进行修改Else
MsgBox "请保证输入正确!", 48, "出错啦!"
End If
'************
If djkData.Recordset.NoMatch Then
   MsgBox "暂时不能找到记录的原始材料,请保证输入正确!", 48, "出错啦!"
   djkData.Recordset.MoveLast
   Else
'找不到记录的提示
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
在第一个窗体的查询按钮写
private sub cmdchaxue_click()
   查询.show
   unload 查询窗体
end sub
在第二个窗体及查询窗体的返回写入
private sub cmdfanghui_click()
   查询窗体.show
   unload 查询
end sub
  
""""""""""""""""""""""""""""""""""""""""""""""""""""""
在调用查询窗体的代码中：
Private Sub Command1_Click()'查询按钮
    Dim frmQuarry As New Form2
    
    frmQuarry.Show vbModal, Me
End Sub在查询窗体中：
Private Sub Command1_Click()'返回按钮
    Unload Me
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'查询按钮
Private Sub Command1_Click()
Form2.Show 'Form2是查询窗体End Sub'“查询”窗体的返回按钮
Private Sub Command1_Click()
Form1.Show      'Form1是返回原来的窗体
Form1.SetFocus
Unload Me
End Sub'***************************************
^_^ 看完帖子请结帐哦.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
没怎么懂你的意思，看看是不是这样的'打开查询窗体
Private Sub CmdChaXun_Click()
Frm_ChaXun.Show
End Sub
'查询窗体里有个返回按钮
Private Sub CmdBack_Click()
Frm_Main.Show
End Sub
"""""""""""""""""""""""""""""""""""""""""""""""""""""""
我觉得都行！

Answer 7

窗体.show 1返回的时候
   unload me

Answer 8

Private Sub Command1_Click()
查询窗体.Show 1
End Sub
Private Sub FanHui_Click()
    查询窗体.Hide
End Sub

Answer 9

类似Dim str As Stringstr = InputBox("请输入条件!格式<字段=条件>", "查询什么")
If Not str = "" ThendjkData.Recordset.FindFirst str '查找序号的记录进行修改Else
MsgBox "请保证输入正确!", 48, "出错啦!"
End If
'************
If djkData.Recordset.NoMatch Then
   MsgBox "暂时不能找到记录的原始材料,请保证输入正确!", 48, "出错啦!"
   djkData.Recordset.MoveLast
   Else
'找不到记录的提示

Answer 10

frmQuery.show
...
unload me

Answer 11

不懂。。
.show
还是msgbox啊？
估计是.show

Answer 12

在第一个窗体的查询按钮写
private sub cmdchaxue_click()
   查询.show
   unload 查询窗体
end sub
在第二个窗体及查询窗体的返回写入
private sub cmdfanghui_click()
   查询窗体.show
   unload 查询
end sub

Answer 13

  在查询窗体中可以定义公有变量,用于返回用户在窗体中的操作情况
  比如定义的变量是 public m_value as boolean
           主窗体  ---  打开查询窗体的代码
____________________________________________________________
___  frmSearch.show 1     '有模式打开 :p
___  if frmSearch.m_value then 'Do something 查看返回值
___  unload frmSearch     '关查询窗体  :)
____________________________________________________________         查询窗体 ---  用于返回的代码
____________________________________________________________
___  me.m_value = true     '设置返回值
___  me.hide               '返回主窗体 :o
____________________________________________________________