Search results

  1. L

    Encrypt with Password

    I am unable to put Encrypt with password because of its size; the computer freezes. I tried creating another database with only tblDocument, but it still want import--it freezes. The table imports just fine if there is no password on the database. I tried creating a new data and putting...
  2. L

    On No Data

    I have an Image21.Visible = No on the main report that I want displayed if there is no phone number for a record. On rsubTelephone report I went to On No Data and entered: Reports!rptCompanyProfile.Image21.Visible = True but it does nothing. Should I set this up another way?
  3. L

    Syntax error in query

    I need to create requery that will list all addresses from tbladdress with the company name. If there is no company name (due to blind ads), it should list the CompanyID. In Query1 I added this calculated field: Company: IIf(IsNull[qryCompanyNameDefault]![CompanyNameTitle]),"Company ID " &...
  4. L

    Concatenate multiple answers into one field

    First, let me say I may not be asking the correct question or the correct way. But, I have an unbound field that I want to populate with multiple answers into one. I want all the subsidiaries, aka, and fka to become one in to an unbound field separate by a semicolon. That is: ABC ABC123...
  5. L

    Error 3070

    I have an unbound search field on my form that I am using to search for a company name, but I keep getting the following error message: An error was encountered Description: The Microsoft Office Access database engine does not recognize 'CompanyNameTitle' as a valid field name or...
  6. L

    Before Update Code

    This code will undo my changes after displaying the message and then close the form, but all I want it to do is display the message and set the focus to the empty field. Below is the code: Private Sub Form_BeforeUpdate(Cancel As Integer) If Trim(cboTypeofAddress.Value & "") = "" Then...
  7. L

    Bookmark issue when on 1st record--Error 3159

    When I am on the first record on the list and I open the form to delete that record, upon closing the form I get Error Number: 3159--not a valid bookmark. Below is the code I am using: Dim bkMark As String If CurrentProject.AllForms("frmViewEventHistoryList").IsLoaded Then...
  8. L

    combo box question

    Is there a way to choose a number but display the text? That is, we have over a thousand records to enter; therefore, it would be easier for them to choose 1, 2, 3, 4 and so on instead of having to type the first few letters from a list, hit the down arrow and choose the correct one. The...
  9. L

    My code will not run

    I have an EventNote form that can be opened by clicking on the Note icon from another form or it can be opened when in EventDetail. I put the below code on the OK button: ' User wants to save and close the form If CurrentProject.AllForms("fdlgEventDetail").IsLoaded Then If Not...
  10. L

    Unexplained Error Message

    Sometimes I get the below error message when I open a form; I can't figure out what causes it; I have to close, compact db, and reopen until it goes away. The expression On Click you entered as the event property setting produced the following error: Object or class does not support the set of...
  11. L

    #Error in query

    #Error Query gets #Error when I hit Run! I am trying to say: 1) Check to see if Documenter.FileName is not empty 2) If it is not empty, look for DocumentTypeID 10 3) Display image icon Below is the code I'm using: EventJobListing: IIf(DLookUp("Documenter.FileName","Documenter","EventID...
  12. L

    Error # 3075

    When the below code runs and there is no data, I get Error #3075 -- Syntax error (missing operator) in query expression '[CompanyID] = And [ActivityID] = 1'. Public Function JobTotal(ByVal strActivity As Integer) As Integer JobTotal = DCount("[ActivityID]", "Event", "[CompanyID]= " &...
  13. L

    What's an alternative for DCount?

    I am using the below code to fill some information. I keep having write conflicts and Error 3188 with this form; therefore, I am wondering is there a better way of getting this information? Private Sub Form_Load() Me!txtAuthorizations = ActivityCount(1) Me!txtAttachments =...
  14. L

    query on a query not working properly

    qryTotals -- I am trying to display the total number of fields, so I built a query using other queries, but it is not totalling correctly. I want: 1. Total interviews per company 2. Total meetings per company 3. Total training per company along with other information. Do I join the...
  15. L

    If Then ElseIf code not working.

    I am trying to change from using three labels on my form to one label. 1. If this is a new record, the label will say “Add Attachment (y/n)?” and the text box will have a Default Value = Y. 2. If not a new record and Activity ID is not equaled to 1, 2, or 23 then the label will say “Add...
  16. L

    SetFocus code not working

    I am trying to say that if cboSource or cboWorkType is null, display a message and then go back to the field on the form that is null. Problem is, the form closes displaying the message. Below is what it is doing: 1. I hit OK button to close form 2. Message box displays saying cboSource is...
  17. L

    If Then Else code

    Is there a cleaner or shorter way of writing the below code? If Me.NewRecord Then Me.cmdDetails.Visible = False Else If Me.cboActivity = 3 Or Me.cboActivity = 12 Or Me.cboActivity = 13 Or Me.cboActivity = 16 Or _ Me.cboActivity = 17 Or Me.cboActivity = 18 Or...
  18. L

    Caption -- change using VBA

    Can you change the Caption property of a form while opening the form from another form? I know Me.Caption works. I am trying: Forms!fdlgEventNote!Caption but get this error message: Error Number: 2465 Description: Microsoft Office Access can't findthe field "Caption" referred toin your...
  19. L

    Default Value issues when opening form

    I have an add form called fdlgEventDetailAdd and an edit form called fdlgEventDetailEdit, which is different. Then I have a note field in a separate table called fdlgEventNote. I created three forms for the note field because of the Default Value, which are below: fdlgEventNoteAdd --- Default...
  20. L

    Max date from a concatenated field

    I separated my date field into three number fields for Month, Day, and Year. My query no longer works that I used to get the Max date for EventDate when it was one field. Below is the query: SELECT Event.CompanyID, Max(Event.EventDate) AS [End Date] FROM Event GROUP BY Event.CompanyID; How...
Top Bottom