将一子窗体值赋予另一个子窗体提示是编译错误

貌似文弱　发表于：2012-06-17 17:50:11 　

请教大师们，我想将一个子窗体（各个评委的原始评分）中的记录值自动写到另一个子窗体（评审项目评分，用于以后的累计）中，下面这段语句老出错，是为什么
Private Sub 自动填分_Click()'点击一个按钮
    With Me.评审项目评分子窗体.Form.Recordset
    .MoveFirst
           .编号.Value = Forms!原始评分表子窗体.Form!.编号.Value　'把原始评分表中的编号给评审项目评分编号
          .Update
          .MoveNext
    Loop
    End With

End Sub

提示是编译错误：类型声明与声明的数据类型不符

Top

红尘如烟发表于：2012-06-17 19:44:46

.编号.Value = Forms!原始评分表子窗体.Form!.编号.Value　

你这叹号和点号都写到一起了，能对才怪。

Top

貌似文弱发表于：2012-06-17 20:14:52

谢谢回复。去掉也不行，显示“找不到宏表达式或VB代码中引用的子窗体”

Top

貌似文弱发表于：2012-06-20 00:22:58

终于在别人的帮助下解决了，正确的语句应该这样：

Private Sub 两子窗体中数据传递_Click()
    Dim strWhere As String
    With Me.A子窗体.Form.Recordset
    .MoveFirst
      Me.B子窗体.Form.Recordset.AddNew
      Me.B子窗体.Form.Recordset.Fields("编号") = Me.A子窗体.Form.Recordset("编号")

      '把A中的编号给B编号
      Me.B子窗体.Form.Recordset.Update
      .MoveNext

Loop

End With
End Sub

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

将一子窗体值赋予另一个子窗体提示是编译错误