设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2006|回复: 3

[Access本身] 有关VBA的两个问题寻求帮助,谢谢。

[复制链接]

点击这里给我发消息

发表于 2020-4-20 14:09:28 | 显示全部楼层 |阅读模式
本帖最后由 Kevin12 于 2020-4-20 14:13 编辑

问题1:
在Access中新建了一个表FT(ID,型号,系数1,系数2),在窗体中新建了组合框Combo1,新建了文本框Text1,新建了按钮Command1。
想要通过VBA实现的功能是:在组合框Combo1中选择型号(也就是表FT中的型号),然后通过该型号获得对应的表FT中“系数1”中的值,以及对应的表FT中‘系数2”中的值,然后文本框Text1的值等于表“系数1”中的值乘以表‘系数2”中的值
举例:选择了型号0001-0029,然后点按钮Command1,在文本框Text1中显示的值=85.13*59.55=5069.4915。我根据书本和网上的资料写了一些代码都没有实现该功能,不知道能否帮忙演示一下完整的VBA代码?
表FT


C:\Users\zhux\Desktop\55.jpg
问题2:以上的型号是通过下拉列表选择得到的,但是型号很多的话选起来很麻烦。是否可以录入部分数字,然后缩小范围再选择。
举例:型号中有0001-0029, 0001-0038,0001-0045.如果录入0001-00后就能自动的显示这3个型号,其他型号不显示,然后就可以选择正确的那一个。该如何实现?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2020-4-20 19:04:31 | 显示全部楼层
可以,但你必须传例子
发表于 2020-4-20 23:10:40 | 显示全部楼层
  1. Private Sub Combo0_AfterUpdate()
  2.     If Not IsNull(Me.Combo0) Then
  3.         Me.Text2 = Me.Combo0.Column(1) * Me.Combo0.Column(2)
  4.     End If
  5. End Sub

  6. Private Sub Combo0_Change()
  7.     Dim sSQL As String
  8.     sSQL = "SELECT 型号,系数1,系数2 FROM FT WHERE 型号 LIKE '" & Me.Combo0.Text & "*'"
  9.     Me.Combo0.RowSource = sSQL
  10. End Sub
复制代码

点击这里给我发消息

 楼主| 发表于 2020-4-22 13:45:38 | 显示全部楼层
收到,多谢呀,多谢帮助。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-28 23:37 , Processed in 0.092496 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表