1

嗨，我正在制作一个访问数据库，但我不知道如何做一件特定的事情。

我有一个带有两个文本框的表单：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())

这是否更好地解释了它？在此先感谢您的帮助！:)

4

1 回答 1

0

所以在这里我会怎么做。您首先必须为每个表创建一个记录集。

对于这个年龄，我会使用这个功能。：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

如果您有任何问题，请提出。

于 2013-04-11T13:53:37.497 回答