Search results

  1. M

    Password protect a form

    You can mess about with what is displayed, but its quite simple. Hope this helps - code below Dim stDocName As String Dim stLinkCriteria As String Dim PassWordtxt PassWordtxt = InputBox("Please Type in password") If PassWordtxt = "password" Then stDocName =...
  2. M

    searching for a date

    in a query you could format the date field to only display the months name, so 02 = February. SELECT Format([DATE_FIELD],"mmmm") AS Expr1 FROM TABLE_NAME; or Expr1: Format([DATE_FIELD],"mmmm") Then instead of doing a filter for Like "*/02/*", you would filter for February. Does this help...
  3. M

    Graphs show on screen but don't print out

    I think it is a printer issue, you may be running out of memory. Have you tried printing the graphs that do not print, on a seperate report to see if they actually do print? If they do then it will be more then likely a printer problem. If you have more then one printer in you office etc...
  4. M

    Changing value of a field on update

    I believe you can use the On_Dirty procedure to do this. I use A97, and does not have this event, so i have not tested it - and believe it to do what you want. If you put your code into this event, which would be something like:- FIELD_NAME = Date I hope this helps, and work for you. If not...
  5. M

    Input Mask question

    if you use this code, all that you owuld have to do is change FIELD_NAME to your field name within your form. Private Sub FIELD_NAME_AfterUpdate() RemoveSpaces (Me.FIELD_NAME) End Sub Function RemoveSpaces(ByVal AlphaNum As Variant) Dim Clean As String Dim Pos, A_Char$ Pos = 1...
  6. M

    M8KWR here I am with that question and file.

    its quite easy all i did was refer the report to your ID number which was "Complaint Number". in the report if you go into the Record Source (which will look like a normal query) if you click on the 3 dots to the right of the line. You will see under the "Complaint Number" i have typed...
  7. M

    M8KWR here I am with that question and file.

    Hello there Ok what i have done is created you a preview button on the form. this is linked ot the table1 report, hope this is ok. You can see what i have done, if you view the record source of the report, and then you can copy that across to other report etc. If there is anything else...
  8. M

    Input Mask question

    I do not know the input mask to not except spaces, but i do know a procedure that when the user moves of the field it would take the spaces out...
  9. M

    Show Contact Name Unique to Supplier

    It does make sense. OK here what to do in the form "frmSuppliers" add the following code: - Private Sub Form_Load() Me.frmSupplierContacts.Form.AllowAdditions = True End Sub If you have changed the form frmSupplierContacts allow additions back to Yes then change it to No. So when the...
  10. M

    Show Contact Name Unique to Supplier

    i have update both of the tables with want you wante, but to know what i have done its quite simple, in the frmSupplierContacts i changed Allow additions to "No" In the other form I added contactID.requery to the afterUpdate procedure of the SupplierSelection combo box Hope this helps.
  11. M

    Help with Data in one field #deleted

    i used to have the issue when i did have record locks, and now i have turned them off, and have had no issues since. I use A97... Sorry i can not give me an answer either way..
  12. M

    Help with Data in one field #deleted

    i have had this issue before, and i always was lead to believe that the line in the table is corrupt. The way i fixed it was to re-create the line, with a new line and then it should be ok. Sorry i could not be more help.
  13. M

    Password protect a form

    Is there a way to password protect a form. This is due to me having to send a mdb file, because i use A97 and the other end use A2000. I tried sending the mde file but they could not convert it etc. But i want to stop them getting into the code, you know how protective we are. I want to hard...
  14. M

    Sample project given

    if you could re-attached the db in A97 format, i can see if i can help you
  15. M

    NotInList go to New Record

    Make sure that you combo box property "Limit to list" = Yes I have tried it but i am getting errors to try and make it go to a new records, but i am using A97 and code and not a macro. So it may work for you. But you can not use the NotInList command unless this property is Yes Hope this helps.
  16. M

    message / popup message box in access forms

    use the following code: Private Sub Column_A_AfterUpdate() Column_C = Column_B - Column_A If Column_C >= 14 Then MsgBox "Over 14 days" End If End Sub Private Sub Column_B_AfterUpdate() Column_C = Column_B - Column_A If Column_C >= 14 Then MsgBox "Over 14 days" End If End Sub I...
  17. M

    Tab control not appearing in form view

    If you place a control out of the tab control, does it display that???? I am assuming that there is no code in the form. Have you tried creating a new form, placing a tab control and viewing the form quickly to see what is happening. If you have another pc with access, copy the file over to...
  18. M

    Stock Movement Report

    i would need a bit more info in order to help you. Is it possible for you to post an access file so I can see you table layout, and if you could leave some sample data in there it would help, the i could design the queries and reports for you, and re-post it back to you. Hope this helps.
  19. M

    Tab control not appearing in form view

    the visible property is saying Yes and not NO.
  20. M

    Like wildcard w/ field from another table

    A bit unsure what exactly it is you are trying to do, but enclose what you are trying to search for with a * each side like the statement below. WHERE (((dbo.Contacts.Email ) Like "*dbo.Domains.DomainName*")); hope this helps..
Back
Top Bottom