急，版主解决，我都等了两天了？升迁后两张错误的图片，帮忙分析下

sbsfhgl

file:///J:/未命名  
Call insertLogo("打开窗体：" & Me.Caption)无法运行这句话！

Option Compare Database
Option Explicit
Public GuserID As Integer
Public Function insertLogo(ByVal strDescription As String)
    On Error GoTo Err
    If Forms!用户登录!用户名 = 0 Then
         MsgBox "请登陆系统!", vbQuestion
    Else
        Dim conn As ADODB.Connection
        Set conn = CurrentProject.Connection
        Dim rst As New ADODB.Recordset
        Dim strsql As String
        strsql = "SELECT 计算机名, 操作员, 操作描述 FROM 操作日记"
        rst.Open strsql, conn, adOpenKeyset, adLockOptimistic
        rst.AddNew
        rst("计算机名") = fOSMachineName()
        rst("操作员") = Forms!用户登录!用户名
        rst("操作描述") = strDescription
        rst.Update
        rst.Close
        Set rst = Nothing
        Set conn = Nothing
    End If
    Exit Function
Err:
    MsgBox Err.Number & Err.Description
End Function

[ 本帖最后由 sbsfhgl 于 2007-12-8 13:32 编辑 ]

sbsfhgl

。。。。。。。。。。。。。。。。。。。。。。。。。顶下

sbsfhgl

请各位帮帮忙，不胜感谢

sbsfhgl

有没有人能做答呀，版主在吗？

Victor_Duane

你那句是DAO的，可能要换成ADO的

sbsfhgl

可能？能明确点吗
？如何换？

sbsfhgl

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

tmtony

currentdb.excecute "....", dbSeechanges   就可以了
如果是ADO则不需要

sbsfhgl

站长，currentdb.excecute "....", dbSeechanges   非常好，我已改好了，
麻烦你帮我看下这个代码：
rivate Sub cmdrefresh_Click()
Form_frmMsglist.refreshfrm（出错地方，图片内容同上面一样）
End Sub

Public Sub refreshfrm(Optional iisel As Integer = 0)
    If Len(Parent.txtuid & "") = 0 Then Exit Sub
    'Me.Painting = False
    'txtsub.SetFocus
    Dim strmsg As String
    strmsg = showmsg(Parent.txtuid, iisel) & ""
    If Len(strmsg) = 0 Then Exit Sub
    txtsub = strmsg & txtsub.Text
    'txtsub.SelStart = Len(txtsub.Text)
    'txtcontent.SetFocus
    'Me.Painting = True
    Parent.txtcontent.SetFocus
End Sub


哪另一个问题为什么也不得行呀。我用代码CALL insertLogo升迁后不可以用了

[ 本帖最后由 sbsfhgl 于 2007-12-8 17:58 编辑 ]

zhiyan

currentdb.excecute "....", dbSeechanges   就可以了
如果是ADO则不需要