vbA 写错了?

chinryo　发表于：2010-08-22 22:38:57 　

复制

各位高手们,辛苦了.

哪们帮我看看我这个哪错了吧,怎么改呢?

标准表达式中数据类型不匹配. 是什么意思啊?

在我点 insatu 的时候出现的.

点击下载此附件

Top

wang decheng 发表于：2010-08-23 08:30:09

点击下载此附件

已修改

Top

chinryo 发表于：2010-08-23 09:19:07

大虾，我的版本打不开啊！可以告诉我哪里错了吗？多谢了！！！

Top

wang decheng 发表于：2010-08-23 12:19:20

Private Sub insatu_Click()
On Error GoTo Err_insatu_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    If IsNull(Me.tyumon_CD) Then
        MsgBox "先に発注情報を入力してください。"
    Else
        DoCmd.OpenReport "rtyumon", acPreview, , "[tyumon_CD]= '& Me.tyumon_CD & '"
    End If

Exit_insatu_Click:
Exit Sub

Err_insatu_Click:
    If Err <> 2501 Then
        MsgBox Err.Description
    End If
    Resume Exit_insatu_Click
End Sub

Top

chinryo 发表于：2010-08-23 16:18:24

wang de cheng兄

我按你的方法试了一下好像有点不对，打印出来的是空白页，什么内容都没有，是怎么回事啊？麻烦你再帮我看一下，多谢！

Top

wang decheng 发表于：2010-08-23 16:43:49

Exit_insatu_Click:
Exit Sub

Err_insatu_Click:
    If Err <> 2501 Then
        MsgBox Err.Description
    End If
    Resume Exit_insatu_Click
End Sub

Top

chinryo 发表于：2010-08-23 20:54:33

谢谢！解決了。。。

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

vbA 写错了?