时间戳

首页 > 解决方案 > Access 2016 运行时错误无效使用 null

vba - Access 2016 运行时错误无效使用 null

问题描述

我正在检查 Access 2016 表单中是否存在记录，如果存在则显示一条消息，如果不将其添加到数据库。但是当 txtRepGrpNumber 为空时，我对 null 的使用无效，如果不为空，即使它已经存在于数据库中，它也会添加它。RepGrpNumber 是数据库中的数字字段。我的 if 语句出错了。

 Private Sub btnSave_Click()
Dim db As DAO.Database
Dim strSql As String
Dim message As String
Set db = CurrentDb
If Nz(CStr(Me.txtRepGrpNumber)) >= "" Then
strSql = "INSERT INTO dbo_TblSwShowRoom(RepGrpNumber, ViewOrder, RepCompany, AddressFull, Contact, Phone, Hours, ViewPhotos, ViewTour, ImageShow, Image, AddBy, DateAdded, DateChanged, ChangedBy, Enabled) " & _
         "VALUES('" & Me.txtRepGrpNumber & "','" & Me.txtViewOrder & "', '" & Me.txtRepCompany & "', '" & Me.txtAddressFull & "', '" & Me.txtContact & "', '" & Me.txtPhone & "', '" & Me.txtHours & "', '" & Me.txtViewPhotos & "', '" & Me.txtViewTour & "', '" & Me.txtImageShow & "', '" & Me.txtImage & "', '" & Me.txtAddBy & "', '" & Me.txtDateAdded & "', '" & Me.txtDateChanged & "', '" & txtChangedBy & "', '" & txtEnabled & "')"
    db.Execute strSql
    Me.SubFrmSwShowRoom.Requery
Else
    message = MsgBox("Cannot save because Group Number is Blank", vbCritical)
End If
'End If
Me.Requery
End Sub

标签： vbams-access

解决方案

If CStr(Nz(Me.txtRepGrpNumber,"")) <> "" Then

推荐阅读