求帮助：利用窗体条形码按条件输入到表

若离ヘ不弃°

/
附件我更新了下，就是在窗体一中有下拉选项，S/N是唯一的，选择一个S/N可以跳掉相应的窗体中，并且进行输入，S/N是不可以输只可以选择的，pvb1\2\3\4现在为空白，都是要通过界面输进去的，不知道这样明白了没，我语言表达能力不行~~o(>_<)o ~~

Henry D. Sy

是不是根据sn的第一个字判断所在的表名

Henry D. Sy

是不是这个意思

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

复制代码

若离ヘ不弃°

Henry D. Sy 发表于 2012-6-22 14:50
是不是这个意思

是了，就是跳过去之后希望CHN输入的S/N也显示这个选择的，并且输入的pvb1/pvb2能够更新到下面的数据，帮主威武啊

Henry D. Sy

若离ヘ不弃° 发表于 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

复制代码

若离ヘ不弃°

Henry D. Sy 发表于 2012-6-22 15:20

太感谢了~~o(>_<)o ~~，那如果要能靠扫描进去的话要加点什么？好像有看到过要&&

Henry D. Sy

若离ヘ不弃° 发表于 2012-6-22 16:30
太感谢了~~o(>_

什么意思？

若离ヘ不弃°

Henry D. Sy 发表于 2012-6-22 16:34
什么意思？

现在这个不能用扫描器扫描进去吧，之前看过一个帖子说要加东西的，具体的忘记了，还是现在就可以用扫描器了？现在不方便试那个

Henry D. Sy

呵呵，扫描器有说明书的。

若离ヘ不弃°

Henry D. Sy 发表于 2012-6-22 16:43
呵呵，扫描器有说明书的。

我们公司那个早不知道去哪里了吧= =。谢了谢了我知道咋做了，下个礼拜继续奋斗~~o(>_<)o ~~