访问 - 一个表单，更新一个表并插入另一个表

Question

我不熟悉访问中的vba语法，我对查询有疑问。

我有一个表单，例如我有一个名为＆＃34; A＆＃34;的字段。我希望将其插入表it('scope.isRouteLoading should be false on start', function() { // wrap sm-progress with a div tag element = $compile('<div><sm-progress></sm-progress></div>')(scope); scope.$digest(); expect(scope.isRouteLoading).toBe(false); // In this point element compiles to: // <div class="ng-scope"><!-- ngIf: isRouteLoading --></div> $rootScope.$emit('$stateChangeStart'); expect(scope.isRouteLoading).toBe(true); scope.$digest(); // Now element compiles to: // <div class="ng-scope"> // <!-- ngIf: isRouteLoading --> // <div class="sm-progress ng-scope" ng-if="isRouteLoading"> // <span>.</span><span>.</span><span>.</span> // </div> // <!-- end ngIf: isRouteLoading --> // </div> // Now the test pass. var progressEl = angular.element(element).find('.in-progress'); expect(progressEl.length).toBeGreaterThan(0); //element is present }); 和另外两个字段，一个名为＆＃34; B_ID＆＃34;其中包含ID和另一个名为＆＃34; B＆＃34;我希望在table_a中更新（其中ID等于字段＆＃34; B_ID＆＃34;。

如何在VBA中进行访问的任何想法？

在PHP和MySQL中我只会有两个查询： table_b INSERT INTO table_b (field_A) VALUES ($_POST['A']) *或类似的东西......

谢谢你！

Answer 1

如果您基于可更新查询创建表单，则不需要任何VBA代码。应使用主表中具有唯一键的列链接表，并且查询不应包含聚合函数。还有一些其他限制，但在大多数情况下，它适用于简单查询

如果表未链接或您不想在表单上使用，请使用以下代码：

Dim db As Database

Set db = CurrentDb
db.Execute "INSERT INTO table_b (field_A) SELECT " & Me.A, dbFailOnError
db.Execute "UPDATE table_b SET B=" & Me.b & " WHERE b_id = " & Me.B_ID, dbFailOnError

这里我们假设您在表单字段A，B和B_ID上有数字值，表中的相应列是数字。如果字段是文本，请在SQL字符串中添加单引号。