请帮助看看我想提取"G"字母后面的空格后面的两位数字

yanwei82123300

COMP_DESC：
MODULE,PWR G01 14-00
MODULE,PWR G01 14-00
MODULE,PWR G01 14-00
MODULE,PWR G01 14-00
MODULE,PWR G4 16-11
ASSY,PWR G2 12-11*W/JSCR*
MODULE,PWR G3 20-00
结果：

14
14
14
16
11
20

sxgaobo

Mid([desc],InStr([desc],"-")-2,2)

aslxt

楼主的数据或许应该这样描述：提前字符串中第二个空格后面的两位数字？
前面的字符没有"G"出现的可能？

yanwei82123300

上面是物料的描述描述都包括G字母

sxgaobo

应以字符串中唯一的字符为判断条件啊！你那字符串中好多字母，万一重复出现G就乱套了啊！

koutx

为万全起见，先排除你第一个空格前可能有的字母G。并假设第一个空格后只有一个字母G，可用如下sql查询语句：
"SELECT Mid(Mid([desc],InstrRev([desc],'G')),InStr(Mid([desc],InstrRev([desc],'G')),' ')+1,2) FROM itemdetail"

koutx

还是都写出来吧：
Sub zfxq()
Dim str As String
str = "SELECT Mid(Mid([desc],InstrRev([desc],'G')),InStr(Mid([desc],InstrRev([desc],'G')),' ')+1,2) FROM itemdetail"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open str, CurrentProject.Connection, adOpenStatic, adLockReadOnly
Do While Not rs.EOF
Debug.Print rs.Fields(0)
rs.MoveNext
Loop
End Sub

yanwei82123300

谢谢大家的帮助，请问koutx 老师您写的Sub zfxq()这个自定义函数放到哪里？是模块中吗？还是窗体中，谢谢

koutx

yanwei82123300 发表于 2013-3-15 08:11
谢谢大家的帮助，请问koutx 老师您写的Sub zfxq()这个自定义函数放到哪里？是模块中吗？还是窗体中，谢谢

如果只在某一个窗体用到此Recordset，就放在此窗体中。如多个窗体中用，就放在模块里了。

roych

yanwei82123300 发表于 2013-3-15 08:11
谢谢大家的帮助，请问koutx 老师您写的Sub zfxq()这个自定义函数放到哪里？是模块中吗？还是窗体中，谢谢

把里面的SQL语句换成查询就是了。没必要那么麻烦。