Just nu i M3-nätverket
Jump to content

Access VBA kommer halvvägs genom koden


Emilb
 Share

Recommended Posts

Hej!

 

Lär mig VBA i Access men jag får inte koden att fungera

 

Private Sub QButton_Click()
Dim UserChoice As Integer

UserChoice = MsgBox("Do you need to see the Personal Data Form?", vbYesNo, "Choice a form")

If UserChoice = vbYes Then
    DoCmd.OpenForm ("frmPersonal")
Else
    UserChoice = MsgBox("Do you need to see HR Data?", vbYesNo, "Choose a form")
    If UserChoise = vbYes Then
        DoCmd.OpenForm ("frmHRData")
    Else
        MsgBox ("No data for you")
    End If
End If

End Sub

När  väljer YES för frmHRData så hoppar den över den. 

 

Har ett liknande problem med nästa kod:

Private Sub btnCaseExample_Click()
Dim UserChoice, Pword As String

UserChoice = InputBox("P=Personal Data Form" & vbCrLf & "H=HR Data Form")

Select Case UserChoise

Case "P"
    Debug.Print "P funkar"
    DoCmd.OpenForm ("frmPersonal")

Case "H"
    Pword = InputBox("Enter the password, then click OK")
    If Pword = "1234" Then
        DoCmd.OpenForm ("frmHRData")
    Else
        MsgBox ("wrong password, Not authorized")
    End If
    
End Select

End Sub

Här händer det inte ett jota varken jag trycker H/h eller P/p

 

Är det en inställning, för koden är i princip kopierad via en guide. Har ju skrivit den själv dock, men med hjälp.

 

Tacksam för er grymma kunskap i ämnet. 

 

Mvh

Dan

Link to comment
Share on other sites

Kan det vara en referens som saknas, kan säga att den här databasen är byggd av den som gjort guiden. 

Link to comment
Share on other sites

Mr Andersson
Citat
UserChoice = MsgBox("Do you need to see HR Data?", vbYesNo, "Choose a form")
    If UserChoise = vbYes Then

Tror du ser felet :) 

Link to comment
Share on other sites

Ett tips

Lägg in

Options Explicit i toppen på filen så tvingar du VBA att validera alla variabler.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share



×
×
  • Create New...