Avatar billede omp Novice
03. juni 2016 - 07:31 Der er 2 kommentarer og
2 løsninger

Åbning 3 forskellige formularer

Hej
Hvad har jeg skrevet forkert?
Når jeg har opdateret feltet [Varegruppe], så skulle gerne 1 af de 3 varegruppe lister åbne, men får jeg det ikke til. (Har sidst rodet med VBA for 5 år siden og har nu brugt "pladsen" til noget andet og husker ikke længere min VBA
.
Private Sub Varegruppe_AfterUpdate()
If [Varegruppe] = 1 Then
  DoCmd.OpenForm [Varegruppe_1]
ElseIf [Varegruppe] = 2 Then
  DoCmd.OpenForm  [Varegruppe_2]
ElseIf [Varegruppe] = 3 Then
  DoCmd.OpenForm [Varegruppe_3]
End If
End Sub
Avatar billede kabbak Professor
03. juni 2016 - 07:50 #1
Private Sub Varegruppe_AfterUpdate()
Select Case Val([Varegruppe])' val fordi, det måske er en tekst
Case 1
  DoCmd.OpenForm [Varegruppe_1]
Case 2
  DoCmd.OpenForm [Varegruppe_2]
Case 3
  DoCmd.OpenForm [Varegruppe_3]
End Select
End Sub
Avatar billede petersen7913 Forsker
03. juni 2016 - 08:03 #2
Har du prøvet med

DoCmd.OpenForm "Varegruppe_1"

Altså sætte " om navnet?
Avatar billede omp Novice
03. juni 2016 - 08:20 #3
Var lidt for hurtig.
Skal virke således:
Hvis jeg skriver 1 i varegruppe feltet skal formularen Varegruppe_1 åbne.
Avatar billede omp Novice
03. juni 2016 - 08:23 #4
Det fungerede med "Varegruppe_1" o.sv.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester