“3615”是什么意思？？？

ybsnryga

roych

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

ybsnryga

是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

  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