关于一系列问题....望予解决?

katercn

1.如何设置命令按钮将指定表的全部数据导出为excel?

2.如何使用命令按钮来删除指定表的所有内容?

3.如何做命令按钮的快捷方式?

4.姓名为必输字段,在空字符的情况下进行添加或保存操作,提示信息是自己设置的,而并非

  ACCESS软件提示的一长串信息!应该如何写?

5.利用窗体输入数据到表1,当完成表1的数据输入后,如何再新建表2利用同一窗体向表2

  输入数据(表1与表2的所有字段完全相同),依此类推,表3,表4..........

请各路大虾帮忙解决啊....谢过!  不会嫌我问题多吧,呵呵,我想都不会的啦!

wuping800223

1、Private Sub Btn_export_Click() 'Btn_export是我程序中的导出的按键

On Error GoTo Err_Btn_export_Click:

Dim MyExcel As Object

Dim MyBook As Object

Dim MySheet As Object

Set MyExcel = CreateObject("Excel.Application")

Set MyBook = MyExcel.Workbooks.Add

Set MySheet = MyBook.Sheets(1)

Dim i As Integer

With MySheet

For i = 1 To Rs.Fields.Count 'Rs是我在事先声明的数据集

    With MySheet.Cells(1, i)

        .Value = Rs.Fields(i - 1).name

        .Font.ColorIndex = 2

        .Interior.ColorIndex = 55

        '.Interior.Pattern = xlSolid

    End With

Next i

.Cells(2, 1).CopyFromRecordset Rs

End With

Err_Exit:

MyExcel.Visible = True

Set MySheet = Nothing

Set MyBook = Nothing

Set MyExcel = Nothing

Exit Sub

Err_Btn_export_Click:

Beep

MsgBox Err.Description, 48, Me.Caption

GoTo Err_Exit:

End Sub2 、我用循环一条条删除的do until Rs.eofrs.deleters.updateloop也可以SQL语句3、快捷方式在按钮的CAPTION属性中加上&[快捷键]，比如caption="打开&O",即按ALT+O是快捷方式4、可以先查看报错时的Err.Number值，比如其值是<value>

用如下代码:

on error goto Err_Btn_Save:

保存代码

exit sub

Err_Btn_Save

if Err=<value> then

beep

msgbox "姓名不能为空"

姓名控件.setfoucu

end sub5、要编的程序太长，主要是要修改窗体的RecordSource 属性我的邮箱是WP800223@163.COM

zipgirl

问题1的解决方法非常好，不过你得告诉那朋友引用MS OFFICEOBJECT9何不用DOCMD.OUTPUTTO啊？反正他是全部导出耶[em07]