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 bkrike 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: Ragah21
  • Content: Threads
  • Order by date
  1. Ragah21

    Compile Error

    I have Compile Error on "open" Private Sub Command16_Click() Dim qdfCurr As DAO.QueryDef Dim strPrompt As String Dim strSQL As String Dim Crei As String 'Input the random number of Year you want access 'by changeing the Step1_Member_Status query strPrompt =...
  2. Ragah21

    Open Forms

    I have form-one, that have ID field plus names. I open form-two by command in form-one, i would like only records that have the id in form-one with other fields such as comments. Now All comments show assoiciated with ID in form-one. Thanks
  3. Ragah21

    Update

    I have a field called A, when somone update the B field, I would like the A field get updated. Note: A is text, B is Date, RequestID is Autonumber I wrote the below code but nothing is happening when i update the Submite Date field. :( Private Sub B_AfterUpdate() Dim strSQL As String Dim...
  4. Ragah21

    Format Date

    I have a prompt text box, and I would like a person to enter Month & Year (eg, 022007) Instead of Month only! I tried to use the fromat date but it didnt work. The code Below: Public Sub Which_Year(ByVal strANDClause As String) Dim qdfCurr As DAO.QueryDef Dim strPrompt As String...
  5. Ragah21

    Use Input Box Value as Creteria

    I have the follwoing code: and I would like the month that is passed by the input box be used in the second function as creteria. Public Sub Which_Month() Dim qdfCurr As DAO.QueryDef Dim strPrompt As String Dim strSQL As String 'Input the number of month you want access 'by...
  6. Ragah21

    Recordset

    i need some help to correct the below code. Public Sub Check_Records() Dim dbs As DAO.Database, qdfCurr As DAO.QueryDef, rst As DAO.Recordset, strSQL As String Set dbs = CurrentDb If QueryDefs("NAMEOFMYQRY").Recordset.RecordCount = 0 Then MsgBox "There are no records...
  7. Ragah21

    2 list boxes used as creteria

    I have 2 list boxes that I need to use as my creteria to run a report from a query. The code below worked for the first list box, how can I add the second as part of my cretieria? Note, the first list box contain NAME, and the second list box contain STATUS Thanks Private Sub...

Part and Inventory Search

Back
Top