Cardreader & VBA (картридер)

[Fordros]

Доброго дня, уважаемые форумчани!
Поставили задачку, для формирования актов. Решил сделать через форму, все вроде бы ничего, но есть один нюанс который, собственно, хочу спросить у вас.
При запуске формы, есть активный текстбокс1, после прокатывания карты через картридер (обычный эмулятор клавиатуры) вводится информация считанная с карты, НО... так устроен эмулятор что он ставит Enter не после считывания, а до... Получается что я считываю первую карту - она остается в текстбоксе1, считываю вторую - срабатывает нужный TextBox1_AfterUpdate. А мне нужно чтобы он срабатывал после чтения первой карты!

З.Ы. Прикреплять файл наверное не целесообразно, так как там обычная форма с 4-я текстбоксами, после TextBox1_AfterUpdate считанная информация преобразовывается в читабельный текст который распределяется по остальным текстбоксам.

[Hugo121]

Я знаю картридер, которвый ставит два энтера в процессе - т.е. считывает первый трек, энтер, считывает второй трек, энтер.
Это чтение магнитной полосы - может Ваш читает чип?
И что вообще нужно с прочитанного получить?

Покажите пример файла с этим элементом, опишите задачу подробнее - может быть тогда будет проще помочь.
Делать файл лениво.

P.S. Всёж неполенился и сделал что-то корявое без кодов - забивается инфа сразу в два текстбокса, в каждый по треку.
Что Вам вообще нужно получить - так и не ясно.

[Fordros]

Сообщение от Hugo121

Я знаю картридер, которвый ставит два энтера в процессе - т.е. считывает первый трек, энтер, считывает второй трек, энтер.
Это чтение магнитной полосы - может Ваш читает чип?
И что вообще нужно с прочитанного получить?

Покажите пример файла с этим элементом, опишите задачу подробнее - может быть тогда будет проще помочь.
Делать файл лениво.

P.S. Всёж неполенился и сделал что-то корявое без кодов - забивается инфа сразу в два текстбокса, в каждый по треку.
Что Вам вообще нужно получить - так и не ясно.

Обычный (читает только магнитную полосу) и ставит энтер тоьлко вначале (пример: B5400000200055555^vasiliy/pupkin ^1508101191790000000000733000000)/

Мне нужно чтобы после "прокатки" карты срабатывал макрос (без нажатия какой-либо кнопки), причем фокус с текстбокса1 не уходил (катать будут много карт подряд)

Файл вложил в первый пост

Решил проблему с фокусом:

    Private ReturnPressed As Boolean
     
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
       Cancel = ReturnPressed
    End Sub
     
    Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       If (KeyCode = vbKeyReturn) Then
           ReturnPressed = True
           ListBox1.AddItem TextBox1.Text
       Else
           ReturnPressed = False
       End If
    End Sub

[Hugo121]

С моим ридером и картой работает это всё вместе иначе, как я выше описал. Ну да ладно... Форму уволок, может пригодится куда-нибудь

P.S. Я катаю много подряд просто в текстовый файл, без всяких скриптов. Если случается несчитывание или брак - не страшно.
Когда файл готов - скармливаю его скрипту vbs, который вытягивает что нужно из текста и вываливает в нужном виде в новый файл xls.