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!

Recent content by xeb

  1. xeb

    Code Skipping Section

    Why is the following code skipping this section... If strPasswd = "" Or strPasswd = Empty Then MsgBox "No password entered.", vbInformation, "Password Required" Exit Sub End If When I run it if you leave txtPassword blank you receive the "Sorry, you do not have access to the...
  2. xeb

    Is my Database secure?

    Sorry, but these issues are not something that I know enough about to help you. You should post them as a new question so you can get help from others.
  3. xeb

    Is my Database secure?

    Sorry, but I don't understand your problem.
  4. xeb

    Is my Database secure?

    Bypass" means to avoid, detour, evade, etc. In other words when you bypass you go around. These may help explain the shift key... http://www.techonthenet.com/access/security/enable_shift.php http://www.tek-tips.com/faqs.cfm?fid=143 I have no idea why Microsoft choose to have such a feature...
  5. xeb

    Is my Database secure?

    http://www.databasedev.co.uk/disable_shift_bypass.html I put the code behind a very small button in the bottom corner on my opening form. Then I just open the database, click the button, enter the password, and enable or disable the shift key as necessary. It's simple and works very well for...
  6. xeb

    Is my Database secure?

    Why can't you just set a password? (Tools-Security-Set Database Password) Also, it's very important to disable the shift key, which gives users access to everything even if you made other settings. Users who aren't familiar with the shift key option could easily find out about it on the Web...
  7. xeb

    Open Word Document Read Only From Access Form

    That works great! Thank you.
  8. xeb

    Open Word Document Read Only From Access Form

    Hi: From Access I'm opening a Word document with the following code. I want it to be Read Only without any message boxes, password boxes, etc. for the user. Just open as Read Only. Can this be done? Thanks, xeb Private Sub Command1_Click() Dim LWordDoc As String Dim oApp As Object 'Path...
  9. xeb

    Data Type Conversion Error 3421

    JerryKlmns: Thanks so much. It works fine now. Also, thanks for posting the code exactly how it should be. That is the difference between a good answer and a great answer for someone like me who is new at this. Thanks again, xeb
  10. xeb

    Data Type Conversion Error 3421

    Thanks for answering. I took "0" out as a default value in the table. How do I check for empty and if true then not include it in the fields to be updated?
  11. xeb

    Data Type Conversion Error 3421

    Thanks for answering. Me.TimeInI does have the CLEARME tag. They all do. Me.TimeInI is a Combo Box that posts Short Time. Me.TimeInI value when the error occurs is empty. It is not a required field. If you enter data in Me.TimeInI the error then occurs on Me.TimeOutI, the next one. Also...
  12. xeb

    Data Type Conversion Error 3421

    I keep getting Data Type Conversion Error 3421 on the following. Debug stops on !TimeInI = Me.TimeInI.Value. Also, I don't get the error when I open the database and save the first record. It happens only when I try to save the second record. Set db = CurrentDb Set rst =...
  13. xeb

    Run time error '3421'

    I keep getting Data Type Conversion Error 3421 on the following. Debug stops on !TimeInI = Me.TimeInI.Value. Also, I don't get the error when I open the database and save the first record. It happens only when I try to save the second record. Set db = CurrentDb Set rst =...
  14. xeb

    Open Different Form

    Zameer Abdulla: I've tried again for two days to get this to work but it won't. I've got the first part working that uses this code... Private Sub cmdTest_Click() If Me.AnswerField.Value = Me.txtAnswer.Value Then DoCmd.OpenForm "FrmMessage", , , , , , "Won" Else DoCmd.OpenForm...
  15. xeb

    Open Different Form

    Zameer Abdulla: I tried for several days to get your final suggestion to work but I can't. I'm sure it's just my inexperience with Access. Anyway, when I run it I keep getting the following two code items highlighted in yellow... .AnswerField .LabelMessage Thanks, xeb

Part and Inventory Search

Back
Top