Vraag : VBA als formule die verkeerde resultaten ter sprake brengen.

Hallo heeft EE
I VBA geschreven dat ik „heb aangebracht nadat de Update“ Event
I een vorm heeft die 10 dropdown dozen heeft. wanneer u binnen een waarde in combovakje de vbaexemplaren de waarde aan een aangrenzende field.
when selecteert gaat u naar de volgende combodoos en gaat een waarde in het zelfde maar ook omhoog eruit ziet gebeurt om te zien of nergens anders bestaat deze waarde en of schrapt zo de waarde en duikt een bericht box.

PROBLEM op:
I schuint uitwerkt af waarom maar eerste 2 fijn maar van het 3de combovakje (tien alles bij elkaar) het verder opduiken berichtvakje zelfs tho de waarde werken u bent. Geen

So in combodoos 1 ik nergens anders hebt een waarde van 1
in combodoos 2 een waarde van 16
when ingaat u een waarde van 17 in Een andere combodozen zet het bericht box.

I nog ter sprake brengt begrijpt dat een combodoos soms een naam toont nochtans het een aantal registreert of wat ooit in zijn verbindende kolom is, heb ik gecontroleerd en alle verbindende kolommen zijn de zelfde .....
All- gebieden in deze vorm zijn unbound.
I am gebruikend toegang 2003

" codeBody " 


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:
36:
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 SubcboEmployee1_AfterUpdate ()

Me.StaffValue1 = Me.cboEmployee1


Als Me.cboEmployee1 = Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue1 = verklaar nietig
Me.cboEmployee1 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee1.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee2_AfterUpdate ()

Me.StaffValue2 = Me.cboEmployee2

Als Me.cboEmployee2 = Me.StaffValue1 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue2 = verklaar nietig
Me.cboEmployee2 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee2.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee3_AfterUpdate ()

Me.StaffValue3 = Me.cboEmployee3

Als Me.cboEmployee3 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue3 = verklaar nietig
Me.cboEmployee3 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee3.SetFocus
      Sub van de uitgang
   Eind als
   
Sub van het eind
Privé SubcboEmployee4_AfterUpdate ()

Me.StaffValue4 = Me.cboEmployee4

Als Me.cboEmployee4 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue4 = verklaar nietig
Me.cboEmployee4 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee4.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee5_AfterUpdate ()

Me.StaffValue5 = Me.cboEmployee5

Als Me.cboEmployee5 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue5 = verklaar nietig
Me.cboEmployee5 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee5.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee6_AfterUpdate ()

Me.StaffValue6 = Me.cboEmployee6

Als Me.cboEmployee6 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue6 = verklaar nietig
Me.cboEmployee6 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee6.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee7_AfterUpdate ()

Me.StaffValue7 = Me.cboEmployee7

Als Me.cboEmployee7 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue8 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue7 = verklaar nietig
Me.cboEmployee7 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee7.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee8_AfterUpdate ()

Me.StaffValue8 = Me.cboEmployee8

Als Me.cboEmployee8 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue9 of Me.StaffValue10 toen
Me.StaffValue8 = verklaar nietig
Me.cboEmployee8 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee8.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee9_AfterUpdate ()

Me.StaffValue9 = Me.cboEmployee9

Als Me.cboEmployee9 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue10 toen
Me.StaffValue9 = verklaar nietig
Me.cboEmployee9 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee9.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind
Privé SubcboEmployee10_AfterUpdate ()

Me.StaffValue10 = Me.cboEmployee10

Als Me.cboEmployee10 = Me.StaffValue1 of Me.StaffValue2 of Me.StaffValue3 of Me.StaffValue4 of Me.StaffValue5 of Me.StaffValue6 of Me.StaffValue7 of Me.StaffValue8 of Me.StaffValue9 toen
Me.StaffValue10 = verklaar nietig
Me.cboEmployee10 = verklaar nietig
MsgBox heeft „u al klaar deze naam voor toewijzing toegewezen. “, vbCritical + vbOKOnly + vbDefaultButton2, „Herhaalde Informatie“
      DoCmd.CancelEvent
    Me.cboEmployee10.SetFocus
      Sub van de uitgang
   Eind als
Sub van het eind

Antwoord : VBA als formule die verkeerde resultaten ter sprake brengen.

U giet niet de toevoeging en aftrekkingsexploitanten, giet u de positieve en negatieve aantekening en het maakt enkel de veronderstelling dat het numerieke deel 0 is. +0 = + = 0

Andere oplossingen

Somebody verzendt emialsvorm mijn hotmailrekening

een programma probeert om het volgende e-mailbericht uit uw naam te verzenden - de Levende post van Vensters

Kleine Statische IP Bedrijfs van de Server 2008 verandering

sharepoint stichting 2010 op met 32 bits?

Word 2003 die - met lijsten, rijen, en cellen werken

Navigeer aan de pagina van een specifiek punt op een gridview

Hyperlink die het diagram/de Tekening activeren

Apple iWeb - hoe te om HTML aan Schijf de website via FTP te publiceren te bewaren of?

sql - datumformaat

Het van een lus voorzien over de tellers van googlekaarten v3