Frage : VBA wenn Formel, die oben falsche Resultate holt.

Hallo schriftlich EE
I VBA, das ich in „nach Update“ Event
I habe eine Form eingesetzt, die 10 Drop-Down-Kästen hat. wenn Sie einen Wert innen im kombinierten Kasten vorwählen, kopiert das vba den Wert zu einem angrenzenden field.
when, das Sie zum folgenden kombinierten Kasten gehen und einen Wert eintragen, der selbe aber auch oben geschieht, schaut, zu sehen, wenn dieser Wert irgendwoanders existiert und wenn so den Wert löscht und oben eine Mitteilung box.

PROBLEM knallt:
I Neigung ausarbeiten rm, warum aber die ersten 2 adaequat sind, aber vom 3. kombinierten Kasten vorwärts (10 in allen) er oben das Mitteilungkasten sogar tho der Wert knallt, den Sie sind NICHT irgendwoanders.

So in kombiniertem Kasten eintragen, 1 ich einen Wert 1
in kombinierten Kastens 2 ein Wert von 16
when haben, Sie einen Wert von 17 in ALLE anderen kombinierten Kästen einsetzen, er noch oben Mitteilung box.

I versteht holt, dass ein kombinierter Kasten manchmal einen Namen anzeigt, jedoch er eine Zahl notiert, oder was überhaupt in seiner verklemmten Spalte ist, überprüft ich und alle verklemmten Spalten sind die selben .....
All Felder in dieser Form sind unbound.
I morgens using Zugang 2003

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:

           
           
          Private VorcboEmployee1_AfterUpdate ()

Me.StaffValue1 = Me.cboEmployee1


Wenn Me.cboEmployee1 = Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue1 = Null
Me.cboEmployee1 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee1.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee2_AfterUpdate ()

Me.StaffValue2 = Me.cboEmployee2

Wenn Me.cboEmployee2 = Me.StaffValue1 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue2 = Null
Me.cboEmployee2 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee2.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee3_AfterUpdate ()

Me.StaffValue3 = Me.cboEmployee3

Wenn Me.cboEmployee3 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue3 = Null
Me.cboEmployee3 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee3.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
   
Unterseeboot beenden
Privates Unterseeboot cboEmployee4_AfterUpdate ()

Me.StaffValue4 = Me.cboEmployee4

Wenn Me.cboEmployee4 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue4 = Null
Me.cboEmployee4 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee4.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee5_AfterUpdate ()

Me.StaffValue5 = Me.cboEmployee5

Wenn Me.cboEmployee5 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue5 = Null
Me.cboEmployee5 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee5.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee6_AfterUpdate ()

Me.StaffValue6 = Me.cboEmployee6

Wenn Me.cboEmployee6 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue6 = Null
Me.cboEmployee6 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee6.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee7_AfterUpdate ()

Me.StaffValue7 = Me.cboEmployee7

Wenn Me.cboEmployee7 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue8 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue7 = Null
Me.cboEmployee7 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee7.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee8_AfterUpdate ()

Me.StaffValue8 = Me.cboEmployee8

Wenn Me.cboEmployee8 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue9 oder Me.StaffValue10 dann
Me.StaffValue8 = Null
Me.cboEmployee8 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee8.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee9_AfterUpdate ()

Me.StaffValue9 = Me.cboEmployee9

Wenn Me.cboEmployee9 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue10 dann
Me.StaffValue9 = Null
Me.cboEmployee9 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee9.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden
Privates Unterseeboot cboEmployee10_AfterUpdate ()

Me.StaffValue10 = Me.cboEmployee10

Wenn Me.cboEmployee10 = Me.StaffValue1 oder Me.StaffValue2 oder Me.StaffValue3 oder Me.StaffValue4 oder Me.StaffValue5 oder Me.StaffValue6 oder Me.StaffValue7 oder Me.StaffValue8 oder Me.StaffValue9 dann
Me.StaffValue10 = Null
Me.cboEmployee10 = Null
MsgBox „Sie ganz bereit zugewiesen diesen Namen für Verteilung n. “, vbCritical + vbOKOnly + wiederholte vbDefaultButton2, „Informationen“
      DoCmd.CancelEvent
    Me.cboEmployee10.SetFocus
      Herausnehmen Unterseeboot ehmen
   Beenden wenn
Unterseeboot beenden

           
         

Antwort : VBA wenn Formel, die oben falsche Resultate holt.

Sie werfen nicht die Zusatz- und Abzugoperatoren, werfen Sie das positive und negative Darstellung und es bilden gerade die Annahme, dass das numerische Teil 0 ist. +0 = + = 0

Weitere Lösungen

Wort-Presse, die Frage bewirtet

asp.net: Mein Problem ist, benutze ich einen ajax Ergänzung Kalender, um BeginDate u. EndDate Werte einzutragen

Silverlight 4 UI Ereignisse

wie kann ich irgendeine Bildentschließung online ändern und sie zum lokalen PC dann innen sparen??

ZFS Sicherungshilfe Ubuntu 10.0.4 LTS

Form-Frage für Kristallreports

Betreffend INOTES in Lotos 8.5

Mühen, die ZWISCHEN Logik erhalten zu arbeiten

Spannungs-Sensor ermittelte einen Ausfall auf Bediener DELL-PowerEdge 2650

broadcom NIC teaming