Office中国论坛/Access中国论坛

标题: 一个文本框和一个命令按钮的vba脚本问题 [打印本页]

作者: aser 时间: 2007-1-8 22:03
标题: 一个文本框和一个命令按钮的vba脚本问题
是这样，我要做一个窗体，窗体中有一个文本框和一个按钮，文本框中可以输入一个长字串，达到这样的目的：对输入的字串进行分段选取，然后存入到一个表中的不同字段中去。
下面的代码是asp实现的脚本,我现在就是希望在access窗体里用一个文本框和命令按钮来实现.但我对vba不懂
不知用VBA如何实现？望高手们赐教！

asp实现脚本:
<table width=100% border=0 cellpadding=3 cellspacing=0 align=center><tr><td>
<form name=a1 method=post action=''>
<tr><td><input name=Char type=text size=50 value='010761199604025817131123c0602931'>
<input type=submit name=Act value=提交></td></tr></form>
</table>

<%
Char = Trim(request.form("Char"))
if Char<>"" then
Str = len(Char)
Str = Str-11-5-2-6
Str1 = Mid(Char,12,5) '12到16
Str2 = Mid(Char,19,6) '19到24
Str3 = Mid(Char,27,Str) '27以后
Str4 = "20" & Left(Str2,2) &"/"& Mid(Str2,3,2)'Right(Str2,2)

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
db="DB_txm.mdb" '数据库文件位置
conn.Open "DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set opendb = conn

Sql = "Insert into tab_str (char1,char2,char3,char4) values ('"&Str1&"','"&Str2&"','"&Str3&"','"&Str4&"')"
response.write Sql
conn.execute Sql
conn.close
set conn=nothing
end if
%>

我对于vba环境不懂。不知可否请哪位兄弟，辛苦写详细点：
Private Sub Command2_Click()

End Sub

他们中间如何写，我不知道。我就弄了个文本框，起了个名字为char，命令按钮名字为Command2。多谢了，好兄弟！

作者: Joe5525601 时间: 2007-1-9 00:24
asp与vba写法有些类似,只是ado和mdb路径要改一下.下面作为参考(文本框名改了text0,红色的估计原文写错了):
Private Sub Command2_Click()
strchar = Trim(Me.Text0)
If strchar <> "" Then
lstr = Len(strchar)
lstr = lstr - 11 - 5 - 2 - 6
str1 = Mid(strchar, 12, 5) '12到16
str2 = Mid(strchar, 19, 6) '19到24
str3 = Mid(strchar, 27, lstr) '27以后
str4 = "20" & Left(str2, 2) & "/" & Mid(str2, 3, 2) & "/" & Right(str2, 2)

Dim conn As New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0;"
conn.ConnectionString = 这里写mdb文件的绝对路径 & "\DB_txm.mdb"
conn.Open
SQL = "Insert into tab_str (char1,char2,char3,char4) values (" & """" & str1 & """" & "," & """" & str2 & """" & "," & """" & str3 & """" & "," & """" & str4 & """" & " )"
conn.Execute SQL
conn.Close
Set conn = Nothing
End If
End Sub

作者: aser 时间: 2007-1-9 06:12
标题: 谢谢2楼的兄弟
感谢二楼的兄弟.
兄弟,哪天方便,找个地方,我请饭呀!
你发来的代码,我用用,相信有效果.再次谢!谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)