Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
自有的享受粮补耕地面积.Value = DLookup("[土地面积之总计]", "种植品种查询", "[农户编号]='" & [农户编号] & "' And [土地性质]='自有的享受粮补耕地'")
承包的享受粮补耕地面积.Value = DLookup("[土地面积之总计]", "种植品种查询", "[农户编号]='" & [农户编号] & "' And [土地性质]='承包的享受粮补耕地'")
自己开荒的土地面积.Value = DLookup("[土地面积之总计]", "种植品种查询", "[农户编号]='" & [农户编号] & "' And [土地性质]='自己开荒的土地'")
承包他人开荒的土地面积.Value = DLookup("[土地面积之总计]", "种植品种查询", "[农户编号]='" & [农户编号] & "'And [土地性质]='承包他人开荒的土地'")
If IsNull(Me!自有的享受粮补耕地面积.Value) Then Me!自有的享受粮补耕地面积.Value = Nz(Me!自有的享受粮补耕地面积.Value, 0)
If IsNull(Me!承包的享受粮补耕地面积.Value) Then Me!承包的享受粮补耕地面积.Value = Nz(Me!承包的享受粮补耕地面积.Value, 0)
If IsNull(Me!自己开荒的土地面积.Value) Then Me!自己开荒的土地面积.Value = Nz(Me!自己开荒的土地面积.Value, 0)
If IsNull(Me!承包他人开荒的土地面积.Value) Then Me!承包他人开荒的土地面积.Value = Nz(Me!承包他人开荒的土地面积.Value, 0)
Me!总耕种面积.Value = Me!自有的享受粮补耕地面积.Value + Me!承包的享受粮补耕地面积.Value + Me!自己开荒的土地面积.Value + Me!承包他人开荒的土地面积.Value
Exit_Command25_Click:
Exit Sub
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub
‘这是我做的一个例程，你可以根据自己的例程修改修改，我想能达到你的要求。’
