Pytanie : VBA jeżeli formuła dowiezienie w górę mylny rezultat.

Cześć EE
I pisać VBA który I stawiać w the "Po Tym Jak Aktualizacja" Event
I mieć forma który mieć 10 pudełko pudełko. gdy ty wybierać wartość wewnątrz w combo pudełko the vba kopiować the wartość graniczący field.
when ty iść the następny combo pudełko i wchodzić do wartość the iść zdarzać się ale także patrzeć także widzieć jeżeli ten wartość istnieć gdziekolwiek inny i jeżeli w ten sposób kasować the wartość i wystrzał w górę wiadomość box.

PROBLEM:
I cant opracowywać dlaczego ale the pierwszy 2 pracować świetnie ale od the świetnie combo pudełko combo (dziesięć w dziesięć) ono strzelać w górę the wiadomość pudełko wyrównywać tho the wartość ty wchodzić do być Gdziekolwiek else.

So w combo pudełko (1) i mieć wartość 1
in combo pudełko 2 wartość 16
when ty stawiać wartość 17 w JAKAŚ inny combo pudełko ono wciąż przynosić w górę wiadomość box.

I rozumieć że combo pudełko czasem wystawiać imię ono nagrywać liczba lub pudełko kiedykolwiek być w swój obszyty kolumna, i sprawdzać i wszystkie obszyty kolumna być the co .....
All pole w ten forma być unbound.
I am using dostęp 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: 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 Okręt podwodny cboEmployee1_AfterUpdate () Me.StaffValue1 = Me.cboEmployee1 Jeżeli Me.cboEmployee1 = Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue1 = Nieobowiązujący Me.cboEmployee1 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee1.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee2_AfterUpdate () Me.StaffValue2 = Me.cboEmployee2 Jeżeli Me.cboEmployee2 = Me.StaffValue1 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue2 = Nieobowiązujący Me.cboEmployee2 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee2.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee3_AfterUpdate () Me.StaffValue3 = Me.cboEmployee3 Jeżeli Me.cboEmployee3 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue3 = Nieobowiązujący Me.cboEmployee3 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee3.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee4_AfterUpdate () Me.StaffValue4 = Me.cboEmployee4 Jeżeli Me.cboEmployee4 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue4 = Nieobowiązujący Me.cboEmployee4 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee4.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee5_AfterUpdate () Me.StaffValue5 = Me.cboEmployee5 Jeżeli Me.cboEmployee5 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue5 = Nieobowiązujący Me.cboEmployee5 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee5.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee6_AfterUpdate () Me.StaffValue6 = Me.cboEmployee6 Jeżeli Me.cboEmployee6 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue6 = Nieobowiązujący Me.cboEmployee6 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee6.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee7_AfterUpdate () Me.StaffValue7 = Me.cboEmployee7 Jeżeli Me.cboEmployee7 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue8 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue7 = Nieobowiązujący Me.cboEmployee7 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee7.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee8_AfterUpdate () Me.StaffValue8 = Me.cboEmployee8 Jeżeli Me.cboEmployee8 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue9 Lub Me.StaffValue10 Wtedy Me.StaffValue8 = Nieobowiązujący Me.cboEmployee8 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee8.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee9_AfterUpdate () Me.StaffValue9 = Me.cboEmployee9 Jeżeli Me.cboEmployee9 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue10 Wtedy Me.StaffValue9 = Nieobowiązujący Me.cboEmployee9 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee9.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny Intymny Okręt podwodny cboEmployee10_AfterUpdate () Me.StaffValue10 = Me.cboEmployee10 Jeżeli Me.cboEmployee10 = Me.StaffValue1 Lub Me.StaffValue2 Lub Me.StaffValue3 Lub Me.StaffValue4 Lub Me.StaffValue5 Lub Me.StaffValue6 Lub Me.StaffValue7 Lub Me.StaffValue8 Lub Me.StaffValue9 Wtedy Me.StaffValue10 = Nieobowiązujący Me.cboEmployee10 = Nieobowiązujący MsgBox "Ty wyznaczać przygotowywać wyznaczać ten imię dla przydział. ", vbCritical + vbOKOnly + vbDefaultButton2, "Powtarzać Informacja" DoCmd.CancelEvent Me.cboEmployee10.SetFocus Wyjście Okręt podwodny Kończyć Jeżeli Kończyć Okręt podwodny

Odpowiedź : VBA jeżeli formuła dowiezienie w górę mylny rezultat.

Ty ciskać the dodatek i odejmowanie operator, ty ciskać the pozytyw i negatyw notacja i ono właśnie robić the przypuszczenie że the numeryczny część być (0).  +0 = + = (0)