vba代码编写求助！我做了一个窗体，想实现点击查询后能显示已经输入了的信息，同时按修改的时候能对已

access窗体的数据源为一个查询，想直接通过窗体输入数据，同时使得查询的记录也改变，求保存按钮VBA代码~

大概思路
使用docmd.runspl
执行insert into语句
插入记录到对应的表
然后执行窗体的requery事件即可。

有窗体，还要给出源数据的格式，最好截图
模糊查询 用FIND 或者like 比较符都可以
窗体上少一个数据输出控件，建议用listview 或者listbox。用于显示模糊查询到的内容

这个难度不大，我来试试吧，加我呢称。发附件来。
窗体代码如下：
Sub aaa()
Dim mrow As Long
mrow = Range("a65536").End(xlUp).Row + 1
Range("a" & mrow) = TextBox1.Value
Range("c" & mrow) = TextBox2.Value
Range("b" & mrow) = ComboBox1.Value
Range("d" & mrow) = ComboBox2.Value
Range("e" & mrow) = ComboBox3.Value
'Range("f" & mrow) = TextBox3.Value & "分" & TextBox4.Value & "秒"
Range("f" & mrow) = TextBox4.Value

If OptionButton1.Value = True Then
Range("g" & mrow) = OptionButton1.Caption
ElseIf OptionButton2.Value = True Then
Range("g" & mrow) = OptionButton2.Caption
ElseIf OptionButton3.Value = True Then
Range("g" & mrow) = OptionButton3.Caption
End If
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "男"
ComboBox1.AddItem "女"
ComboBox2.AddItem "博士"
ComboBox2.AddItem "硕士"
ComboBox2.AddItem "大学"
ComboBox2.AddItem "高中"
ComboBox2.AddItem "初中"
ComboBox3.AddItem "第一组"
ComboBox3.AddItem "第二组"
ComboBox3.AddItem "第三组"
ComboBox3.AddItem "第四组"
End Sub
Private Sub 查询_Click()
Dim mcol As Integer
Dim mrow1 As Long
mrow1 = Range("A:A").Find(TextBox1.Value).Row
TextBox2.Value = Range("c" & mrow1)
TextBox4.Value = Range("f" & mrow1)
ComboBox1.Value = Range("B" & mrow1)
ComboBox2.Value = Range("D" & mrow1)
ComboBox3.Value = Range("E" & mrow1)
If Range("G" & mrow1).Value = OptionButton1.Caption Then
OptionButton1.Value = 1
ElseIf Range("G" & mrow1).Value = OptionButton2.Caption Then
OptionButton2.Value = 1
ElseIf Range("G" & mrow1).Value = OptionButton3.Caption Then
OptionButton3.Value = 1
End If
End Sub
Private Sub 清空数据_Click()
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
OptionButton1.Value = 0
OptionButton2.Value = 0
OptionButton3.Value = 0
End Sub
Private Sub 添加_Click()
Call aaa
MsgBox "添加成功", 64
End Sub
Private Sub 退出_Click()
Unload UserForm1
End Sub
Private Sub 修改_Click()
Dim mcol As Integer
Dim mrow1 As Long
mrow1 = Range("A:A").Find(TextBox1.Value).Row
Rows(mrow1).Delete
Call aaa
MsgBox "修改成功", 64

---

奉化市15785416326： vba代码编写求助!我做了一个窗体,想实现点击查询后能显示已经输入了的信息,同时按修改的时候能对已 - ？
锐娄采乐： 这个难度不大,我来试试吧,加我呢称.发附件来.窗体代码如下:Sub aaa() Dim mrow As Long mrow = Range(＂a65536＂).End(xlUp).Row + 1 Range(＂a＂ & mrow) = TextBox1.Value Range(＂c＂ & mrow) = TextBox2.Value Range(＂b＂ & ...

奉化市15785416326： vba执行错误 弹出自己做的窗体 - ？
锐娄采乐： 按你的说法是直接粘贴代码而已,那就是没有插入用户窗体,你这代码第一段是初始化用户窗体的,窗体都没有,就更不用说上面的textbox1/textbox2等控件了.就代码来看,你有两个文本框控件和两个按钮控件,你插入用户窗体后,增加这些控件即可.你的按钮改名为一个叫进入系统,一个叫取消退出.

奉化市15785416326： 我在编写vba时,在一个工作簿book1的一个自定义菜单中设计了一个窗体,此窗体可以对工作表sheet1中的单... - ？
锐娄采乐： sheet2中的单元格如何获取: Workbooks(＂book2.xls＂).Sheets(＂sheet2＂).Range (＂A1＂) 获取book2和sheet2的名称 ActiveSheet.Name ActiveWorkbook.Name

奉化市15785416326： 用excel中的vba做了一个登录窗体,详见附件 - ？
锐娄采乐： 就是只想表示登陆窗体呗 假设窗体名是 UserForm1,只要在显示窗体之前加上 Application.Visible = False 就可以了 别忘了在最后关闭Application.Public Sub Auto_Open() Application.Visible = FalseUserForm1.ShowApplication.QuitEnd Sub

奉化市15785416326： 我用excel里的vba做了一个小程序,只有一个窗体,我想在打开excel时,直接弹出来这个窗体,可以吗? - ？
锐娄采乐： Private Sub Workbook_Open()窗体名字.ShowEnd Sub右键点随便一个表>查看代码>双击thisworkbook 复制以上代码 一打开文件就运行这个窗体

奉化市15785416326： 用VBA 代码生成窗体 窗体上建框架,框架上建标签 - ？
锐娄采乐： 你在VBA中随便增加一个窗体,默认的就行,这个是必须的,做为程序生成窗体的类 名称叫 UserForm2 然后用代码生成窗体 这段代码是放到其他窗体或模块中的,不能放到那个模板窗体中 Private Sub CommandButton1_Click() Dim F As New ...

奉化市15785416326： 在vba中做了一个窗体控件,里面还有控件按钮,当写入vba代码的时候是双击窗体,我想插入一个模块 - ？
锐娄采乐： 窗体名称.Show

奉化市15785416326： excel中VBA窗体代码,哪位高手帮解答一下!谢谢! - ？
锐娄采乐： 这个不是窗体代码吧,应该是sheet里面的代码吧 ATL+F11打开编辑器,比如要把这个代码给sheet2用就点到sheet2的代码窗口里加入代码就可以了,直接复制粘贴就可以了. 你的这段代码应该是sheet内容发生变化的时候会触发一定的事件.

奉化市15785416326： 近日使用VBA,编写了一个小软件.用了如下方法对窗体、工作表和从窗体返回Excel做了保护,不知是否管用? - ？
锐娄采乐： 给你看片文章你就知道不管用了.如果我把宏禁用了,然后用一下方法破解工程密码,你所有的密码、隐藏工作表,我都可以得到并显示出来------------------------------------------ EXCEL工程密破解,以下方法十分有效的帮你打开VBA工程密码保护...

奉化市15785416326： EXCEL窗体查询的VBA代码 - ？
锐娄采乐： 最简单的方法 录制宏 然后手动插入这些控件 然后按Alt+F11察看宏 自动生成的VBA代码就有了如果LZ学过VB的话 编写起来就非常简单了 VBA完全几乎就是VB的代码 只是应用在Excel上了 -