字符串截示例
ACCESS 打开网页Private Sub cmdAccess_Click() Dim webAddreess As String Dim Web Set Web = CreateObject("InternetExplorer.Application") Web.Visible = True WebAddress = "http://www.accessoft.com" Web.Navigate WebAddressEnd Sub
ACCESS 执行子窗体SQL
Private Sub cmdClear_Click() Me.frmChild.SourceObject = "" '去掉系统警告 DoCmd.SetWarnings False '清空截取的字符值 DoCmd.RunSQL "UPDATE tblSizelist SET tblSizelist.size1 = Null, tblSizelist.size2 = Null, tblSizelist.size3 = Null;" '重新加载子窗体 Me.frmChild.SourceObject = "frmSizelist"End Sub
ACCESS 关闭子窗体
Private Sub cmdClose_Click() DoCmd.CloseEnd Sub
ACCESS 打开QQ 对话窗口
Private Sub cmdQQ_Click() Dim webAddreess As String Dim Web Set Web = CreateObject("InternetExplorer.Application") Web.Visible = True WebAddress = "http://wpa.qq.com/msgrd?V=1&Uin=56217686&Site=UMVsoft&Menu=yes" '打开QQ 对话窗口 Web.Navigate WebAddressEnd SubPrivate Sub Form_Load()'给窗体写上标题 Me.Caption = "实现字符串提取功能的示例"End Sub
ACCESS 截取字符
Private Sub cmdOK_Click() Dim RST As DAO.Recordset Dim strSize As String Dim strSizeB As String Dim x As Integer Dim y As Integer Me.frmChild.SourceObject = "" Set RST = CurrentDb.OpenRecordset("tblSizelist", dbOpenDynaset) RST.MoveFirst Do Until RST.EOF RST.Edit strSize = RST!OrderSize '获得第一个*号出现的位置 x = InStr(strSize, "*") strSizeB = Mid(strSize, x + 1) '获得第二个*出现的位置 y = InStr(strSizeB, "*") + x RST!size1 = Left(strSize, x - 1) RST!size2 = Mid(strSize, x + 1, y - x - 1) RST!size3 = Mid(strSize, y + 1) RST.Update RST.MoveNext Loop RST.Close Set RST = Nothing '重新加载子窗体 Me.frmChild.SourceObject = "frmSizelist"End Sub
页:
[1]