搜查問題

jayshing

想問怎樣可以搜查到需要的資料
在(搜查) 打下 Order 的號碼, 之後可以顯示出 Mateial 和 Qty
還有出來的結果可否打印出來嗎 ?
謝謝

admin

都可以的，你可以在窗体里建立一个查询按钮，来查询相关的数据，
可参考：http://www.office-cn.net/thread-117900-1-1.html

jayshing

明白
我去看看先
我都應該多看新手交流
Thank  

1663998104

在数据库里把文本框的属性变成可用为否用代码如何实现

紫风

我没看你的库，你看下以下：
如果没有subform：
Private Sub cmdSearch_Click()
On Error Goto cmdSearch_Click Err
    Dim Stemp As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

        Me.Form.Refresh
        Stemp = "SELECT [tblMaterial].* FROM [tblMaterial] WHERE OrderNo LIKE '" & Me.OrderNo & "' "
        rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            With rs
                Me.Material = ![Material]
                Me.Qty = ![Qty]
            End With
        rs.Close
        
cmdSearch_Click Err: Exit Sub
End Sub

如果有subform，就加一句：
docmd.runsql "insert into tblTemp select [tblMaterial].[Material], [tblMaterial].[Qty] from [tblMaterial] where OrderNo LIKE '" & Me.OrderNo & "' "

这个……避免系统报警，前面加个setwarnings false，完了后面加个serwarnings true，不然蛋会疼。

紫风

1663998104 发表于 2014-3-8 13:38
在数据库里把文本框的属性变成可用为否用代码如何实现

Me.Text.Enable = False