accessVBA如何实现文本框保留历史操作记录? access用vba导出表
VB文本框怎样保留之前命令的内容?
Private Sub Command1_Click()
Text1 = "结果1"
End Sub
Private Sub Command2_Click()
a = "结果2"
Text1 = Text1 & a
End Sub
VB中怎样设置将文本框中的数据保存下来?
这个方法可以利用API函数读写配置文件实现,参考例子如下:首先申明API:Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 将Text1的内容保存到E:\a.ini中:
Private Sub Command1_Click()
WritePrivateProfileString "UserName", "User", Text1.Text, "E:\a.ini"
End Sub 将E:\a.ini的内容读取到text2中Private Sub Command2_Click()
Dim inistring As String
inistring = Space$(254)
GetPrivateProfileString "Username", "User", "", inistring, 255, "E:\a.ini"
Text2.Text = CStr(inistring)
End Sub
如何让access窗体保存记录后自动新建记录
只需要一个按钮即可,这个按钮执行一项两条命令:(单引号后面为说明,插入命令时可以省略)
DoCmd.RunCommand acCmdSaveRecord ‘保存当前记录
DoCmd.GoToRecord , "", acNewRec ’新建新的纪录
vb中如何保留文本框中输入的内容
Text1.Text = Text1.Text + InputBox("请输入内容")
这样就可以实现你的要求