在access中用VBA代码插入数据后，如后知道是否插入成功？

InsertSql = "insert into 客户 (客户编号,公司名称,所属业务员ID) values('" & CustomerNo & "','" & CustomerCompany & "'," & SalesmanId & ")"

CurrentDb.Execute (InsertSql)

如果我用如上代码将这一条数据插入到数据库表中，如何知道是否插入成功了呢？
CurrentDb.Execute插入成功或者失败的话，是否返回不同的值？

举报该问题

第1个回答 2017-11-28

逻辑如下:
1、SQL操作成功会有返回值
2、根据返回值在程序中加msgbox作为操作成功的提示。本回答被网友采纳

第2个回答 2017-10-20

使用 dcount 判断

相似回答

Access数据库怎么用VBA答：Access数据库使用VBA的操作方法1、打开Access数据库，如图所示。2、点击“数据库工具”选项卡中“VisualBasic”，如图所示。3、在弹出的VBA界面，先选择数据库，然后点击右键，选择“插入”，“模块”，不同于excel中的VBA，Access中的VBA代码需要放置于模块中，如图所示。4、在模块中输入VBA代码，并点击...

请教怎么在access中用VBA导入excel数据到access库答：1、首先为导入文件设置一个按钮：（更新数据）2、为“更新数据”按钮添加执行代码：Private Sub Command87_Click()If MsgBox("请准备好导入的文件！", vbOKCancel, "打印确认") = 1 ThenDim xdlj As String 'xdlj:相对路径Dim dklj As String 'dklj:打开路径dklj = od()If Not (dklj = "...

access 2010 用vba向表中添加记录?答：按Alt+F11进入VBA，插入一个模块，粘贴以下代码：Sub 在条码表中插入150条记录()For i = 1 To 150 'insert into 条码表(条码,批次) values('A000001','JJJ1-1')CurrentDb.Execute ("insert into 条码表(条码,批次) values('A" & Right(CStr(1000000 + i), 6) & "','JJJ1-1')")N...

向access数据库插入一条新记录有几种方法答：向access数据库插入一条新记录有三类方法：1. 直接在表中的末行输入数据这种方法适合于单用户操作数据库，直观，方便，快捷。2. 在窗体中插入新记录当数据库有多位用户时，由于可以设计布局以适应用户的需求和技能，使用窗体可以更加方便、快捷和准确地输入数据。窗体的设计决定了输入或编辑数据的方式...

access 如何用VBA增加记录?答：按Alt+F11进入VBA，插入一个模块，粘贴以下代码：Sub 在条码表中插入150条记录()For i = 1 To 150 'insert into 条码表(条码,批次) values('A000001','JJJ1-1')CurrentDb.Execute ("insert into 条码表(条码,批次) values('A" & Right(CStr(1000000 + i), 6) & "','JJJ1-1')")N...

如何利用VBA代码插入数据答：1、点击鼠标右键，选择“新建”选项，然后点击“mircosoftofficeExcel2007”选项新建一个Excel文件。2、录入数据、制作表格。3、选择界面上方的“开发工具”选项，然后点击“宏”选项。4、写明VBA代码名称，然后点击“创建”按钮。5、写入指定的VBA代码。6、点击插入一个按钮控件，并命名为“插入数据”。7...

在access中用VBA实现被选定的表记录插入到另一个表答：FieldsT.Fields.AppendT.CreateField(F.Name,F.Type,F.Size)NextT.Name=TabelNameTS.AppendTSetTS=NothingSetT=NothingSetF=NothingEndSub具体的调用方式就是CreateTabel　recorset对象,表名就可以在当前数据库中生成一个新表了结构和recorset相同但没有数据，如果你要复制数据，一行SQL就搞定了 ...

这位仁兄我看见你使用vba将EXCEL导入ACCESS,现在问题是access存在...答：sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ActiveSheet.Name & "$]"改为：sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ...

用VBA将Excel数据插入Access及查询更新答：何必做得这么复杂呢？ACCESS直接把EXCEL表作为连接表就好了，然后根据向导建立一个更新查询，什么都清净了，如果要验证更新，那你就用一个宏表对表插入就好了。搞这么多把自己都搞糊涂了

大家正在搜

excel调用access数据库 access修改表选中数据VBA vba access 数据录入 accessVBA代码 access常用代码 access数据库vba accessvba代码 access代码 access代码大全

access 如何用VBA增加记录？

access 2010 用vba向表中添加记录？

在access中用vba如何运行一个已经存在的动作查询?

access如何在窗体文本框中输入数据后按确定按钮把记录添加...

如何在access中插入一条新记录

【ACCESS】VBA代码判断表的记录为最后一个记录

请教怎么在access中用VBA导入excel数据到acce...

EXCEL vba操作access数据库，执行insert操...