This is the last of my finishing touches on this project!!!
When the approve or revise button is clicked in the database, a file will move from one location to another, I want to stop this from happening if a file already exists but I do not get an error window to pop up to tell me a file...
Ok... remember I said you need to be patient, well I didn't know what <> meant so it took me awhile to figure it out. (don't laugh, I've never written code before!) Now that I know what it means I went with Andrzejek solution! Thank you everyone!!!
Hello Everyone! How are you doing? I am very new at writing VBA code (first time ever!) Please be patient with me...
I need to create a section in my Private Sub where my approve button will only work when the Revision for each drawing includes "Rev" This is what I have and it is not...
I just posted this on another thread and I thought it needs to be in both places.
You are correct! I am asking for help and I don't use it. Truth is I am very new to VBA. I got thrown into a project at work with no training or experience and I am trying to get through it. I really do...
You are correct! I am asking for help and I don't use it.
Truth is I am very new to VBA. I got thrown into a project at work with no training or experience and I am trying to get through it. I really do appreciate all the help I am receiving on here! I will try the advice from AceMan again...
I changed it back to my original code and my table is updated with the letter A everytime. I can't get the second DLookup to use the new revision and reference the correct letter from that.
Thanks for all your help.
Thank You randy700. I made the changes you suggested but I am getting this error message : Run-time error '2456': Application-defined or object defined error. When I click to debug the following code is highlighted
NewRev = Dlookup("Number", "tblRev", "Revision ='" & Forms!frmMain.Revisions &...
How do I write code to figure out how to recognize the characters before the "-" symbol. If my part is 301-001 I need to capture the 301 if the part is BBLNK-001 I need to capture BBLNK. This is what I have but it only works for the first three characters.
Dim strDwgNumb As String
Dim strRev...
I am very new at writing VBA code and I can't figure out why this is not working. When the approve button is clicked the revision letter that is in the main table needs to index by one. The revision letter must always be letters. I have a seperate table in Access called TblRev that references...
I am sorry but I forgot to tell you what I get... Everytime I click on the Approve button it changes my revision to 2. I need the revision to be a letter and I need it to index by 1.
Thank you again everyone!
Thank you everyone for your input!
I am very new at writing VBA code and I can't figure out why this is not working.
I decided not to use the ASCII code so I created a seperate table in Access called TblRev that references the number to the correct revision letter (example 1=A, 2=B...
NewRev = Left(Rev, 1) 'Defines the revision code for the drawing under revision
Me.AllowEdits = True 'Allows the data to be edited
NewRevAlpha = Asc(NewRev) 'Converts the alpha character to a number
NewRevAlpha = NewRevAlpha + 1 'Indexes the alpha character ASCII code by one
If NewRevAlpha > 48...
After I go through the entire alphabet for revisions we need to go to AA, AB, etc. I am having a heard writing code to go from Z to AA using the ASCII characters. Does anyone have any ideas how I can do this.
Thank you!!!
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.