添加記錄到表中，並在2個單獨的表中編輯記錄

Question

嗨，我正在創建一個訪問數據庫，我無法弄清楚如何做一件特定的事情。

我得到了一個帶有兩個文本框的表單：MovieID和CustomerID。我也有三個單獨的表：MovieList，CustomerInfo和HireHistory。我需要的是，當我輸入MovieID和CustomerID到給定的框中，然後按我的按鈕HireButton，它將該特定MovieID的LastHireDate編輯爲Today（），將該特定CustomerID的LastHireDate編輯爲Today（），然後在我的HireForm在第一行中有CustomerID），它在CustomerID下面添加一條新記錄，格式如下：MovieID " on " Today()

另外，我需要讓它檢查MovieID的流派，如果它是R16或R18，那麼它檢查客戶今天是否大於16歲或18歲，如果不是，則會出現錯誤框。我知道如何檢查它們是否大於16或18，而不是錯誤框。

我知道這是很多文字，所以我只寫一下我腦中的內容（我如何看待代碼應該是這樣），以便更容易地看到我想要做什麼。

IF MovieID.Rating = 'R16' OR 'R18' 
    THEN IF CustomerID.[Date(Year(DOB)+16,Month(DOB),(Day(DOB))] > Today() 
      THEN DISPLAY Msgbox = "Sorry, too young" 

      ELSE SET CustomerID.LastHireDate = Today() 
       SET MovieID.LastHireDate = Today() 
       ADDRECORD in HireHistory for that CustomerID to (MovieID & " on " & Today()) 

    ELSE SET CustomerID.LastHireDate = Today() 
     SET MovieID.LastHireDate = Today() 
     ADDRECORD in HireHistory for that CustomerID to (MovieID & " on " & Today()) 

這是否說明它好一點？在此先感謝您的幫助！ :)

Answer 1

所以在這裏我將如何做到這一點。您首先必須爲每個表創建一個記錄集。

對於年齡我會使用這個功能。 ：http://www.fmsinc.com/MicrosoftAccess/modules/examples/AgeCalculation.asp

customerBirth = yourCode to get the date 

If MovieID.Rating = 'R16' OR 'R18' then 

    If AgeYears(customerBirth) < 16 then 
     msgbox("Sorry, too young") 
    else 
     MyCustomerRecordSet("LastHireDate") = now 
     MyMovieRecordSet("LastHireDate") = now 

     MyHireRecorset.AddNew 
      MyHireRecorset("I don't know what your trying to do here") 
     MyHireRecorset.Update 

    end if 

Else 
     MyCustomerRecordSet("LastHireDate") = now 
     MyMovieRecordSet("LastHireDate") = now 
     MyHireRecorset.AddNew 
     MyHireRecorset("I don't know what your trying to do here") 

End if 

如果您有任何問題，只是問。