Search results

Yep, the Randomize function did the trick.

I have an Access database where I would like to create a Captcha on a Form. I'm doing it more as a test of my VBA knowledge, but I have hit a snag where I have been unable to get my code to completely randomise the string generated. The string (displayed below the Captcha label) is what I will...

Yes it would be dynamically. The mechanic I want it to show is where I fill in a box and then the status bar immediately updates to indicate that something has been put in the box.

Yeah in my mind I am wanting to explore the VBA option as in my mind I envisage it only calculates it for the individual form that is opened at that moment in time, rather than the Calculated Field method which calculates it all at once and then never calculates again until refreshed.

At the moment I am using a snippet of code which is triggered when a Field is entered into the Sub Form. So when I enter data in the FrmSubReliability, the ReliabilityProgressBar The code that is fired on the AfterUpdate event is: If [Forms]!FrmOverview.TabCtl12 = 1 _ Then...

I have a Table called TblReliabilityProgramme which has 6 Fields that I am really interested in (I know the entire Table has 9 Fields/Columns, but these 6 are the main ones I am interested in): Title Intent Cost Reference Frequency ConceptionDate For a little feature I am trying to create on...

I've gotten the attached image set up so far. I am now going to try tweaking it to change the length of the red/green bar to represent how many fields are still to be filled in. Any tips for code to do this would be appreciated.

Yes this code is running in the Sub Form Class Code for FrmSubReliability. Private Sub Form_Current() If Nz(Forms!FrmOverview!FrmSubReliability.Form!PartID, 0) = _ Nz(Forms!FrmOverview!FrmSubCoverInformation.Form!PartID, 0) And _...

Just to check what you mean by a "pseudo tab" - you mean a load of Text Boxes / Buttons with some VBA Script going with it to make something look like the native Tab Control Object?

Noted. In this particular instance that I am looking at, it is on the FrmSubReliability so I need to use the long format. Also after some further troubleshooting/testing, it doesn't look as though my earlier code is working... I have been testing it on the On Current Event, After Update Event...

So for my example would the below in the Form Current Event for FrmSubReliabilityProgramme work? Private Sub Form_Current() If Nz(Forms!FrmOverview!FrmSubReliability.Form!PartID, 0) = _ Nz(Forms!FrmOverview!FrmSubCoverInformation.Form!PartID, 0) And _...

I have the attached database which we can use as an example of what I am trying to achieve. I have a main form called FrmOverview which has a TabControl item inside of it which has 2 Tabs - General Information and Reliability. When a user creates a new record, the user has to input details in...

That will just colour the entire Tab though won't it? I'm looking for a sutble gradient shading / a line at the bottom of the Tab name.

I have a Tab Control on a Form with 3 Tabs which I want the user to fill in to populate the database. As part of this, I would like to give the user an indicator as to what Tabs already have data added into them and which ones do not and therefore need looking at. I have a few questions based...

The code below has now allowed me to get everything working. Nice one. dim accessApp set accessApp = createObject("Access.Application") accessApp.visible = true accessApp.UserControl = true accessApp.OpenCurrentDataBase("C:\Users\tkorynek\Desktop\Automated Database Upload Project\Automated...

I seem to have sorted it so that the script works nicely with the following code: dim accessApp set accessApp = createObject("Access.Application") accessApp.visible = true accessApp.UserControl = true accessApp.OpenCurrentDataBase("C:\Users\tkorynek\Desktop\Automated Database Upload...

Thanks for the input and help guys - it's really appreciated. Quite a few points to address now so I will try my best: Regarding the "_" all over my code I intentionally put the "_" into the code. The reason for doing so was because I believed Windows Script Host was telling me that the script...

Thanks for your help Adam, sure attached is the VBScript Script File that I have created and have been editing in Notepad.

Hi vba_php, I am just trying to learn as much as I can as I am very much an amateur at Access & VBA. From playing around trying to fix the error, I am able to change the error code "Char" term by adding in additional _ just after the Err.Number for example If_Err.Number_< Changes it to show...

I have a piece of code that is giving me the attached error message when I try running the VBScript Script File. This code worked perfectly when it was in my Access Database, but I am trying to learn about .vbs files so tried to replicate it in Notepad and VBS. I think I have traced it to the <>...