Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: macgood31
  • Order by date
  1. macgood31

    Password

    sorry for getting back to late. Did u make it ok?
  2. macgood31

    Password

    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...
  3. macgood31

    Report and Query Parameters

    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...
  4. macgood31

    Report and Query Parameters

    Try this.. SELECT ... FROM ... WHERE ... (Format([Field_With_Date],"mm/dd/yyyy"))=[The_date]);
  5. macgood31

    Viewing Forms with command buttons

    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...

Part and Inventory Search

Back
Top