Вопрос : тип vba аргумента byref ошибки рассогласования

конечно как разрешить это error.
I имейте функцию в стандартном модуле, то получает значения и вызывает соотвествующий метод типа для того чтобы сделать некоторое обрабатывая и после этого возвратить value.

the переменное, котор CWValuein будет реакцией highlighted
a быстро был бы очень много appreciated.

regards заранее class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:

функция CreateTestClass " class= " id= " codeSnippet805276

Public (ClientValueIn вариант как, CWValueIn как вариант, испытание как шнур) как интежер

Тусклое Veh как корабль
Тусклый результат как интежер
'
Установите Veh = новый корабль



Выберите испытание случая

    Покрывайте «BHP»
        Результат = Veh.BhpRank (ClientValueIn, CWValueIn)

    Случай «KW»
        Результат = Veh.KWRank (ClientValueIn, CWValueIn)

    Случай «характер»
        Результат = Veh.CharacterRank (ClientValueIn, CWValueIn)

    Случай «KWStr»
        Результат = Veh.KWStrRank (ClientValueIn, CWValueIn)

    Случай «BPStrRank»
        Результат = Veh.BhpStrRank (ClientValueIn, CWValueIn)

    Случай «двигатель»
        Результат = Veh.EngineRank (ClientValueIn, CWValueIn)

    Случай «CC»
        Результат = Veh.CCRank (ClientValueIn, CWValueIn)

    Случай «топливо»
        Результат = Veh.FuelRank (ClientValueIn, CWValueIn)

    Случай «NomCC»
        Результат = Veh.NomRank (ClientValueIn, CWValueIn)

    Случай «двери»
        Результат = Veh.DoorRank (ClientValueIn, CWValueIn)

    Случай «клапаны»
        Результат = Veh.ValveRank (ClientValueIn, CWValueIn)




Конец отборный

CreateTestClass = результат

Функция конца

тип корабля
Вариант сравнивает базу данных

Приватное pBhp как длиной
Приватное pCWCode как шнур
Приватное pKw как длиной
Приватное pNomCC как двойник

Общественное имущество получает Bhp () как длиной
    Bhp = pBhp
Свойство конца

Общественное имущество получает Kw () как длиной
    Kw = pKw
Свойство конца

Общественное имущество получает NOMCC () как двойник
    NOMCC = pNomCC
Свойство конца

Общественное имущество препятствовало Bhp (значение как длиной)
    pBhp = значение
Свойство конца
Общественное имущество препятствовало Kw (значение как длиной)
    pKw = значение
Свойство конца

Общественное имущество препятствовало NOMCC (значение как двойник)
    pNomCC = значение
Свойство конца
Общественная функция EngineRank (Strclientengine вариант, strcwengine как как вариант) как длиной

Тусклое StrClientEngineIn как шнур
Тусклое StrCWEngineIn как шнур
Тусклое BInstrFWD как булевско
Тусклое BInstrRev как булевско
Тусклое BCompareEng как булевско
Тусклый счетчик как длиной
Тусклое foutput как длиной
Тусклое StrTypo как шнур
Тусклое intcount как интежер
Тусклое BHPin как длиной

Если IsNull (Strclientengine) = True или IsNull (strcwengine) после этого
'отсутствие данных

Еще
'получите ые значения
StrClientEngineIn = Strclientengine
StrCWEngineIn = strcwengine

'предшествование

'ряд дальше сравнивает
'ряд на instr
'ряд на typo
'ряд на частично

'*****************************************************************************
'проверите сравните
'ряд дальше сравнивает
Если StrComp, то (StrCWEngineIn, StrClientEngineIn, 1) = ложно или StrComp (StrCWEngineIn, RegExpReplace (StrClientEngineIn, «"), 1) = ложно после этого
    счетчик = 10000
Еще
    счетчик = 0
      
'проверите instring
'****************************************************************************
Если InStr (StrClientEngineIn, StrCWEngineIn) > 0 после этого
счетчик = встречное + 1000



Еще



Закончитесь если

Если InStr (StrCWEngineIn, StrClientEngineIn) > 0 после этого
счетчик = встречное + 1000
Еще

Закончитесь если

'***************************************************************************

'проверите семью
'' передний instring cw к клиенту
Если FamilyInstr (StrCWEngineIn, StrClientEngineIn) = "" после этого


Еще

счетчик = встречные + 100
Закончитесь если




'***************************************************************************
'проверите typos

StrTypo = DecodeEngine (StrCWEngineIn, StrClientEngineIn)
Если StrTypo = «typo» после этого

    счетчик = встречные + 10

Еще
'не сделайте ничего
Закончитесь если


'****************************************************************************
'получите счет ранжировки характера

intcount = CharacterRank (StrCWEngineIn, StrClientEngineIn)

счетчик = встречно + intcount

'***************************************************************************

'' ***************************************************************************
'' Технически испытание bhp
'Если CurrentProject.AllForms («основа») .IsLoaded после этого
'
'BHPIn = [формы]! [Основа]! [CALC BHP]
'
'
'Еще
'
'
'Закончитесь если

'конец сравнивает
Закончитесь если


Закончитесь если


GetEngineRank = встречно * 100

Функция конца
Общественная функция CharacterRank (StrEng1 как шнур, strEng2 как шнур) как длиной
Тусклый sw как секундомер

Тусклое lIndex как длиной
Тусклое lLoopPosition как длиной
Тусклое lCharacterPosition как длиной
Тусклое iCounter как длиной
Тусклое StrWantedCharacter как шнур
Тусклое StrTemp как шнур
'Установите sw = новый секундомер
'sw.StartTimer


'отнесите к более короткому шнуру как цепи управления этой длины и направление instr
Если Len (strEng2) < Len (StrEng1) после этого
    'обмените их
    strEng2 = strEng2 + StrEng1
    StrEng1 = после того как я ы (strEng2, Len (strEng2) - Len (StrEng1))
    strEng2 = право (strEng2, Len (strEng2) - Len (StrEng1))

Закончитесь если

'получите самую короткую len
lIndex = Len (StrEng1)
'strtemp будет равным к самому длиннему шнуру по мере того как это одним, котор мы хотим сократить для каждой петли
StrTemp = strEng2

'петля вокруг шнура
            Для lLoopPosition = 1 к lIndex
               'получите индивидуальный характер начиная в начале шнура
               StrWantedCharacter = средний (StrEng1, lLoopPosition, 1)
               'получите положение нашего характера от самого длиннего шнура
               lCharacterPosition = InStr (strEng2, StrWantedCharacter)
               'характер нашел в самом длиннем шнуре
               Если <> 0 InStr (StrTemp, StrWantedCharacter) после этого
                    'извлекайте характер от шнура temp
                    StrTemp = заменяет ть (StrTemp, среднее (strEng2, lCharacterPosition, 1), "", 1)
                    'инкрементируйте счетчик
                    iCounter = iCounter + 1
               Закончитесь если
           Следующее lLoopPosition





'processtime = sw.EndTimer & «миллисекунды»
'Debug.Print sw.EndTimer
'iCounter Debug.Print
CharacterRank = iCounter



Функция конца
Общественная функция NomRank (StrClient как шнур, CWNomIn как двойник) как интежер


Тусклое ValueIn как двойник
Тусклое StrReturnedFromClientString как шнур

Если IsNull (CWNomIn) после этого
    ValueIn = 0
Еще
    ValueIn = CWNomIn
Закончитесь если

StrReturnedFromClientString = GetCC (StrClient)
Если StrComp, то (CStr (ValueIn), StrReturnedFromClientString, 1) = ложно после этого
    NomRank = 1
    Выходите функция
Закончитесь если


NomRank = 0
Функция конца




Общественная функция KWRank (ClientIn вариант как, CWKWIn как длиной, опционное varianceIn как интежер) как интежер

Тусклое ValueMin как длиной
Тусклое ValueMax как длиной
Тусклое ValueIn как длиной
Тусклое ValueCWIn как длиной
Затемните a как длиной

ValueCWIn = CWKWIn

Если (varianceIn) = 0 после этого

    ValueMin = ValueCWIn - 5
    ValueMax = ValueCWIn + 5
Еще

    ValueMin = ValueCWIn - varianceIn
    ValueMax = ValueCWIn + varianceIn

Закончитесь если


    Если ValueCWIn = ClientIn после этого
       KWRank = 2
       Выходите функция
    Еще
      Для a = ValueMin к ValueMax
        Если ClientIn = a после этого
           KWRank = 1
           Выходите функция
        Закончитесь если
      Затем a
    Закончитесь если
    
KWRank = 0

Функция конца

Общественная функция BhpRank (ClientIn вариант как, CalcBHP как длиной, опционное varianceIn как интежер) как интежер

Тусклое ValueMin как длиной
Тусклое ValueMax как длиной
Тусклое ValueIn как длиной
Тусклое ValueCWIn как длиной
Затемните a как длиной

ValueCWIn = CalcBHP

Если (varianceIn) = 0 после этого

    ValueMin = ValueCWIn - 5
    ValueMax = ValueCWIn + 5
Еще

    ValueMin = ValueCWIn - varianceIn
    ValueMax = ValueCWIn + varianceIn

Закончитесь если


    Если ValueCWIn = ClientIn после этого
       BhpRank = 2
       Выходите функция
    Еще
      Для a = ValueMin к ValueMax
        Если ClientIn = a после этого
           BhpRank = 1
           Выходите функция
        Закончитесь если
      Затем a
    Закончитесь если
    
BhpRank = 0

Функция конца



Общественная функция ValveRank (ClientStr вариант как, CWCylindersIn как интежер)
Тусклое ValueIn как интежер
Тусклое ClientValveCount как длиной
Тусклое CylinderCountIn как длиной

 Если IsNull (CWCylindersIn) после этого
    ValueIn = 0
            
 Еще
    CylinderCountIn = CWCylindersIn
   
 Закончитесь если


 
 Если IsNull, то ([формы]! [основа]! [КЛАПАНЫ В ЦИЛИНДР]. Значение) после этого
    ValueIn = 0
            
 Еще
    ValueIn = [формы]! [основа]! [КЛАПАНЫ В ЦИЛИНДР]. Значение * CylinderCountIn
     ClientValveCount = GetNumValves (ClientStr)
 Закончитесь если

Если ValueIn = ClientValveCount и ValueIn > 0 после этого
    ValveRank = 1
    Выходите функция
Закончитесь если

 ValveRank = 0



Функция конца

Функция GetNumValves (текст)
    Тусклый pos как интежер
    Сделайте
        pos = InStr (pos + 1, текст, «v»)
        Если pos > 2 после этого
            Если средний, то (текст, pos - 2, 2) как «##» после этого
                GetNumValves = Val (среднее (текст, pos - 2, 2))
                Выходите функция
            Закончитесь если
        Закончитесь если
        Если pos > 1 после этого
            Если средний, то (текст, pos - 1, 1) как «#» после этого
                GetNumValves = Val (среднее (текст, pos - 1, 1))
                Выходите функция
            Закончитесь если
        Закончитесь если
    Закрепите петлеть пока pos
    GetNumValves = 0
Функция конца


Общественная функция FuelRank (StrClient, CWFuelIn как шнур) как длиной
Тусклое ValueIn как шнур
Если IsNull (CWFuelIn) после этого
    ValueIn = ""
Еще
    ValueIn = CWFuelIn
Закончитесь если

Если ое StrComp, то ((ValueIn, 1), StrClient, 1) = ложно после этого
    FuelRank = 1
    Выходите функция
Закончитесь если

 FuelRank = 0

Функция конца
Общественная функция DoorRank (ClientStr как шнур, CWDoorsIn как интежер) как интежер

Тусклое ValueIn как интежер
Тусклое ClientDoorCount как длиной

 Если IsNull (CWDoorsIn) после этого
    ValueIn = 0
            
 Еще
    ValueIn = CWDoorsIn
     ClientDoorCount = GetDoors (ClientStr)
 Закончитесь если

Если ValueIn = ClientDoorCount и ValueIn > 0 после этого
    DoorRank = 1
    Выходите функция
Закончитесь если

 DoorRank = 0

Функция конца
Общественная функция TransmissionRank (ClientStr как шнур, CWTransmissionIn как шнур)
Тусклое ValueIn как шнур




 
 Если IsNull (CWTransmissionIn) после этого
    ValueIn = ""
            
 Еще
    ValueIn = CWTransmissionIn
     
 Закончитесь если

Если StrComp, то (ValueIn, ClientStr, 1) = ложно после этого
    TransmissionRank = 1
    Выходите функция
Закончитесь если

TransmissionRank = 0

Функция конца
Функция GetDoors (ClientStr как шнур) как интежер
Тусклое regex как предмет
Тусклая спичка как предмет

    Установите regex = CreateObject («vbscript.regexp»)
    'фильтруйте для цифров и «d отделенных космосом»
    regex. Картина = «[0-9] + d»

    'поверните случай
    regex.IgnoreCase = True
    'создайте предмет

    Установите спичку = regex. Исполните (ClientStr)
    'установите или получите значение
    Если спичка. Отсчет > 0 после этого GetDoors = уравновешиваний (Val (спичка (0)))
    'предмет убийства
    Установите regex = ничего
Закончите функцию

Общественная функция CCRank (ClientIn вариант как, CWCCIn как длиной, опционное varianceIn как интежер) как интежер

Тусклое ValueMin как длиной
Тусклое ValueMax как длиной
Тусклое ValueIn как длиной
Тусклое ValueCWIn как длиной

Затемните a как длиной



ValueCWIn = CWCCIn

Если (varianceIn) = 0 после этого

    ValueMin = ValueCWIn - 5
    ValueMax = ValueCWIn + 5
Еще

    ValueMin = ValueCWIn - varianceIn
    ValueMax = ValueCWIn + varianceIn

Закончитесь если


    Если ValueCWIn = ClientIn после этого
       CCRank = 2
       Выходите функция
    Еще
      Для a = ValueMin к ValueMax
        Если ClientIn = a после этого
           CCRank = 1
           Выходите функция
        Закончитесь если
      Затем a
    Закончитесь если

CCRank = 0
Функция конца
Общественная функция BhpStrRank (StrClient как шнур, CWBhp как длиной, опционное отклонение как интежер)
Тусклое StrCientln как шнур
Тусклое ValueMin как длиной
Тусклое ValueMax как длиной
Тусклое ValueCWIn как длиной
Затемните a как длиной
Затемните b как длиной
Затемните StrTemp как шнур
Затемните StrTemp2 как шнур
Затемните StrArray () как шнур
Затемните против как интежер
Затемните teststr как шнур


Если IsNull (ValueCWIn) после этого
    ValueCWIn = 0
            
Еще
    ValueCWIn = CWBhp
            
Закончитесь если

Если (varianceIn) = 0 после этого

    ValueMin = ValueCWIn - 5
    ValueMax = ValueCWIn + 5
Еще

    ValueMin = ValueCWIn - varianceIn
    ValueMax = ValueCWIn + varianceIn

Закончитесь если

Если IsNull (ValueCWIn) = True или ValueCWIn = 0 после этого

Еще
    Если <= 0 Len (StrClient) или IsNull (StrClient) после этого
    KWStrRank = 0
    Выходите функция
    Еще
        Если ValueCWIn = StrClient после этого
        BhpStrRank = 2
                       
                        
        Выходите функция
            
        Еще
        StrTemp = SplitNumeralandText (StrClient)
        
            StrTemp2 = RegExpReplace (StrTemp, «[^0-9]», «")
            StrArray = разделило (StrTemp2)
         
            
            Для a = LBound (StrArray ()) К UBound (StrArray ())
                Для b = ValueMin к ValueMax
                    Если (StrComp (StrArray (a), CStr (b), 1) = ложно) после этого
                       
                            BhpStrRank = 1
                       
                        
                        Выходите функция
                    Закончитесь если
                    Следующий b
            Затем a
        Закончитесь если
        
   Закончитесь если
Закончитесь если


BhpStrRank = 0
Функция конца

Общественная функция KWStrRank (StrClient как шнур, CWKw как длиной, опционное отклонение как интежер)
Тусклое StrCientln как шнур
Тусклое ValueMin как длиной
Тусклое ValueMax как длиной
Тусклое ValueCWIn как длиной
Затемните a как длиной
Затемните b как длиной
Затемните StrTemp как шнур
Затемните StrTemp2 как шнур
Затемните StrArray () как шнур
Затемните против как интежер
Затемните teststr как шнур


Если IsNull (ValueCWIn) после этого
    ValueCWIn = 0
            
Еще
    ValueCWIn = CWKw
            
Закончитесь если

Если (varianceIn) = 0 после этого

    ValueMin = ValueCWIn - 5
    ValueMax = ValueCWIn + 5
Еще

    ValueMin = ValueCWIn - varianceIn
    ValueMax = ValueCWIn + varianceIn

Закончитесь если

Если IsNull (ValueCWIn) = True или ValueCWIn = 0 после этого

Еще
    Если <= 0 Len (StrClient) или IsNull (StrClient) после этого
    KWStrRank = 0
    Выходите функция
    Еще
        Если ValueCWIn = StrClient после этого
        KWStrRank = 2
                       
                        
        Выходите функция
            
        Еще
        StrTemp = SplitNumeralandText (StrClient)
        
            StrTemp2 = RegExpReplace (StrTemp, «[^0-9]», «")
            StrArray = разделило (StrTemp2)
         
            
            Для a = LBound (StrArray ()) К UBound (StrArray ())
                Для b = ValueMin к ValueMax
                    Если (StrComp (StrArray (a), CStr (b), 1) = ложно) после этого
                       
                            KWStrRank = 1
                       
                        
                        Выходите функция
                    Закончитесь если
                    Следующий b
            Затем a
        Закончитесь если
        
   Закончитесь если
Закончитесь если


KWStrRank = 0



Функция конца

Общественное getTechDetail функции (StrClient как шнур, TechSpec как шнур, опционное отклонение как интежер) как интежер
'Тусклое StrCientln как шнур
'Тусклое ValueMin как длиной
'Тусклое ValueMax как длиной
'Тусклое ValueIn как длиной
'Затемните a как длиной
'Тусклый b как длиной
'Тусклое StrTemp как шнур
'Тусклое StrTemp2 как шнур
'Тусклое StrArray () как шнур
'Тусклый счетчик как интежер
'Тусклое teststr как шнур

Если StrClient = "" или «0» после этого


Еще



Если (отклонение) = 0 после этого отклонений = 5

 
       

     
        
        

 



Если IsNull (ValueIn) = True или ValueIn = 0 после этого

Еще
    Если <= 0 Len (StrClient) или IsNull (StrClient) после этого
    getTechDetail = 0
    Выходите функция
    Еще
        Если ValueIn = StrClient после этого
        getTechDetail = 2
                       
                        
        Выходите функция
            
        Еще
        StrTemp = SplitNumeralandText (StrClient)
        
            StrTemp2 = RegExpReplace (StrTemp, «[^0-9]», «")
            StrArray = разделило (StrTemp2)
            ValueMin = ValueIn - отклонение
            ValueMax = ValueIn + отклонение
            
            Для a = LBound (StrArray ()) К UBound (StrArray ())
                Для b = ValueMin к ValueMax
                    Если (StrComp (StrArray (a), CStr (b), 1) = ложно) после этого
                       
                            getTechDetail = 1
                       
                        
                        Выходите функция
                    Закончитесь если
                    Следующий b
            Затем a
        Закончитесь если
        
   Закончитесь если
Закончитесь если
Закончитесь если

getTechDetail = 0
Функция конца
Общественная функция BodyRank (ClientStr как шнур)
Тусклое ValueIn как шнур




 
 Если IsNull, то ([формы]! [основа]! [Обычный псевдоним CW тела]. Значение) после этого
    ValueIn = ""
            
 Еще
    ValueIn = [формы]! [основа]! [Обычный псевдоним CW тела]. Значение
     
 Закончитесь если

Если StrComp, то (ValueIn, ClientStr, 1) = ложно после этого
    BodyRank = 1
    Выходите функция
Закончитесь если

BodyRank = 0

Функция конца

class=

Ответ : тип vba аргумента byref ошибки рассогласования

Взгляды iего t как ваша проблема что вы определяли CWValueIn по мере того как вариант & в функциях они всегда надеется длиннее.
Пример KWRank (ClientIn вариант как, CWKWIn как длиной.

Гэри

Другие решения

Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?

Шнур ошибки в блоке задвижки?

сколько вариант сервера SQL на одной машине

Внешний вид 2007 не может архивный файл открытой сети сохраненный

Активно директория DNS записывает вопрос

Отчет о доступа 2010 экспорта к CSV с коллекторами?

Прокладчик OCE 9400 не начинает

как добавить десятичное место в формуле в отчете о кристалла seagate

Windows XP и Мичрософт Оутлоок и проблемы установителя Windows

VB6 к VS2010 - консультации тренировки?