问题很菜，如何将查询的内容转换到表中。

sevencn

问题也许很菜，但是我想很长时间，不知道如何解决这个问题。我做了一个查询
SumOfPlanDurationTime         ContractID
50                                  1
47                                  11
47                                 1111111111
50，47，50 是时间的加总，1，11，111111111是合同号码。我想将一个功能来实现自动改变该合同的时间。

Public Function countTime()
On Error GoTo ERR
    Dim StrSQL As String
        StrSQL = "SELECT * FROM qryPlanDurationTimeExtended where qryPlanDurationTimeExtended.contractID=" & "'" & ContractID.Value & "'"
   这句是想表达选出相同的合同号码的时间
    Debug.Print StrSQL
    [Forms]![frmPlanDurationTime].DurationTime = StrSQL   
    Debug.Print Me.PlanDurationTime   
Exit Function
ERR:
MsgBox ERR.Number & ERR.Description
End Function

我是想通过点击子窗体的时间来实现，主窗体里的时间变化的。如何解决这个问题呢。给予帮助。先谢谢了。