2015-10-22 73 views
0

我有一個連續窗體的主窗體作爲顯示爲特定客戶端提供服務的子窗體。不知何故,重複的客戶端被輸入(名稱拼寫錯誤),記錄在這兩個客戶端名稱之間分開。我希望能夠從我的子表單(不正確的客戶端)中點擊一個按鈕並將這些記錄轉移到另一個表單(數據臨時主機),這將允許我最終將相同的記錄從中間表單轉移到最終表單(正確的客戶機)。如何使用命令按鈕將所有數據/記錄從一種形式傳輸到另一種形式?

+0

請記住,這是一個代碼幫助,而不是應用程序寫作,論壇。 – Gustav

+0

你不能創建另一個綁定到同一個表(services?)的表單作爲你的子表單,這將允許你改變FK(Client_ID?) – LiamH

回答

1

我假設將您的子窗體記錄與您的主窗體記錄相關的外鍵是某種客戶端ID,因此您只需要一種方法來更新此窗口。

我能想到的一種方法是在您的服務渲染子窗體的頁腳中有一個文本框,它將採用客戶端ID,您希望子窗體中的記錄可見。然後,命令按鈕(同樣在子窗體頁腳中)可以獲取您指定的客戶端ID值,並更新服務渲染子窗體中顯示的所有記錄的客戶端ID。

所以,如果,例如你有沒有和渲染這些服務的客戶端:

enter image description here

...可惜someonr做出另一個客戶端記錄爲同一人(拼錯姓):

enter image description here

你可以指定你希望你的子窗體記錄轉移到子窗體頁腳使用文本框中的客戶ID:

enter image description here

...然後單擊命令按鈕運行一個子程序,將做更新您:

enter image description here

然後,您可以去您傳遞這些記錄的客戶端並檢查它一直:

enter image description here

這裏的VBA命令按鈕:

Private Sub cmdTransfer_Click() 

    Dim rs As DAO.Recordset 
    Set rs = Me.Form.Recordset 

    If _ 
     Not (rs.BOF And rs.EOF) _ 
    Then 

     rs.MoveFirst 

     Do While Not rs.EOF 
      rs.Edit 
      rs!ClientID = Me.txtTransClientId 
      rs.Update 
      rs.MoveNext 
     Loop 

    End If 

    Me.Requery 

End Sub 

Here's my mock-up file如果你想更詳細地看看這個。

請注意,我沒有對剩餘的重複客戶端記錄做任何事情,所以我建議將其構建到sub中(例如,用戶詢問他們現在是否想要的是/否消息框提示刪除客戶端)。

希望這會有所幫助。現在,我不能爲其他已經回覆的人發言,但我接受所有主要的信用卡。

相關問題