Office中国论坛/Access中国论坛

标题: 求教：如何按另一字段的条件将字段值写入新表 [打印本页]

作者: Acce 时间: 2005-10-22 15:25
标题: 求教：如何按另一字段的条件将字段值写入新表

本来不抱希望了，在网站首页重新注册，最后要真实的邮箱地址，我添的是假的。然后从记事本

里找到2年前这个用户名密码。竟然能登陆。没条件上外网真是困难。

正题：

                        d                      f

                        s                      f

                        c                      f

                        g                      p

                        r                         j

                        h                      j

      ……

写入到如下表：

                        d s c                f

                              g                   p

                           r  h                   j

  ……

前一字段是姓名，后一字段是卷宗编号，卷宗编号全年唯一，对应不等量的姓名，都是文本。也

可以增加利用原表的（自动编号）ID字段我一点代码也不会，甚至不知道这个题目有多难，如

果有哪位老师闲暇之余能给出代码，还请讲解一下怎么用。

.

[此贴子已经被作者于2005-10-24 1:44:52编辑过]

作者: Acce 时间: 2005-10-24 09:43

如果换一种方式提问，在 Access 中实现以上功能，请人来编个小程序需要多少钱？较落后城

市半个月的公务员工资够不够哇？

.

[此贴子已经被作者于2005-10-24 2:18:49编辑过]

作者: 情比金坚 时间: 2005-10-24 11:02
[attach]13751[/attach]

可能一时没人看见你的帖子罢了，希望人帮助快点时不妨顶一下。

作者: Acce 时间: 2005-10-30 20:40
星期天才能上来看一眼，看到版主的回复，激动不已（呵呵~~~），回去研究研究。因为看到 MySQL 4 、MySQL 5自带一个转换函数，这一个星期研究了MySQL，发现需要集成 Apache ，PHP5 和 phpMyAdmin 的环境，都是英文的，打印下来内网的资料帖子对照安装，总算装上了。连 root 的密码都不会设置。还是 Access顺手一些。只能在星期天上来看看。真想办内退给那位老大看大门去。谢谢情版主。有看不懂的地方再来叨绕。.

作者: Acce 时间: 2005-10-30 21:01
我看了一下版主的程序，窗体只有一个按钮调用一个宏，我直接点击了这个按钮结果发生模块错误，可能是数据库表2已经存在的原因。模块是怎么被宏调用的，我就不知道了。其实微软在 Access 封装这个转换函数最好不过。呵呵~~~笨人，没办法。.

作者: Acce 时间: 2005-10-30 21:13
删除了表2，还是不行。Function ntadd(t As String) As String

Dim str As String

Dim rs As New ADODB.Recordset

Dim n As Integer rs.Open "select * from 表1 where 卷宗='" & t & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

n = rs.RecordCount For i = 1 To n

str = str & "，" & rs("姓名")

rs.MoveNext

Next

ntadd = Mid(str, 2, Len(str))End Function显示这样的效果。.

作者: Acce 时间: 2005-10-30 21:17
不会是因为我的机器上有 MySQL 吧。.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)