23. juli 2012 - 19:10Der er
22 kommentarer og 1 løsning
Problemer med If - Then- Else kode
Jeg kan ikke få nedenstående kode til at virke. Om det er fordi jeg sætter "Me." ind som sammenligning eller værdierne ikke kan findes er jeg i tvivl om. Feltet "Me.ICAOType" henter værdien "C172" når formlen åbnes. Værdien som der skal sammenlignes med ligger i et notatfelt - således C172komma mellemrum 182komma mellemrum o.s.v. Som koden er nu, kommer MsgBox i alle tifælde, fjerner jeg klammerne omkring Me.ICAOType ingen MsgBox i alle tilfælde. Jeg tror det er fordi jeg sammenligner med "Me.....", men hvad kan jeg ellers gøre for at få værdien i feltet.
Private Sub Sign_BeforeUpdate(Cancel As Integer) Dim Stringsearch As String
If DLookup("[PLicensTypes]", "TblClearedStaffInfo", "[SignCode]='" & Stringsearch & "'") Like "*[Me.ICAOType]*" Then Else MsgBox "You must have a valid C172 typerating", vbExclamation End If End Sub
This is how that part of the code was when I got the message, maybe I did something wrong, I'm knew in this "VBA". If DLookup("[PLicensTypes]", "TblClearedStaffInfo", "[SignCode]='" & Stringsearch & "'") Like "*" & [Me.ICAOType] & "*" Then Else
Me.ICAOType shows the "SignCode" (774740) and it should show the ICAOType (C172) Before with the earlier code the ICAOType shows "C172" but I did not get the correct info as explained earlier.
Det har jeg prøvet. Hvis jeg sætter klammer om får jeg ikke Åbnet MsgBox ved nogen SignCode jeg indtaster, selvom en af dem skulle give Msg.Box. Hvis jeg fjerner klammerne får jeg Msg.Box ved alle SignCode hvor jeg kun skulle have en.
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.
