关于输入窗体

qp370982

关于输入窗体其实我就想通过输入窗体实现以下功能
1）通过点击保存按钮，将在输入窗体的内容追加到表“基本情况”，同时清除窗体上的内容，以便下次输入
2）如果不对某一行中的“省”、“城市”列进行编辑，就自动显示为与上一行相同。

qp370982

谢谢各位老师，我是用工作表，sorry
另外还有2个小问题
1、怎样能否导出之前，先出现一个对话框，能够改变excel文件的名称和路径
2、能否让不同工作表的名称也改为相应“籍贯”的名字
麻烦各位老师了，不好意思，小弟感激不尽

Henry D. Sy

因为你输错地方，给你的帖子您都不好好看。

qp370982

那您能告诉我输入你写的代码，为什么屏幕上出现方法和成员未找到，您能在我上传的例子上实际操作一下吗，仅限于如果不对某一行中的“省”、“城市”列进行编辑，就自动显示为与上一行相同。

Henry D. Sy

晕，看不懂。

qp370982

绑定表“输入”，保存到表“基本情况”有利于清晰的看到每次输入的不同信息，您受累，帮在下一下，打扰您休息了，不好意思，不胜感谢

qp370982

屏幕上出现方法和成员未找到

Henry D. Sy

何必这样转来转去，直接绑定“基本情况”

qp370982

窗体绑定的表是“输入”表，我是想通过点击保存按钮将“输入”窗体的内容保存到表“基本情况”，同事清除“输入窗体”中的内容，也就是表“输入”的内容

Henry D. Sy

问题
1 是绑定表的，会自动保存，无需按保存按钮，当然也不能清除窗体上的内容，否则就等于删除记录。
2. 在子窗体的窗体本身输入下面代码

1. Private Sub Form_Current()
   
2.     Dim rs As DAO.Recordset
   
3.     Set rs = Me.RecordsetClone
   
4.     If NewRecord Then
   
5.         If rs.RecordCount > 0 Then
   
6.             rs.MoveLast
   
7.             Me.省 = rs!省
   
8.             Me.城市 = rs!城市
   
9.         End If
   
10.     End If
    
11.     rs.Close
    
12.     Set rs = Nothing
    
13. End Sub

复制代码