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

时间:2016-01-18 06:58:07

标签: ms-access

我不熟悉访问中的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']) *或类似的东西......

谢谢你!

1 个答案:

答案 0 :(得分: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字符串中添加单引号。