Search results

  1. S

    looping listboxes

    Describe the columns in this list box. Or email me the database.
  2. S

    looping listboxes

    Private Sub Hrs_Calc() Dim i As Integer Dim JHrs As Double For i = 0 To lstResults.ListCount - 1 JHrs = JHrs + lstResults.Column(1, i) 'assumes the data you are looking for is in column 1 (the 'second column in the list box) Next Job_Hrs = JHrs End Sub
  3. S

    Spellcheck on a form

    Create a new button on your form. In its OnClick event, paste the following: DoCmd.RunCommand acCmdSpelling Good luck!
  4. S

    Common Dialog Initial Directory

    I too am having trouble with the OCX. Pat, can you provide guidance for using the API?
  5. S

    Anyone with a minute to Troubleshoot my database?

    Send it on over. I'd be glad to help.
  6. S

    Problem

    Sub SearchField() Dim db As DAO.Database Dim tbl As DAO.TableDef Dim fld As DAO.Field Dim strField As String Dim boolExists As Boolean Set db = CurrentDb Set tbl = db.TableDefs(InputBox("Please enter table name:", "Table To Be Searched")) strField = InputBox("Please enter the field name you...
  7. S

    Loops

    Try this... 'BEGIN CODE' If Send = False Then MsgBox "Please select users" Exit Sub End If Dim NameSpace As Object Dim EmailSend As MailItem Dim EmailApp As Object Set EmailApp = CreateObject("Outlook.Application") Set NameSpace = EmailApp.GetNamespace("MAPI") Set EmailSend =...
  8. S

    Login form

    You can email me if you like. I think I can help.
  9. S

    Selecting Text

    Look for help on SelLength.
  10. S

    Multiselect Listbox

    Adding "All" to the combo box is no small feat. Why not add a button or something that will select all records for you? In the Click event of the button: Dim i As Integer For i = 0 To ListBoxName.ListCount - 1 ListBoxName.Selected(i) = True Next If you're still interested in adding...
  11. S

    Formatting text box numbers

    Why not divide the given number by 1 million and then add some text to it. If txtNumber holds 2500000. The following code will return 2.5 Million in a text box called txtMillions. txtMillions = txtNumber / 1000000 & " Million"
  12. S

    Usr Level Security for forms

    Check your email.
  13. S

    Select All In List Box

    'Place in AfterUpdate (or Click) event of check box Dim i As Integer If CheckBoxName = True Then For i = 0 To ListBoxName.ListCount - 1 ListBoxName.Selected(i) = True Next End If
  14. S

    SQL in VB ?

    Is this a VB app or an Access app (VBA)?
  15. S

    Calculation Problem

    Look up the Nz() function.
  16. S

    Login Screen

    DoCmd.Close acForm, "Pop-up Form Name"
  17. S

    Compile Error: can't find project or library

    Yes. This is a problem with references. If you ask your client to open the db with the SHIFT key down. Then go to design of any module (or code behind any form) and go to Tools>>References A dialog box will appear showing all the references. There will be one or more with checks next to...
  18. S

    Determine if Project is installed

    Travis, Thanks for the reply. True for Office apps, not for MS Project. Any other suggestions?
  19. S

    Fire event with table only

    Is it possible, in Access, to fire an event when a record is inserted into a table? I know I can do this via a user form, but without a form?
  20. S

    Determine if Project is installed

    I am building an application that has the ability to export some data to MS Project in order to produce a Gantt chart view of a set of records. In order to do this, the database must have a reference set to the MS Project object library. This works beautifully on my machine, but I'm afraid...
Back
Top Bottom