Recent content by BBBryan

  1. B

    shorter way to write an If, then, else statement in VBA.

    Thanks Guys, I do have the same text info in each report, different name, but the big difference is I have 3 pictures of each persons signature. I couldn't get get it to work by adding the pictures from a dropdown and using one report. when I add in Pictures from my dropdown the picture doesn't...
  2. B

    shorter way to write an If, then, else statement in VBA.

    Thanks pbaldy, I see what you mean on the last one I would just put Else DoCmd.OpenReport "PITP Piping (LetterSizePort) BLANK Rp", acViewPreview. And yes I did have End if. I must have missed it when copied the code. Thanks BBryan
  3. B

    shorter way to write an If, then, else statement in VBA.

    After re-reading your suggests. I think I may have not All of the code in. Just where i wanted to shorten the code. I have a button on my form that when I click on it depending on the name I what it to open a certain Report. Here is the full code. Private Sub Item_DblClick(Cancel As Integer)...
  4. B

    shorter way to write an If, then, else statement in VBA.

    Thanks plog, As you suggested I still am not sure how to link a query to this statement. I have a table with these people and I can Add a check mark and make a query. As for the logic ... This is the only way I know who to do this. the short story is If the textbox is blank or these people are...
  5. B

    shorter way to write an If, then, else statement in VBA.

    Hi All, I have an If, then, else statement in VBA. Is there a different shorter way to skinny the wording in VBA LIke useing IN (.., ...., ...., ) ect I have this but I have to add a whole bunch more names into it. ElseIf Parent![QAPerson] = "" Or Parent![QAPerson] <> "Bryan" Or...
  6. B

    AddImage from lookUp dropdown

    Hi All, If someone can help. I have a lookup table which stores QAPersonLookUpTbl QAPersonID - AutoNumber QAPerson - Text QAPersonSignature - OLE Object (this is a BMP filePicture) QAPersonInitial - OLE Object (this is a BMP filePicture) I have a table Review Tbl ReviewID...
  7. B

    Button to go to desktop from form

    I tried these and it doesn't work Application.FollowHyperlink "C:\Users\" & Environ$("UserName") & "\Desktop\" Application.FollowHyperlink Environ$("UserName") & "\Desktop\" Application.FollowHyperlink "C:\Users\" & Environ$("UserProfile") & "\Desktop\" But this works...
  8. B

    Button to go to desktop from form

    I tried this Application.FollowHyperlink Environ$("BBryan") & "\Desktop\" And This Application.FollowHyperlink Environ$(BBryan) & "\Desktop\" And it didn't work... Thanks BBryan
  9. B

    Button to go to desktop from form

    Yes I copied and pasted it and I do see username. Not sure why it is not working.... After looking on the internet for something else I just found this. And It works..... Application.FollowHyperlink Environ$("UserProfile") & "\Desktop\" Thanks All for your help. (I will need it again) Thanks...
  10. B

    Button to go to desktop from form

    Hi Gasman, Thanks I just tried it again. Still doesn't work. I am on windows 8.1 if that matters. Thanks BBryan
  11. B

    Button to go to desktop from form

    Thanks Namliam, I will read up on shell. I am not to familiar with it. It looks like it could be useful for me. BBryan
  12. B

    Button to go to desktop from form

    Thanks All, Sorry I still can't get the desktop to pop-up. This one shell("explorer.exe C:\Users\" & environ("UserName") & "\Desktop") put the documents Folder minimized on the task bar. Not sure how to use the other code you sent... from my button. Thanks BBryan
  13. B

    Button to go to desktop from form

    Hi Encarta, Thanks I am using that one but it would still not be my first choice. If there was something like " & environ("UserName") & " that could retrieve the computor name that would work better for me. (And the " & environ("UserName") & " gave me an error see above). I want it so it is a...
  14. B

    Button to go to desktop from form

    Hi All, Thanks this one again I get an run time error 490 cannot open specified file Application.FollowHyperlink "C:\Users\" & environ("UserName") & "\Desktop\" This one works CreateObject("Shell.Application").MinimizeAll But I really wanted to keep the database open and bring up the desktop...
  15. B

    Button to go to desktop from form

    Thanks for the help. On this one I get an error method or member not found Application.DoCmd.Minimise It is blue on the .Minimise Also on this one Application.FollowHyperlink "C:\Users\" & environ("UserName") & \Desktop\" I get an compile error syntax error and it shows the whole line in blue...
Back
Top Bottom