Just nu i M3-nätverket
Gå till innehåll

Access VBA kommer halvvägs genom koden


Emilb
 Share

Rekommendera Poster

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

Länk till kommentar
Dela på andra webbplatser

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

Tror du ser felet :) 

Länk till kommentar
Dela på andra webbplatser

Ett tips

Lägg in

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

  • Gilla 1
Länk till kommentar
Dela på andra webbplatser

 Share

×
×
  • Skapa nytt...