Office中国论坛/Access中国论坛

标题: 求帮助：利用窗体条形码按条件输入到表 [打印本页]
作者: 若离ヘ不弃°    时间: 2012-6-22 11:48
标题: 求帮助：利用窗体条形码按条件输入到表
[attach]49459[/attach]
如题：现在有3张表格，1,2,3,5等列里面的内容希望通过条形码扫描，这个分两种，其中两张表格的模式一样，
希望在一个窗体里达到以下目的：
ID可以下拉选择，选择不同的ID会跳出相应要扫描条形码的模式，并且会输入到相应的表里面去
这里ID的选择希望用查询表，因为不是每个都需要扫描
我研究了好久，也没有找到什么实际的例子求前辈高手多多指教
作者: Henry D. Sy    时间: 2012-6-22 11:55
不是很明白？
选择不同的ID会跳出相应要扫描条形码的模式，
那么，这个模式在什么地方查阅呀？
作者: 若离ヘ不弃°    时间: 2012-6-22 12:21
Henry D. Sy 发表于 2012-6-22 11:55
不是很明白？
选择不同的ID会跳出相应要扫描条形码的模式，
那么，这个模式在什么地方查阅呀？

就是表一中有123 3列
表三中    是56两列
就是这两种模式表一中的机器有3相要被扫描而表三中只有2相，都希望在一个窗体中完成，
比如ID1 在表一中，跳出来被扫描的项就是123，扫进去的数据进入表一这样
作者: Henry D. Sy    时间: 2012-6-22 12:25
可是你所谓的12356列均是null值
作者: 若离ヘ不弃°    时间: 2012-6-22 12:26
Henry D. Sy 发表于 2012-6-22 12:25
可是你所谓的12356列均是null值

这个表是我举的离子，实际的太多也太烦了我就没弄上了，那些是要靠条形码扫进去的
作者: Henry D. Sy    时间: 2012-6-22 12:29
主要问题也许我根本没明白你的意思？
你要扫描的模式，在哪里呀
作者: 若离ヘ不弃°    时间: 2012-6-22 12:48
Henry D. Sy 发表于 2012-6-22 12:29
主要问题也许我根本没明白你的意思？
你要扫描的模式，在哪里呀

就是ID是下拉选择的 然后会根据表格跳出相应的文本框一样的输入界面，既可以输入也可以扫描的那种，就是如果一共有12345 5个输入框的话会根据选择出现相应的123 和56这样
作者: 若离ヘ不弃°    时间: 2012-6-22 13:22
Henry D. Sy 发表于 2012-6-22 12:29
主要问题也许我根本没明白你的意思？
你要扫描的模式，在哪里呀

帮主，如果每张表都做一个输入的窗体，通过主窗体中的ID去调可以吗
作者: Henry D. Sy    时间: 2012-6-22 13:45
真听不明白，都是空白的，你叫他跳出什么呀
作者: Henry D. Sy    时间: 2012-6-22 13:45
若离ヘ不弃° 发表于 2012-6-22 13:22
帮主，如果每张表都做一个输入的窗体，通过主窗体中的ID去调可以吗

可以的，但到哪里去调用？
作者: 若离ヘ不弃°    时间: 2012-6-22 14:08
[attach]49460[/attach]/
附件我更新了下，就是在窗体一中有下拉选项，S/N是唯一的，选择一个S/N可以跳掉相应的窗体中，并且进行输入，S/N是不可以输只可以选择的，pvb1\2\3\4现在为空白，都是要通过界面输进去的，不知道这样明白了没，我语言表达能力不行~~o(>_<)o ~~
作者: Henry D. Sy    时间: 2012-6-22 14:41
是不是根据sn的第一个字判断所在的表名
作者: Henry D. Sy    时间: 2012-6-22 14:50
是不是这个意思
  1. Private Sub Combo2_AfterUpdate()
  2.     Dim str As String
  3.     If Not IsNull(Me.Combo2) Then
  4.         str = Left(Me.Combo2, 1)
  5.         If str = "2" Then
  6.             DoCmd.OpenForm "chn输入", acNormal
  7.         ElseIf str = "3" Then
  8.             DoCmd.OpenForm "top输入"
  9.         End If
  10.         Me.Visible = False
  11.     End If
  12. End Sub
复制代码
[attach]49461[/attach]

作者: 若离ヘ不弃°    时间: 2012-6-22 14:56
Henry D. Sy 发表于 2012-6-22 14:50
是不是这个意思

是了，就是跳过去之后希望CHN输入的S/N也显示这个选择的，并且输入的pvb1/pvb2能够更新到下面的数据，帮主威武啊
作者: Henry D. Sy    时间: 2012-6-22 15:20
若离ヘ不弃° 发表于 2012-6-22 14:56
是了，就是跳过去之后希望CHN输入的S/N也显示这个选择的，并且输入的pvb1/pvb2能够更新到下面的数据，帮主 ...
  1. Private Sub Combo2_AfterUpdate()
  2.     Dim str As String
  3.     If Not IsNull(Me.Combo2) Then
  4.         str = Left(Me.Combo2, 1)
  5.         If str = "2" Then
  6.             DoCmd.OpenForm "chn输入", acNormal, , , , , Me.Combo2
  7.         ElseIf str = "3" Then
  8.             DoCmd.OpenForm "top输入", acNormal, , , , , Me.Combo2
  9.         End If
  10.         Me.Visible = False
  11.     End If
  12. End Sub
复制代码
  1. Private Sub Form_Load()
  2.     If Not IsNull(Me.OpenArgs) Then
  3.         Me.Filter = "[S/N]=" & Me.OpenArgs
  4.         Me.FilterOn = True
  5.     End If
  6. End Sub
复制代码
[attach]49465[/attach]

作者: 若离ヘ不弃°    时间: 2012-6-22 16:30
Henry D. Sy 发表于 2012-6-22 15:20

太感谢了~~o(>_<)o ~~，那如果要能靠扫描进去的话要加点什么？好像有看到过要&&
作者: Henry D. Sy    时间: 2012-6-22 16:34
若离ヘ不弃° 发表于 2012-6-22 16:30
太感谢了~~o(>_

什么意思？
作者: 若离ヘ不弃°    时间: 2012-6-22 16:42
Henry D. Sy 发表于 2012-6-22 16:34
什么意思？

现在这个不能用扫描器扫描进去吧，之前看过一个帖子说要加东西的，具体的忘记了，还是现在就可以用扫描器了？现在不方便试那个
作者: Henry D. Sy    时间: 2012-6-22 16:43
呵呵，扫描器有说明书的。
作者: 若离ヘ不弃°    时间: 2012-6-22 16:44
Henry D. Sy 发表于 2012-6-22 16:43
呵呵，扫描器有说明书的。

我们公司那个早不知道去哪里了吧= =。谢了谢了我知道咋做了，下个礼拜继续奋斗~~o(>_<)o ~~
作者: 若离ヘ不弃°    时间: 2012-6-26 09:44
本帖最后由 若离ヘ不弃° 于 2012-6-26 10:14 编辑
Henry D. Sy 发表于 2012-6-22 15:20



[attach]49487[/attach]老大又要麻烦你了啊，能不能跳到对应的分窗体后
S/N I S/N DINEMA 这三个就直接显示的是前面S/N窗体中选择的对应DJ，MF08表中S/N I S/N DINEMA BOX N就是1-3列
并且是不可更改的
下面的PCB123467输入的数就对应到相应的表中去呢

或者直接做一个分割窗体的话能够对应起来吗

还有按照你给的代码，为什么在关分窗体的时候会说语法错误啊，求指教
作者: Henry D. Sy    时间: 2012-6-26 10:21
这样就不会
Forms![S/N].Visible = True
作者: Henry D. Sy    时间: 2012-6-26 10:23
并且是不可更改的

不可编辑的话你怎么输入其他字段的记录
作者: 若离ヘ不弃°    时间: 2012-6-26 10:27
Henry D. Sy 发表于 2012-6-26 10:23
并且是不可更改的

不可编辑的话你怎么输入其他字段的记录

窗体的话是可以分开锁掉的，如果做成分割窗体呢，能不能跳过来可以对应到相应的记录里面去
作者: 若离ヘ不弃°    时间: 2012-6-26 12:21
Henry D. Sy 发表于 2012-6-26 10:21
这样就不会
Forms![S/N].Visible = True

[attach]49488[/attach]
关掉的时候会跳出这个
作者: Henry D. Sy    时间: 2012-6-26 12:55
[attach]49490[/attach]帮你做个mf08窗体，另一个留给你自己做
在s/n输入2000401试试
作者: 若离ヘ不弃°    时间: 2012-6-26 13:12
Henry D. Sy 发表于 2012-6-26 12:55
帮你做个mf08窗体，另一个留给你自己做
在s/n输入2000401试试

嗯谢谢
作者: 若离ヘ不弃°    时间: 2012-6-26 13:33
Henry D. Sy 发表于 2012-6-26 12:55
帮你做个mf08窗体，另一个留给你自己做
在s/n输入2000401试试

老大那个mf8窗体中S/N PCB6\7 控件来源 为什么可以下拉选择的，我另外添进去的好像不太一样
作者: Henry D. Sy    时间: 2012-6-26 15:46
能下拉的组合框，不能的是文本框！26楼的MF08的例子中是文本框，不是组合框！
作者: 若离ヘ不弃°    时间: 2012-6-27 08:35
Henry D. Sy 发表于 2012-6-26 15:46
能下拉的组合框，不能的是文本框！26楼的MF08的例子中是文本框，不是组合框！

谢谢，做好了的\(^o^)/~
作者: 小猫1    时间: 2014-5-27 23:15
232222222222222
作者: 小猫1    时间: 2014-5-27 23:16
2122



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3