数据表:stock(物料编号,品名,类别,客户,数量,单位) outstorehouse(物料编号,品名,类别,客户,数量,单位,毛坯尺寸,毛坯数量,成品尺寸,成品数量,余料,报废,出库日期,领料人编号,经手人,其它用途,说明,) 目标功能:在出库模块中输入物料编号文本框中输入物料的编号,接回车,先判断库存表是否有这个东西,如有,则出库模块中和库存表相同的字段,可以真接调用库存表的该记录的值,免得输入,还有判断该编号的物料库存表的中数量.如数量<出库表中的数量提示库存不足,应采购, 这个代码应怎么写,请各位高人赐教,不胜感激 这是我写的代码,有错误,什么类型不匹配,忙各们帮看一下,深谢 Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Dim strsql As String If KeyAscii = 13 And Text1(0).Text <> "" Then strsql = "select * from storck where 物料编号='" + Trim(Text1(0)) + "'" If strsql <> "" Then strock.RecordSource = "select * from storckwhere 物料编号='" + Trim(Text1(0)) + "'" strock.Refresh With strock.Recordset .Fields(0) = Text1(0) .Filter(1) = Text1(1) .Filter(2) = Text1(2) .Filter(3) = Text1(3) .Update End With Else MsgBox "此物没有库存,请查实", vbOKOnly, "提示" Text1(0).SetFocus End If End If

.Fields(0) = Text1(0) 'Fields(字段) .Filter(1) = Text1(1) 'Filter(过滤）？ .Filter(2) = Text1(2) .Filter(3) = Text1(3)

那是我打错了,改过来也不行,说instorehouse.品名不能是0长度字符串,????? With instorehouse.Recordset .Fields(0) = Text1(0) .Fields(1) = Text1(1) .Fields(2) = Text1(2) .Fields(3) = Text1(3) .Update End With

上面的一贴发错了,那是我打错了,改过来也不行,说strock.品名不能是0长度字符串,????? With strock.Recordset .Fields(0) = Text1(0) .Filter(1) = Text1(1) .Filter(2) = Text1(2) .Filter(3) = Text1(3) .Update End With

你设计的“品名”字段“允许空字符串”为否，而你添加记录的时候没有给“品名”字段赋值或赋空值都会报错。

嗯,有道理,
可我改过之后运行,没有错误了,窗体上出没有反应,没能达到预想目的,"出库模块中和库存表相同的字段,可以真接调用库存表的该记录的值"
还请版主多多指点,谢谢!

我也试着用这种方式，可是还有不能实现，“对象变量或with块变量未设置”
不知道这种方法可不可以，代码是这样写吗，请各位多多指教。
Public g_ws As Workspace
Public g_db As Database
Public g_rs As Recordset
Public g_strSql As String

Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = "13" And Text2(0).Text &lt;&gt; "" Then
    g_strSql = "select * from stock 物料编号='" &amp; Text2(0).Text &amp; "'"
     Set g_rs = g_db.OpenRecordset(g_strSql)      
  
    If Not g_rs.EOF Then
        Text1(1).Text = g_rs!品名
        Text1(2).Text = g_rs!客户 / 供应商
        Text1(3).Text = g_rs!类别
   Else
        MsgBox "此物没有库存，请采购！", vbOKOnly, "提示"
   End If
   End If
   End Sub