Office中国论坛/Access中国论坛

标题: 如何在窗体中复制任一记录 [打印本页]
作者: 付谦    时间: 2009-2-23 10:43
标题: 如何在窗体中复制任一记录
本帖最后由 付谦 于 2009-2-23 10:46 编辑

如何在窗体显示的任一记录上，双击标题栏即复制这一记录。见附件[attach]35661[/attach]
作者: koutx    时间: 2009-2-23 12:00
重发附件，讲清问题。附注“单击姓名给查询赋值，双击姓名添加新记录”指的是什么？
作者: todaynew    时间: 2009-2-23 13:21
没看懂，呵呵。
作者: ACMAIN_CHM    时间: 2009-2-23 19:55

我还以为是经验分享，原来是提问！


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
作者: Henry D. Sy    时间: 2009-2-24 08:27
如果有单击事件，则双击事件永远也不会发生。
作者: Henry D. Sy    时间: 2009-2-24 08:42
  1. Private Sub 标题_DblClick(Cancel As Integer)
  2.     Dim strSQL As String
  3.     Dim dtm As Date
  4.     If IsNull(Me.材料年月) Then
  5.         dtm = #1/1/1900#
  6.     Else
  7.         dtm = Me.材料年月
  8.     End If
  9.     strSQL = "insert into 档案目录总库(姓名,类号,标题,题号,材料年月,份数,页数,输入年月)" & _
  10.              "values('" & Me.姓名 & "','" & Me.类号 & "','" & Me.标题 & "','" & Me.题号 & "',#" _
  11.            & dtm & "#,'" & Me.份数 & "','" & Me.页数 & "',#" & Now & "#)"
  12.     CurrentDb.Execute strSQL
  13.     Me.Requery
  14. End Sub
复制代码
作者: 付谦    时间: 2009-2-24 09:27
本帖最后由 Henry D. Sy 于 2009-2-24 09:33 编辑

对附件进行了修改，对问题进行了事例表述？请帮助
作者: Henry D. Sy    时间: 2009-2-24 09:30
6楼不是您要的吗
作者: Henry D. Sy    时间: 2009-2-24 09:33
同样的附件不要重复上传。
作者: 付谦    时间: 2009-2-24 09:36
我要的就是此效果，谢谢版主了！
作者: ACMAIN_CHM    时间: 2009-2-24 09:45
如果有单击事件，则双击事件永远也不会发生。
Henry D. Sy 发表于 2009-2-24 08:27




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
作者: Trynew    时间: 2009-2-24 09:56
如果有单击事件，则双击事件永远也不会发生。
Henry D. Sy 发表于 2009-2-24 08:27




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 ...
ACMAIN_CHM 发表于 2009-2-24 09:45


Private Sub Text0_Click()
Debug.Print "click"
End Sub
Private Sub Text0_DblClick(Cancel As Integer)
Debug.Print "DblClick"
End Sub

---------------------------------
click
click
click
DblClick
click
DblClick
click
DblClick
click
DblClick

应该是会发生的，不过单击就只发生单击事件，双击是先发生单击，接下来再发生双击事件。
楼主要求的单击给变量赋值，双击复制记录应该也是可以的
作者: ACMAIN_CHM    时间: 2009-2-24 14:39
Private Sub Text0_Click()
Debug.Print "click"
End Sub
Private Sub Text0_DblClick(Cancel As Integer)
Debug.Print "DblClick"
End Sub

---------------------------------
click
click
click
D ...
Trynew 发表于 2009-2-24 09:56



dblclick应该是会吃掉第二次的mouseup , 不会吃掉 click。 以前写过一个程序，没注意这个，自己测试都正常，结果被那些猴子拿着MOUSE乱敲，结果画面就乱了。查了半天才发现是mouseup被吃了。
这是WINDOWS消息队列的问题，与程序语言无关。


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
作者: Henry D. Sy    时间: 2009-2-25 07:05
Private Sub Text0_Click()
Debug.Print "click"
End Sub
Private Sub Text0_DblClick(Cancel As Integer)
Debug.Print "DblClick"
End Sub

---------------------------------
click
click
click
D ...
Trynew 发表于 2009-2-24 09:56

谢谢吹牛兄提醒！！
作者: kn1394    时间: 2009-2-26 12:42
try
作者: 付谦    时间: 2009-2-26 14:01
6楼回复就是我需要的，谢谢了
作者: kn1394    时间: 2009-2-26 14:06
try



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3