Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

怎么弄个特殊要求的编码(编号)

欧阳空竹  发表于:2009-08-13 15:05:31  
复制

第一:作为主键的房主序号,不是房主编号。

第二:房主编号与房主序号没有关系,不受房主序号影响。

第三:房主编号是   前缀+房主简称+自动流水号。

第四:如果第一个房主叫王小四,那么相对应的房主编号为 FZH-LXS-01

      第二个房主叫赵小六,那么相对应的房主编号为:FZH-ZXL-02

      如果修改第二个房主赵小六为赵小七,则编码自动变为:FZH-ZXQ-02

      第N 个房主叫黄药师,那么相对应的房主编号为:FZH-HYS-N

各位老师,这个编码怎么实现啊。给个实例最好。谢谢。

 

 

Top
点燃一支烟 发表于:2009-08-13 15:28:01

这样的例子网上、站内多如牛毛,肯定你事先又没去搜索



ACCESS三年级学生 发表于:2009-08-13 15:39:45
邓老师,如果你是我就知道我的难处了。我搜了,只是不知道怎么搜啊。

ACCESS三年级学生 发表于:2009-08-13 15:58:36

我搜也搜了,用人家的改也改了可就是总是有错。而且也不对。



点燃一支烟 发表于:2009-08-13 15:59:52

本站搜索,在搜索下面的框内键入“自动编号”,文章标题、帖子标题各搜索一道,总有你需要的例子,试试



点燃一支烟 发表于:2009-08-13 16:00:16

传附件



ACCESS三年级学生 发表于:2009-08-13 16:19:20
邓老师,谢谢您的热心。可是我改不成功,我太笨了。最郁闷的是传附件都穿不上来。

ACCESS三年级学生 发表于:2009-08-13 16:37:45

Active Server Pages 错误 'ASP 0113'

传附件就出这个

 



ACCESS三年级学生 发表于:2009-08-13 16:58:10

Private Sub FzhJC_AfterUpdate()
''定义一个存放最大数的整型变量
Dim Maxno As Integer
  
   ''查找在表中编号的最大数,当为空时显示0,并赋值给MAXNO
    Maxno = Right(Nz(DMax("[FzhBH]", "tblZRFDM", "[FzhBH] like '" & Me.FzhJC & "*'"), 0), 3)
   ''编号+1后赋值给控件
    Me.FzhBH = Me.FzhJC & Format(Maxno + 1, "00")
End Sub

 

 

我这样写代码对不对啊?!



点燃一支烟 发表于:2009-08-13 17:24:05

发邮箱49045061@qq.com 



点燃一支烟 发表于:2009-08-13 17:33:54
呵呵,千万不要自己说自己笨,自己说的不算,要不,试试让大家来说你笨?

点燃一支烟 发表于:2009-08-14 13:35:04
点燃一支烟 发表于:2009-08-14 13:52:33

见示例,你自己移植到你的库里,你那个取首拼的函数有局限,给你换掉了



ACCESS三年级学生 发表于:2009-08-14 15:56:34

邓老师!您太厉害了。完全是我要的效果,而且取拼音字首的函数,比我那个强太多了。哈哈。太开心了。谢谢。谢谢。

 



总记录:13篇  页次:1/1 9 1 :