Access VBA动态修改组合框数据源

Access应用 专栏收录该内容
9 篇文章 0 订阅

iamlaosong文

根据输入的工厂简称动态修改发货客户和收货客户两个组合框的数据源:

'输入工厂后根据工厂修改收发客户的数据源供录入选择,同时生成LoadTo
Private Sub FAbbr_AfterUpdate()
    Me!LoadTo = Me!Load & "-" & Me!ToCode
    Me!SAbbr.RowSource = "SELECT SAbbr FROM tblSndClient WHERE FAbbr='" & Me!Fabbr & "'"
    Me!RAbbr.RowSource = "SELECT RAbbr FROM tblRcvClient WHERE FAbbr='" & Me!Fabbr & "'"
End Sub
注意:RecordSource是窗体或报表的数据源,RowSource则是列表框或组合框的数据源。例如:
Private Sub Form_Load()
    Me.RecordSource = "select * from tblPart"
End Sub



  • 0
    点赞
  • 0
    评论
  • 2
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值