模糊查询中，文本框录入中去掉开头字母"P"，

gemeng　发表于：2013-03-28 18:23:04 　

复制

表的内如如下：

ABC123456

HTC456789

JJJ555666

等不规则字母+数子组合。

图片（1）

这个示例我进行了修改，想让扫描枪扫条码录入信息。

但是扫描枪扫出来的信息都会在开头默认一个"P"子母，（且手工输入的时候是不会带”P”的），请问扫入信息的时候如何将这个'p"去掉呢？

图片（2）

如果这样就失去模糊查询的意义了，这样这里也是模糊查询呢

'If DCount("*", "文件处理表", "[文件编号]='" & Me.[txtCode] & "'") <= 0 Then
' MsgBox "库位没有此编号，请重新确认！", vbCritical, "警告"（这里可以不需要提示，直接在另一个文本框内提示，）
Me.cmdfind.SetFocus
'End If

'On Error Resume Next

请师父们帮忙了！罗嗦了一点！

附件：附件

Top

gemeng 发表于：2013-03-29 12:59:32

不知道为什么没有人来回答我？

是因为我模糊不清的问题呢还是什么？大家看看能不能帮我解决第一个问题，去掉P

我再描述一下，比如：

手工输入：ABC123

扫描仪输入：PABC123 (多个P就查询不到表内容了，就要在录入的时候去掉它）

我琢磨了一下：

rivate Sub txtCode_AfterUpdate()
Select Case Left(Me.txtCode, 1)
    Case A To B “(怎么才能表达这里从A到Z之间的字母，不包含"P"字母呢)
        Me.txtCode = Me.txtCode
    Case Else
        Me.txtCode = Mid(Me.txtCode, 2)
    End Select

哎！不懂编程的菜鸟真累啊！

Top

jia 发表于：2013-03-29 13:26:41

去掉第一位字母

Private Sub Text43_AfterUpdate() '

Select Case Left(Me.Text43, 1)

Case 0 To 9

Me.Text43 = Me.Text43

Case Else

Me.Text43 = Mid(Me.Text43, 2)

End Select

End Sub