Private Sub Button10_Click()
On Error GoTo Err_Button10_Click
Dim DocName As String
Dim LinkCriteria As String
Msg = "Enter a Password ?"
Title = "System maintance password"
Defvalue = "1" ' Set default return value.
'answer = InputBox(msg...
hi,If u have enought time, try this
This is the way I do now. But I have 200 report need difference para.
Create a form
place a button.
Insert Button_click()
'If check_valid() = False Then Exit Sub
'Dim MainSQL As String
Dim TEMPSQL As String
Dim a_tmsql As...
1. In this form, for each button(e.g button1- button12) add tag=1 ...to 12
2. add a module
function display(a_month as string) as string
a_sql="select * from Response where month = '" & a_month & "'"
form."Response View".recordset = a_sql...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.