Access交流中心

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

回复 加入收藏帖  复制
我要提问 帖子上移

【平台】中新增窗体多个字段数据合成一个新值,并给到另一个字段

盼盼 等级: 普通会员 积分:0 金币:0 来自:北京Access交流中心 发表于:2018-06-05 22:39:38  
楼主

按照平台的教程套了一个小程序,在新增窗体中

第一字段是【JqID(机器编号)】,数值来自于平台的自动编号,例:HL003。

第二字段是【Jqpp(机器品牌)】,数值手动输入

第三字段是【Jqxh(机器型号)】,数值手动输入

第四字段是【Jqmc(机器名称)】,数值打算用    机器名称 = 机器品牌 + 机器型号 + 机器编号后3位的形式。

请问:

1、代码是这样写么?

     Me.Jqmc = Me.Jqpp + Me.Jqxh + Right(Me.JqID, 3)

2、这个代码应该写在“保存按钮”的什么位置才能成功?

Private Sub btnSave_Click()

    On Error GoTo ErrorHandler

    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub

    Dim cnn: Set cnn = GetADOConnection()

   'cnn.BeginTrans
   'Dim blnTransBegin As Boolean: blnTransBegin = True

    If Nz(Me![JqID]) = "" Then Me![JqID] = GetAutoNumber("JqID-tblCodeJq")
    '-------------------------------------------------------------------------------
            Me.Jqmc = Me.Jqpp + Me.Jqxh + Right(Me.JqID, 3) '<=============放在这里??
    '-------------------------------------------------------------------------------
    Dim strSQL: strSQL = "SELECT * FROM [tblCodeJq] WHERE [JqID]=" & SQLText(Me![JqID])
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then rst.AddNew
    UpdateRecord Me, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2
    rst.Update
    rst.Close

   'cnn.CommitTrans
   'blnTransBegin = False

    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation

    If Me.DataEntry Then
        Me.InitData
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

ErrorHandler:
   'If blnTransBegin Then
   '    cnn.RollbackTrans
   '    blnTransBegin = False
   'End If
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub



 

access培训  诚聘access开发人员

    盼盼
      获得社区协助:请教问题(即发帖)3篇,其中获得解决的1篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top
nowtoo 等级:普通会员▲ 积分:141 金币:0 来自:成都Access交流中心 发表于2018/6/6 0:11:22 
1楼 得分: 0

机器编号机器品牌机器型号的更新事件里都写上这句代码



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    nowtoo
      获得社区协助:请教问题(即发帖)26篇,其中获得解决的23篇;
      协助社区成员:协助他人(即回帖)29篇,其中被设为【最佳答案】的5篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
仙来 等级:一星助教★ 积分:565 金币:2214 来自:池州Access交流中心 发表于2018/6/6 10:21:19 
2楼 得分: 0

.....

'你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2

    Me!Field3= Me.Jqpp + Me.Jqxh + Right(Me.JqID, 3)
    rst.Update
    rst.Close

   'cnn.CommitTrans
   'blnTransBegin = False

    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation
.......

试试这样可行

 



    希望我的回答能解决了您的问题,或者所附上的这些信息对您有所帮助!如有任何疑问或需要进一步帮助,请您直接在本站发贴,我们非常乐意帮助您解决问题!
    如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,以方便大家对那些正在等待解决的帖子给予关注!
    仙来  [协助社区成员回帖587篇,其中【最佳答案】182篇;发布技术文章47篇。]
    Access软件网助教团队 
    http://www.umvsoft.com
    如果您没有注册这个论坛,请单击下面的链接进行注册,与我在论坛进行交流:
    http://www.accessoft.com/reg/reg.asp?userid=30269
    本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。
盼盼 等级:普通会员 积分:0 金币:0 来自:北京Access交流中心 发表于2018/6/6 21:36:52 
3楼 得分: 0
回 2楼,3楼。您两们的方法我都试过了。不行。本想传个附件,但是怎么弄都超过3M。。。。


    盼盼
      获得社区协助:请教问题(即发帖)3篇,其中获得解决的1篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
仙来 等级:一星助教★ 积分:565 金币:2214 来自:池州Access交流中心 发表于2018/6/7 8:30:12 
4楼 得分: 0

.....

'你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2

    'rst!Field3= Me.Jqpp + Me.Jqxh + Right(Me.JqID, 3)
    rst.Update
    rst.Close

   'cnn.CommitTrans
   'blnTransBegin = False

    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation
.......

试试这样可行

 





    希望我的回答能解决了您的问题,或者所附上的这些信息对您有所帮助!如有任何疑问或需要进一步帮助,请您直接在本站发贴,我们非常乐意帮助您解决问题!
    如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,以方便大家对那些正在等待解决的帖子给予关注!
    仙来  [协助社区成员回帖587篇,其中【最佳答案】182篇;发布技术文章47篇。]
    Access软件网助教团队 
    http://www.umvsoft.com
    如果您没有注册这个论坛,请单击下面的链接进行注册,与我在论坛进行交流:
    http://www.accessoft.com/reg/reg.asp?userid=30269
    本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。
宏鹏 等级:版主★★★★★ 积分:2678 金币:15480 来自:上海Access交流中心 发表于2018/6/7 9:06:10 
5楼 得分: 0
UpdateRecord Me, rst
    '把上面一句代码注释掉,下面改成自己写的新增代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2



    希望我的回答能解决了您的问题,或者所附上的这些信息对您有所帮助!如有任何疑问或需要进一步帮助,请您直接在本站发贴,我们非常乐意帮助您解决问题!
    如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,以方便大家对那些正在等待解决的帖子给予关注!
    宏鹏  [协助社区成员回帖1521篇,其中【最佳答案】175篇;发布技术文章387篇。]
    Access软件网助教团队 
    http://www.umvsoft.com
    如果您没有注册这个论坛,请单击下面的链接进行注册,与我在论坛进行交流:
    http://www.accessoft.com/reg/reg.asp?userid=21115
    本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。
盼盼 等级:普通会员 积分:0 金币:0 来自:北京Access交流中心 发表于2018/6/7 20:46:47 
6楼 得分: 0
宏鹏版主。如果平台的这个新增窗体改成自己的新增代码,那是不是平台修改窗体的功能就不能实现了?或者说还要在做一个修改窗体?

    盼盼
      获得社区协助:请教问题(即发帖)3篇,其中获得解决的1篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
云中燕儿 等级:普通会员 积分:0 金币:40 来自:平谷Access交流中心 发表于2018/7/14 10:09:56 
7楼 得分: 0
写个更新查询

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    云中燕儿
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的1篇;
      协助社区成员:协助他人(即回帖)7篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章1篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:7篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。