查询某月里有哪些单号

shalisi

魂断蓝桥 发表于 2018-6-22 14:14
窗体控件 两个复合框，然后选择年月后，确定

Private Sub UserForm_Initialize()

老师，如果新建一个Sheet1，  把按键和 显示的位置放在Sheet1是怎么改？



Private Sub 确定_Click()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then Exit Sub
Dim cnn As Object
Dim Sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select distinct 单号 from [数据库$A1:J] WHERE  FORMAT(录单日期,""YYYYM"")='" & Me.ComboBox1 & Me.ComboBox2 & "'"
With Sheet1
[x:x].ClearContents
[x2].CopyFromRecordset cnn.Execute(Sql)
End With
cnn.Close: Set cnn = Nothing
End Sub

shalisi

魂断蓝桥 发表于 2018-6-22 14:14
窗体控件 两个复合框，然后选择年月后，确定

Private Sub UserForm_Initialize()

老师，如果新建一个Sheet1， 把按键和 显示的位置放在Sheet1上怎么改？ 我老是改不好。

Private Sub 确定_Click()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then Exit Sub
Dim cnn As Object
Dim Sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select distinct 单号 from [数据库$A1:J] WHERE  FORMAT(录单日期,""YYYYM"")='" & Me.ComboBox1 & Me.ComboBox2 & "'"
With Sheet7
[x:x].ClearContents
[x2].CopyFromRecordset cnn.Execute(Sql)
End With
cnn.Close: Set cnn = Nothing
End Sub

lsdongjh

shalisi 发表于 2018-6-22 16:14
老师，这里       strPath = ThisWorkbook.FullName '设置工作簿的完整路径和名称
    Select Case Appl ...

这里根本不用改的，自动判断运行的

lsdongjh

查询单号.rar (22.73 KB, 下载次数: 5)

2018-6-22 17:25 上传

点击文件名下载附件

shalisi

lsdongjh 发表于 2018-6-22 17:25

好的，谢谢!!

shalisi

lsdongjh 发表于 2018-6-22 17:22
这里根本不用改的，自动判断运行的

谢谢，下午忘记加按键，以为是选择年月后就会自动显示！