Office中国论坛/Access中国论坛

标题: “3615”是什么意思？？？ [打印本页]

作者: ybsnryga 时间: 2011-4-5 00:33
标题: “3615”是什么意思？？？
[attach]45270[/attach]

作者: roych 时间: 2011-4-5 01:19
hoho，只有一个图片不好说什么。如果是代码的话，请检查定义的变量类型或者记录集的字段类型是否有误；如果是查询的话，请检查关系联接是否有问题。——我初学时常常会把自动编号和长整型之类的做联接，甚至还试过文本型和数值型做联接……O(∩_∩)O~，最好传上附件再说吧。

作者: ybsnryga 时间: 2011-4-5 20:46
是VBA代码，请帮我看看错在哪里
Private Sub cmdQuery_Click()
On Error GoTo Err

Dim strsql As String

strsql = "SELECT 操作日记.操作时间, 操作日记.计算机名, UserList.UserName,"
strsql = strsql & " 操作日记.操作描述"
strsql = strsql & " FROM 操作日记 INNER JOIN"
strsql = strsql & " UserList ON 操作日记.操作员 = UserList.UserName"
strsql = strsql & " WHERE 操作日记.操作日记ID > 0"

If (Not IsNull(Me.txtStartDate)) And (Not IsNull(Me.txtEndDate)) Then
      strsql = strsql & " AND 操作日记.操作时间 BETWEEN #" & Format(Me.txtStartDate, "yyyy-m-d  00:00:00") & "#"
      strsql = strsql & " AND #" & Format(Me.txtEndDate, "yyyy-m-d  23:59:59") & "#"
End If

If Me.cboName <> 0 Then
      strsql = strsql & " AND 操作日记.操作员 = " & Me.cboName
End If

strsql = strsql & " ORDER BY 操作日记.操作时间"

Debug.Print strsql

Me.操作日记窗体子窗体.Form.RecordSource = strsql
Exit Sub

Err:
MsgBox Err.Number & Err.Description

End Sub

作者: roych 时间: 2011-4-5 23:01
  If Me.cboName <> 0 Then
      strsql = strsql & " AND 操作日记.操作员 = " & Me.cboName
End If
可能需要加上引号（如果操作员字段是文本的话）：
  If Me.cboName <> 0 Then
      strsql = strsql & " AND 操作日记.操作员 = ’" & Me.cboName&“‘”
End If
没看到附件暂时只发现这一点，你不妨把这一句改成注释（即在前面加英文输入法的单引号），执行后按下Ctrl+G，把立即窗口的文本贴上来看看？
Me.操作日记窗体子窗体.Form.RecordSource = strsql

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)