For hvert varenummer kan lageroplysningerne i "lageroplysning 1-4" være ens, forskellige eller tomme.
Opgaven går ud på at sammenholde om lageroplysningerne på de enkelte varenumre er ens eller forskellige. Hvis felterne alle indeholdt en oplysning kan jeg bruge udtrykket
i udtryksgenerator til at definere om oplysningerne er ens eller forskellige. Problemet er der hvor felterne er tomme, der virker udtrykket ikke. Og der er desværre tomme felter knyttet til stort set alle varenumre.
Hvordan for jeg sammensat et udtryk, hvor der ikke tages højde for de tomme felter, dvs. sådan at der kun sammenlignes på de felter, der har en værdi?
Med kunstig intelligens skaber HP’s nye OmniBook X 14 en unik og skræddersyet brugeroplevelse målrettet dem, der ønsker høj ydeevne og intelligente funktioner
sådan ENS: IIf([test]![Lageroplysning_1]=[test]![Lageroplysning_2] And [test]![Lageroplysning_2]=[test]![Lageroplysning_3] And [test]![Lageroplysning_3]=[test]![Lageroplysning_4];"OK";"IKKE")
tak for svaret, men det virker desværre ikke helt, da udtrykket stadigvæk sammenligner på de tomme felter.
har et eksempel, hvor lageroplysning 1 og 3 er ens, med en lagerplacering "L35", mens 2 og fire er tomme. Her vil udtrykket stadig komme med et svar der hedder "ikke", selvom svaret skulle være "OK"
Lav et kodemodul, hvis du ikke har et. sæt denne kode derind:
Public Function ENS(F1, F2, F3, F4) As String Dim OK() As Variant, A As Integer A = 0 If Not IsNull(F1) Then ReDim Preserve OK(A): OK(A) = F1: A = A + 1 If Not IsNull(F2) Then ReDim Preserve OK(A): OK(A) = F2: A = A + 1 If Not IsNull(F3) Then ReDim Preserve OK(A): OK(A) = F3: A = A + 1 If Not IsNull(F4) Then ReDim Preserve OK(A): OK(A) = F4 ENS = False
For i = 0 To UBound(OK) - 1 For j = i + 1 To UBound(OK) If OK(i) = OK(j) Then ENS = "OK" Else ENS = "IKKE" Exit Function End If Next Next End Function
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.