Вопрос : Сообщение ошибки основанное на правиле утверждения - укротитель случая VB

Здравствулте!, строящ на ранее реакции с этим вопросом.  Я прикрепил архив для reference.

I устанавливал утверждение данных всплывающий для предупреждения потребителей, котор они создают conflct при мили уже заданные к кто - то еще.  Это будет территорией отслеживая электронная таблица и случится, так, что будет почему я предупреждаю потребителей и не останавливаю их.

I am ища дорога заселить всплывающее с деталями конфликта?  Например, имейте всплывающее сказать потребителю что-то подобное к «ряду мили, котор вы вписали конфликты с мной существующий территория на I-35.  Если это, то вы предназначаете сделать, угодить отрегулируйте меня территория на I-35 соответственно "

Thanks к Harfang и их работа на этом ранее, они сказало мне «я довольно уверен я не знаю самый лучший метод для того чтобы найти все рядки которые перекрывают в VB, поэтому я предложил бы вы спрашивает новый родственный вопрос (using соотвествующее соединение в этом вопросе). Критерии, котор нужно использовать является следующим: дорога

= r и BegMile < e и EndMile > B

r: Road
e в настоящее время рядка: конец Mile
b в настоящее время рядка: панибратство

My мили начала в настоящее время рядка " с VBA внутри первенствует limitied к макросам, котор я копировал с стержня… Я никогда не писал одного идеи myself.

Any если это можно сделать?

Thank вы! filename» class= >

(20 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) >
l class= " >
Territory-test.xls (20 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) class= >example file
>
class= " ясное " >
Related: title= " href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26347160.html Determine, то " class= " qRelatedParent " если утверженными данными уже было used

Ответ : Сообщение ошибки основанное на правиле утверждения - укротитель случая VB

Огорченные Savants, я был littlem небрежный, здесь буду пересмотренным вариант.
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:
Общественное Sub CheckRoad (iRow как интежер)
    Тусклое lLastRow как длиной
    
    LastRow& = клетки (Rows.Count, 3).End (xlUp). Рядок
    sRoad = клетки (iRow, 2).Value
    Старт = клетки (iRow, 3).Value
    Отделка = клетки (iRow, 4).Value
    bWarning = ложно
    
    Для IX = 2 к LastRow
        Если iRow <> IX после этого
            Если клетки, то (IX, 2).Value = sRoad после этого
                Если клетки, то (старт IX, >= 3).Value и клеток (IX, 3).Value <>= старт и клетки (IX, 4).Value  <>
           
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us