29. december 2003 - 14:01Der er
6 kommentarer og 1 løsning
Hvordan sættes en Select case op ?
Hej eksperter Jeg har længe arbejdet med If-sætninger, og dette virker jo godt nok, så der er ikke som sådan ikke noget problem. Dog ville jeg gerne lære at sætte en Select case op, da If-sætninger nogen gange kan virker lidt uoverskulige. Nedenstående kode køre i en db uden problemer, er der nogen der har et bud på hvordan denne kode kunne sættes som en Select case. Skulle der komme nogen forslag kan jeg bruge det til viderestudering af Select case.
mvh Anders
Kode: Private Sub Kommandoknap8_Click()
If IsNull([cboKuverttype]) Then
MsgBox "Der er ikke valgt en kuverttype,vælg en kuverttype" & "" & vbNewLine & "" & "og klik på Opret igen", vbCritical, "Opret kuverter"
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
select case Me!cboKuverttype case "" MsgBox "Der er ikke valgt en kuverttype,vælg en kuverttype" & "" & vbNewLine & "" & "og klik på Opret igen", vbCritical, "Opret kuverter" Me.cboKuverttype.SetFocus
case "1" DoCmd.OpenReport "raUdskrivA5", acViewPreview
case "2" DoCmd.OpenReport "raUdskrivA4", acViewPreview case else 'tja...
Nu har jeg testet, og som ventet virker det jo perfekt :o)så point er på vej. dog for forståelsen skyld: Case "1" er altså værdien i cboKuverttype e.t.c
Tak for forklaring, vil nok benytte Case lidt mere i fremtiden, nu har jeg noget at gå efter.
Synes godt om
Ny brugerNybegynder
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.
