powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / String длиннее 255 символов в VBA
52 сообщений из 52, показаны все 3 страниц
String длиннее 255 символов в VBA
    #34327265
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не получается записать в переменную, объявленную как string, текст длиннее 255 симоволов. При записи в эту переменную аксесс тупо отрезает все "лишние" символы. Можно ли как-то обойти эту проблему? Или у меня просто кривые руки?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327280
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если эта "переменная" - текстовое поле формы связанное с полем текстого типа источника данных таблица, то руки прямые :-)
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327289
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RestavraciyaЕсли эта "переменная" - текстовое поле формы связанное с полем текстого типа источника данных таблица, то руки прямые :-)

Нет, все идет только из кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim ww As String
    Dim intNum As Integer
    Dim strQuery As String( 1024 )



    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null"

Когда добавляю ещё проверку одного параметра:
Код: plaintext
        If Forms!ChoosePeriod.CheckMy = - 1  Then strQuery = strQuery & " and Manager=User_id()"

последние скобки у меня уже не помещаются
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327299
LeonM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проверьте:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub sss()
    Dim i, s
    For i =  1  To  10000 
        s = s & "s"
    Next
    i = Len(s)
    Stop
End Sub
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327322
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
скобки для чего ?
может надо * ?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327328
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
LeonMПроверьте:


Проверил, работает. В чем секрет не понял. Попробовал сделать

Код: plaintext
Dim strSQL 

у меня количество символов увеличилось до 256 ;) но пропала закрывающая кавычка О_О
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327329
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Restavraciyaскобки для чего ?
может надо * ?

Скобки - показатель того, что это SQL функция.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327353
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnya Restavraciyaскобки для чего ?
может надо * ?

Скобки - показатель того, что это SQL функция.С этого места поподробнее
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327371
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Restavraciya sunnyaСкобки - показатель того, что это SQL функция.С этого места поподробнее
У меня есть формочка, в которой я генерирую SQL запрос на основании контролов на форме: куча всяких переключателей, выпадающий список, чекбокс.

После того как пользователь выбрал все, что ей надо, она нажимает кнопочку, по которой формируется SQl запрос, отправляемый собственно говоря на SQl сервак для последующей обработки. Дальше у меня все в шоколаде. Проблема в ВБА. Он просто не дает мне запихать столько символов в переменную сколько мне хочется
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327448
COP001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я тоже с этим сталкивался, как обойти не нашел, поэтому собирал строку не в переменную, а прямо в DoCmd.RunSQL("SELECT ...")
Так срабатывает нормально.
Хотя ситуёвина непонятная и неприятная.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327565
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnya Restavraciya sunnyaСкобки - показатель того, что это SQL функция.С этого места поподробнее
У меня есть формочка, в которой я генерирую SQL запрос на основании контролов на форме: куча всяких переключателей, выпадающий список, чекбокс.

После того как пользователь выбрал все, что ей надо, она нажимает кнопочку, по которой формируется SQl запрос, отправляемый собственно говоря на SQl сервак для последующей обработки. Дальше у меня все в шоколаде. Проблема в ВБА. Он просто не дает мне запихать столько символов в переменную сколько мне хочетсяИзвиняюсь за свою ограниченность, но я так и не понял - зачем стоят скобки (тем более что у меня пример ругается на них)
Ну и присваивайте переменной интерпритацию ваших чекбоксов разбавляя их ЭНДами и ОРами
Я тоже динамически набираю строку - никогда не упирался в максимум длины (256 символов точно переваливало)
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327626
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RestavraciyaИзвиняюсь за свою ограниченность, но я так и не понял - зачем стоят скобки (тем более что у меня пример ругается на них)
Ну и присваивайте переменной интерпритацию ваших чекбоксов разбавляя их ЭНДами и ОРами
Я тоже динамически набираю строку - никогда не упирался в максимум длины (256 символов точно переваливало)

В MsSQL есть такая функция встроенная user_id(), без скобок она не работает. Пустые скобки в данном случае обозначают текущего пользователя, следственно функция возвращает айдишник текущего пользователя и его уже можно сравнить с колонкой в таблице.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327633
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
COP001я тоже с этим сталкивался, как обойти не нашел, поэтому собирал строку не в переменную, а прямо в DoCmd.RunSQL("SELECT ...")
Так срабатывает нормально.
Хотя ситуёвина непонятная и неприятная.

Спасибо, навел на очень хорошую идею:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE (year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null)"
        
        If Forms!ChoosePeriod.CheckMy = - 1  Then strQ1 = " and Manager=User_id()"
        
    Forms!WM.RecordSource = strQuery & strQ1

Вот это уже работает)))
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327650
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ОБЪЯСНИТЕ ТУПОМУ!!!! ПОЧЕМУ ЭТО РАБОТАЕТ, А В МОЕМ КОДЕ НЕ РАБОТАЕТ, А ОБРЕЗАЕТ?!!!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub sss()
    Dim i, s
    For i =  1  To  10000 
        s = s & "s"
    Next
    i = Len(s)
    Stop
End Sub
[/quot]

а то я уже капсом как блондинка начал орать(((
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327665
не догоняю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sunnya
Нет, все идет только из кода:

Код: plaintext
1.
2.
3.
4.
    .......
    Dim strQuery As String( 1024 )

...................

последние скобки у меня уже не помещаются
у меня Dim strQuery As String(1024) даже не компилируется. Если убрать, то все помещается в строчную переменную нормально. Или я чего-то не догоняю.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327675
bgn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а сказали же что не () а *
нужно

F1Существует два типа строковых значений:

· Строки переменной длины, которые могут содержать до приблизительно 2 миллиардов (2^31) символов.
· Строки постоянной длины, которые могут содержать от 1 до приблизительно 64K (2^16) символов.

Примечание. Не допускается использование в модулях класса строк постоянной длины, описанных с ключевым словом Public.

Кодами для символов, образующих значения типа String, служат целые числа в диапазоне от 0 до 255. Первые 128 символов (0–127) набора символов, соответствуют буквам и символам стандартной американской клавиатуры. Эти первые 128 символов совпадают с набором символов ASCII. Следующие 128 символов (128–255) представляют буквы национальных алфавитов, буквы с надстрочными символами, символы денежной единицы и дроби. Символом описания типа для типа String служит символ доллара ($).

Dim s*10 'строка из 10 символоФ
Dim s as String 'строка переменной длины
Dim s 'переменная типа Variant


F1Тип данных Variant является типом, к которому относятся все переменные, не описанные явно с другим типом данных (с помощью инструкций Dim, Private, Public или Static). Для типа Variant не определен символ описания типа.
Variant является особым типом данных. Переменные этого типа могут содержать любые данные, за исключением строк (тип String) фиксированной длины и определяемых пользователем типов. Переменная типа Variant может также содержать специальные значения Empty, Error, Nothing и Null. Указать характер подтипов типа Variant позволяют функции VarType или TypeName.

Допустимыми числовыми данными являются любые целые или действительные числа в диапазоне от -1,797693134862315E308 до -4,94066E-324 для отрицательных значений и от 4,94066E-324 до 1,797693134862315E308 для положительных значений. В общем случае, числовые данные типа Variant сохраняют свой исходный тип данных внутри типа Variant. Например, если присвоить переменной типа Variant значение типа Integer, то в последующих операциях Variant трактуется как Integer. Однако, если арифметическая операция, выполненная над переменной типа Variant, содержащей значение типа Byte, Integer, Long или Single, приводит к тому, что результат выходит за границы диапазона допустимых значений исходного типа, то результат преобразуется к следующему более широкому типу внутри типа Variant. Значение типа Byte преобразуется к типу Integer, Integer преобразуется к типу Long, а значения типа Long и Single преобразуются к типу Double. Ошибка возникает, если за пределы допустимого диапазона значений выходят переменные типа Variant, содержащие значения типа Currency, Decimal или Double.

Пользователь имеет возможность использовать тип Variant вместо любого типа данных, чтобы обеспечить большую гибкость при обработке данных. Если содержимым переменной типа Variant являются цифры, то в разном контексте они могут рассматриваться либо как строковое представление числа, либо как число. Например:

Dim MyVar As Variant
MyVar = 98052

В этом примере переменная MyVar содержит представление числового значения 98052. Арифметические операторы можно применять к значениям типа Variant, содержащим как числа, так и строковые значения, которые могут быть интерпретированы как числа. Если применить оператор + для сложения переменной MyVar с другой переменной типа Variant, содержащей число, или с переменной числового типа, то результатом будет арифметическая сумма.

Значение Empty определяет переменную типа Variant, которая не была инициализирована (не получила начальное значение). Переменная типа Variant, содержащая значение Empty, рассматривается как 0 в контексте математических операций и как пустая строка ("") в контексте операций со строковыми значениями.

Не следует путать значения Empty и Null. Null указывает, что переменная типа Variant имеет пустое значение в результате конкретных операций.

Для типа Variant значение Error является специальным значением, которое используется для указания возникновения условия ошибки в процедуре. Однако в отличие от других типов ошибок при этом не происходит нормальной обработки ошибок на уровне приложения. Это позволяет пользователю или приложению выбрать несколько альтернативных действий на основании значения ошибки. Значения Error создаются путем преобразования действительных чисел в значения ошибки с помощью функции CVErr.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327676
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ничего не понял из вашего объяснения.
При чем здесь user_id() когда речь идет о строковой переменной которая нужна только для того чтобы передать свое значение другой строковой (в данном случае свойству RecordSource)
Повторю вопрос - зачем нужны скобки (1024) и что такое 1024 ?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327679
bgn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
там опечатка нужно Dim s As String * 10, а не Dim s*10
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327689
не догоняю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Присоединяюсь к мемберу Restavraciya.
Моя проверка
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub TestString()
    Dim ww As String
    Dim intNum As Integer
    Dim strQuery As String
   


    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null"
    strQuery = strQuery + strQuery
    Debug.Print strQuery
    
    MsgBox Len(strQuery)
End Sub
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327705
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RestavraciyaНичего не понял из вашего объяснения.
При чем здесь user_id() когда речь идет о строковой переменной которая нужна только для того чтобы передать свое значение другой строковой (в данном случае свойству RecordSource)
Повторю вопрос - зачем нужны скобки (1024) и что такое 1024 ?

Прошу прощения, я неправильно понял вопрос.

(1024) - это случайно закравшаяся ошибка. одна из попыток объявить эту переменную, навроде того что рекомендует bgn bgnDim s*10 'строка из 10 символоФ.

Правда это у меня тоже не компилируется - выделяет звездочку и говорит "Expected: end of statement"(((
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327710
bgn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bgnтам опечатка нужно Dim s As String * 10, а не Dim s*10
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327719
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
bgnтам опечатка нужно Dim s As String * 10, а не Dim s*10
Написал
Код: plaintext
    Dim strQuery As String *  1024 
Переменная все равно 255 знаков
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327753
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
(Бредовая идея)
Может быть у вас тип STRING гдето глобально переопределен ?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327758
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Restavraciya(Бредовая идея)
Может быть у вас тип STRING гдето глобально переопределен ?

не, у меня бы мозгов на это не хватило))) я даже не знаю, что это такое
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327816
Фотография natalitvinenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня такой глюк был. Собирался запрос по частям, анализировались контролы...
Преодолеваю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim Otdel As String, cly As String, pre As String
    Dim gorod As String, mar As String, gonomer As String
    Dim cer As String, kyz As String, Inspektor As String, nomerdvi As String
    .......

    If Отделение =  1  Or ФлажокF Then Otdel = "" Else Otdel = "[Авто].[Отделение]=" & Me![Отделение] & " and "
    If Служба =  1  Or ФлажокF Then cly = "" Else cly = "[Авто].[Служба]=" & Me![Служба] & " and "
    If Пред =  1  Or ФлажокF Then pre = "" Else pre = "[Авто].[Предприятие]=" & Me![Пред] & " and "
    'If ПолеСоСписком35 = 1 Then gorod = "" Else gorod = "[Город]=" & Me![ПолеСоСписком35]
    If Город =  1  Or ФлажокF Then gorod = "" Else gorod = "[Авто].[Город]=" & Me![Город] & " and "
    
    stLinkCriteria = Otdel & cly & pre & gorod & mar & Goz1 & gonomer & cer
    stLinkCriteria = stLinkCriteria & kyz & Inspektor & nomerdvi & nomershi
    stLinkCriteria = stLinkCriteria & nomerkyz & gorodpri & tex & cpic & naz & Oblast1 & Top1 & GAI1
    stLinkCriteria = stLinkCriteria & tip & NewTip & yearspi & IzInDoroga1 & mesta & Yearr & yearEnter & yearCorrect & beg & pri1 & NVSB1 & " 1=1 "
    

Так все работает. Почему - не знаю. A97 Win 98
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327873
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
natalitvinenkoТак все работает. Почему - не знаю. A97 Win 98

А при занесении в конечную переменную разве не обрезает? у меня как раз это и случается(((
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327901
4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnya Когда добавляю ещё проверку одного параметра:
Код: plaintext
 
последние скобки у меня уже не помещаются
а чем вы меряли помесщяемость?
не прислоните измеритель к экрану?
а то ить мне тут не видно.


и вобше давно высказано предположение о наличии на форме текстового поля с именем strQuery, а вы его даже не прокомментировали
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327947
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
4321 sunnya Когда добавляю ещё проверку одного параметра:
Код: plaintext
 
последние скобки у меня уже не помещаются
а чем вы меряли помесщяемость?
не прислоните измеритель к экрану?
а то ить мне тут не видно.

MS Word word count.


4321и вобше давно высказано предположение о наличии на форме текстового поля с именем strQuery, а вы его даже не прокомментировали

RestavraciyaЕсли эта "переменная" - текстовое поле формы связанное с полем текстого типа источника данных таблица, то руки прямые :-)


смотрите третье сообщение в топике, там отрицается наличие текстбоксов на форме в принципе
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327965
тогда...
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно увидеть исправленный код (который по крайней мере компилируется)?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327969
Фотография natalitvinenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnya
А при занесении в конечную переменную разве не обрезает? у меня как раз это и случается(((
Нет! В том то и дело, что при сборе не в одну переменную - не обрезает. Я по молодости сделала так, как указала, а потом решила переделать, как надо, по - правильному, то есть как у Вас. И немедленно всплыла ошибка, о которой вы говорите. Открутила назад.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327970
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
тогда...Можно увидеть исправленный код (который по крайней мере компилируется)?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Dim stDocName As String
    Dim strQuery As String *  1024 
    Dim strQ1
    Dim ww As String
    Dim intNum As Integer
    
    strQ1 = ""
    
    If Forms!ChoosePeriod.Frame =  0  Then ww = "m" Else: ww = "ww"
    intNum = Forms.ChoosePeriod.Combo_dates


    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE (year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null)"
        
        If Forms!ChoosePeriod.CheckMy = - 1  Then strQ1 = " and Manager=User_id()"
        
    Reports!WM.RecordSource = strQuery & strQ1
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327982
Работает. Закомментарил
'If Forms!ChoosePeriod.Frame = 0 Then ww = "m" Else: ww = "ww"
'intNum = Forms.ChoosePeriod.Combo_dates

и убрал
If Forms!ChoosePeriod.CheckMy = -1 Then strQ1 = " and Manager=User_id()"

Reports!WM.RecordSource = strQuery & strQ1
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub TestString2()
Dim stDocName As String
    Dim strQuery As String *  1024 
    Dim strQ1
    Dim ww As String
    Dim intNum As Integer
    
    strQ1 = ""
    
    'If Forms!ChoosePeriod.Frame = 0 Then ww = "m" Else: ww = "ww"
    'intNum = Forms.ChoosePeriod.Combo_dates


    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE (year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null)"
        
    Debug.Print strQuery
    
    MsgBox Len(strQuery)

End Sub
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328001
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
все работает как положеноРаботает.

Вот, а у меня получается, что эта строка (strQuery) все равно не больше 255 знаков
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328004
4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnyaMS Word word count.Ы??????????????????

а отладчики или ошибки уже не в моде?


sunnyaсмотрите третье сообщение в топике, там отрицается наличие текстбоксов на форме в принципепосморел. нашел только:
sunnya Нет, все идет только из кода: что совершенно не отрицает наличия/присуйствия. и вообще многого чего прочего...

покажите куда вы в коде пытаетесь запхнуть вашу строку, и где в коде она не пролазит, и, самое главное - покажите как она у вас не пролазит (т.е. таки прислоните этим боком к экрану)
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328057
Фотография natalitvinenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И еще - не нервничайте, а попробуйте запустить код утром. Может внезапно заработать. Бывало.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328118
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
4321 sunnyaMS Word word count.Ы??????????????????

а отладчики или ошибки уже не в моде?
а какой отладчик вы порекомендуете?

Простите, если я что-то не так говорю, я совершенно не специалист в данном вопросе, но руководство так не считает :(
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328150
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
4321покажите куда вы в коде пытаетесь запхнуть вашу строку, и где в коде она не пролазит, и, самое главное - покажите как она у вас не пролазит (т.е. таки прислоните этим боком к экрану)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    Dim stDocName As String
    Dim strQuery As String *  1024 
    Dim ww As String
    Dim intNum As Integer

    If Forms!ChoosePeriod.Frame =  0  Then ww = "m" Else: ww = "ww"
    intNum = Forms.ChoosePeriod.Combo_dates


    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE (year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null)"
        
        If Forms!ChoosePeriod.CheckMy = - 1  Then strQuery = strQuery & " and Manager=User_id()"
        
    Forms!WM.RecordSource = strQuery & strQ1
После выполнения этого кода (при checkmy = -1) в переменной сохраняется строка:
"SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed FROM tTranslations WHERE (year(datereceived)=year(getdate())and datepart(ww,DateDelivery)=7 and datepart(ww,DateReceived)<=7 or datedelivery is null) and manager=User"
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328185
4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnya После выполнения этого кода (при checkmy = -1) в переменной сохраняется строка:
исчо раз: как вы об этом узнаетет?

вставьте предложенное выше
Код: plaintext
1.
    Debug.Print strQuery
    MsgBox Len(strQuery)
и продемонстрируйте ответы.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328198
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
4321 sunnya После выполнения этого кода (при checkmy = -1) в переменной сохраняется строка:
исчо раз: как вы об этом узнаетет?

вставьте предложенное выше
Код: plaintext
1.
    Debug.Print strQuery
    MsgBox Len(strQuery)
и продемонстрируйте ответы.

Собственно говоря оттуда я это и копировал прежде. Но сейчас почему-то заработало, хотя я ничего не менял... Руки кривые, видимо
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328213
sunnya 4321 sunnya После выполнения этого кода (при checkmy = -1) в переменной сохраняется строка:
исчо раз: как вы об этом узнаетет?

вставьте предложенное выше
Код: plaintext
1.
    Debug.Print strQuery
    MsgBox Len(strQuery)
и продемонстрируйте ответы.

Собственно говоря оттуда я это и копировал прежде. Но сейчас почему-то заработало, хотя я ничего не менял... Руки кривые, видимо
Это отмазка... :-)
Просто нужно быть внимательнее - и внимательно читать вопросы и ответы, которые Вам дают.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34328224
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
миф о кривых рукахЭто отмазка... :-)
Просто нужно быть внимательнее - и внимательно читать вопросы и ответы, которые Вам дают.

Кривые руки - имхо не умение проверять себя и слушать других.

Не подскажете, с чем могла быть связана там ошибка и почему когда я объявлял переменную просто "Dim strQuery as String" ее длина была только 255 знаков?

Можно ли объявить что-то вроде varchar?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34329251
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnyaНе подскажете, с чем могла быть связана там ошибка и почему когда я объявлял переменную просто "Dim strQuery as String" ее длина была только 255 знаков?

Можно ли объявить что-то вроде varchar?Ну нету в VBA типа varchar! А 255 знаков, это где-то, что-то Вы не так делаете. Мне пришлось как-то в программе на Access считывать данные из СОМ-порта в переменную String, так 32К она втягивала спокойно. Ну выложите кусочек Вашей базы, чтобы её пощупать. Чудес на свете практически не бывает.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34329652
COP001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня было так: из кучи конотролов на форме нужно было собирать строку для инсерта, в том числе и выражения типа CONVERT(money, МоеЗначение) причем таких было несколько. При попытке отработать инсерт сообщение о неправильном SQL. В debug смотрю чему равна строка, которую я скармливаю DoCmd.RunSQL и получаю строку обрезанную после 255 знака. (Эту строку копи-пастил в WORD - в свойствах документа размер 255 символов.)
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34330339
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нет ограничения на строку, (для реальных использований, т.е. не для хранения в них книг)
есть при использовании длинных строк происходит обрезание при передачи содержимого этой строки ,но сама строка остаётся целой.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34561563
Запрос с группировкой обрезает строку до 255, если группировку убрать - строка не обрезается. Тупо, в лоб -собрал строку и закинул в таблицу в поле типо MEMO. Лежит там, пока не понадобиться. Окончательный запрос - без группировки, достает строку из таблицы - все работает. Имеется задача - полученный результат выгрузить в EXCEL. Тоже обрезает, поэтому -тупо в лоб, сначала в WORD, а затем из WORD - в EXCEL...
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34568348
Типы данных и размеры полейТип данных «Поле MЕМО» используется для хранения более 255 знаков. В поле MЕМО может находится до 65 536 знаков. Для хранения форматированного текста или длинных документов вместо поля MЕМО создайте поле объекта OLE.
...
Можно отсортировать или сгруппировать текстовые поля и поля типа MEMO, но Microsoft Access использует только первые 255 знаков при сортировке и группировке поля MEMO.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
String длиннее 255 символов в VBA
    #39439969
PavelVX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Займусь некрофилией :)
Офис 2010, ListBox.
В первой колонке название блока параметров, выводится на экран.
Во второй набор параметров. На экран не выводится.
Т.е. пользователь выбирает необходимый ему набор параметров и запускает выполнение.
С развитием системы длинна текста во второй колонке росла. И тут выяснилось, что есть ограничение в длину в 256 символов.

Т.е.
Код: vbnet
1.
2.
3.
4.
5.
Dim str as String
str = "Параметр" & ";" & "ParametersLine ... "
msgbox len(str) 'выведет 635
me.myListBox.AddItem str
msgbox len(me.myListBox.Column(1, 0)) ' выведет 256


Подскажите, можно ли как-то обойти это ограничение?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #39440008
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
PavelVXВ первой колонке название блока параметров, выводится на экран.
Во второй набор параметров. На экран не выводится.

- Убрать вторую колонку от слова вообще...
- когда нужно получить значение, использовать DLookup
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #39440019
PavelVX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если бы можно было использовать таблички, то вопрос бы и не вставал.
Но в данном случае все формируется динамически под конкретного пользователя и конкретные условия.
Таблицу не задействовать :(
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #39440028
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
PavelVXНо в данном случае все формируется динамически под конкретного пользователя и конкретные условия.

Параллельно писать в текстовый массив и брать значение оттуда...
В списке:
0,1,2,3,... первый столбец - нумерация (скрытый), для выбора значения из списка...
Названия блока параметров - второй столбец (показываем)
В массиве:
m(i) - значение (набор параметров), соответствующий выбранному значению в списке.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #39440038
PavelVX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо!
Уже так и начал делать + изменяю размер массива :)
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #39524638
igor.kovalchuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
natalitvinenko,

Тип String в VBA может вмещать до 2 GB данных


string (пере­менной длины)
10 байт + длина строки
приблизительно 2 млрд символов


string (фикси­рованной длины)
Длина строки
65400 символов

http://math.csu.ru/~rusear/VBA/9_VarTypeConst.htm
...
Рейтинг: 0 / 0
52 сообщений из 52, показаны все 3 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / String длиннее 255 символов в VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]