Search results

So now, the splashScreen appears for 10 seconds, then the menu appears. However the splashscreen stays on. How do I get this to close? If I use "DoCmd.Close acForm, "frmSplashScreen"" It closes it, but an error appears? Advice? Thanks. Private Sub Form_Current() Dim f As Access.Form Dim...

I put it in the form load but it still doesn't load. It waits 10 seconds and then opens both forms at once

Would you fancy looking to see if it you can do anything???

Fair enough, I appreciate that. I have worked it out now, however, when I run the splashScreen it doesn't open. Instead the windows loading circle spins for 10 seconds "amount of time form should be open" then opens both the Menu and the SplashScreen. Any help on what could be the problem? I...

So where does this code go? Have I done the correct thing by removing S and adding at time? What does the first line "dWait = DateAdd(3, 3, Now())" do? What does the second do: "While DateDiff(10, Now(), dWait) > 1 i = i" Dim dWait As Date Dim i As Integer dWait = DateAdd(3...

If I were to use this code, where does it need to go and what is the value of s? Also where would I close and open the forms? Dim dWait As Date Dim i as integer dWait = DateAdd("s", 3, Now()) While DateDiff("s", Now(), dWait) > 1 i= i Wend

So what solution do I need to use? I can code Java not VBA, this is just something she wanted to teach but I want to know how to do it myself.

Sorry I don't understand what I need to do here? I have put the code in the code for the form but that is it? It doesn't do anything? This is how the code looks rn: Public Function Pause(NumberOfSeconds As Variant) Dim Start As Variant Start = Timer Do While Timer < Start +...

Public Function Pause(NumberOfSeconds As Variant) Dim Start As Variant Start = Timer Do While Timer < Start + NumberOfSeconds DoEvents Loop End Function DoCmd.Close acForm, "frmSplashScreen" DoCmd.OpenForm "Menu"

Where do I add in the part that closes my form and opens the new form? Also where does this code go? in the general part of the form?

CODE UPDATE Dim intTimeOnSplash As Long Private Sub Detail_Click() intTimeOnSplash = Now Loop if intTimeOnSplash = intTimeOnSplash - Now() = 00.00.30 then End Sub

So I have created a variable that holds the time the users enters the splash screen. Now how do I do the comparison? Do I need to add 30 seconds onto the value of intLogonAttempts? Then make a comparison between the new numbers or is there another way?. See code below: Dim...

Yeah I can't use the inbuilt timer, I need to make the timer close my spalsh screen and then run a macro or open and close forms? Any ideas?

Hi, you wouldn't be doing my work for me, just helping me to understand something. Could you give me advice on where to start? I would like to learn how to do it in addition to completing the task. Can you point me to any good online resources?

Hi my teacher at college said that I am not allowed to use the built in timer function on forms. This means I must code it myself, after looking online there doesn't seem to be a good solution to my problem. I will post the code below what was converted and see if you can tell me how I could...

It works, thank you so much to everyone who helped on this journey. I wish you all the best for the new year

Thank you, now my database will accept the username and password combo. Now onto making it allow 3 attempts before closing the database, where exactly does the int LogonAttempts have to go? Above the "Private Sub Command1_Click()" LogID = Surname. Stupid names for text boxes I know!! Private...

I'm sorry I don't understand??

I get an error saying the expression you entered as query gave this result, the result is the username entered into the login box. Yellow text appears around the D-look up

I have update my code but it still doesn't appear to work, I have matched this again a code that does work and cannot see the error? Could anyone help, thanks. Private Sub Command1_Click() Dim intLogonAttempts As Long 'Verify Username 'Check to see if data is entered into the...