ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка в синтаксисе
11 сообщений из 11, страница 1 из 1
Ошибка в синтаксисе
    #35962494
Mari-Salt1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mari-Salt1
Гость
Предпоследняя срока..... пожалуйста подскажите

Private Sub LegalArea_GotFocus()
Dim wer As Variant, wer2 As Variant
wer = str(Me.LegalArea)
If IsNull(wer) Then Exit Sub
wer2 = DLookup("Meters", "S_AreaUnits", "Code=" & str(Me.LegalAreaUnit))
If IsNull(wer2) Then MsgBox ("íîëü") Else Me.LegalArea = wer / wer2
End If
End Sub
...
Рейтинг: 0 / 0
30.04.2009, 08:29
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35962505
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Код: plaintext
1.
2.
3.
4.
If IsNull(wer2) Then
    MsgBox ("íîëü")
Else 
    Me.LegalArea = wer / wer2
End If
...
Рейтинг: 0 / 0
30.04.2009, 08:40
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35962506
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Она не нужна.
...
Рейтинг: 0 / 0
30.04.2009, 08:40
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35962508
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Код: plaintext
1.
2.
3.
4.
If IsNull(wer2)=True Then
   MsgBox ("íîëü")
Else
   Me.LegalArea = wer / wer2
End If
...
Рейтинг: 0 / 0
30.04.2009, 08:41
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35962543
Mari-Salt1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mari-Salt1
Гость
спасибо
...
Рейтинг: 0 / 0
30.04.2009, 09:02
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35963769
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Mari-Salt1,

Вы уверены, что это условие у Вас будет выполняться?

Код: plaintext
    If IsNull(wer) Then Exit Sub

Оно может выполняться, но только если wer = Null. Вы где-то на самом деле храните Null? Не пустую строку, а именно Null?
...
Рейтинг: 0 / 0
30.04.2009, 16:13
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35963850
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Не будет однозначно. LegalArea это походу текстбокс, который Null вернуть не может.
...
Рейтинг: 0 / 0
30.04.2009, 16:42
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35963875
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub LegalArea_GotFocus()
Dim wer As String
Dim wer2 As Variant

    wer = CStr(Me.LegalArea.Text)
    If wer="" Then Exit Sub

     wer2 = DLookup("Meters", "S_AreaUnits", "Code=" & wer)

    If Not IsNumeric(wer2) Then 
        MsgBox ("íîëü") 
    Else 
        Me.LegalArea.Text = CDbl(wer) / CDbl(wer2)
    End If


End Sub

?
...
Рейтинг: 0 / 0
30.04.2009, 16:51
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35963889
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Antonariy,

Угу, угу... Я был лишь вежлив...
...
Рейтинг: 0 / 0
30.04.2009, 16:59
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #35963906
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Konst_One,

Попробуй такую мульку:

MsgBox IsNumeric("10E2")
...
Рейтинг: 0 / 0
30.04.2009, 17:05
| Ответить | Цитировать | Написать  
Ошибка в синтаксисе
    #36463074
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VladConnKonst_One,

Попробуй такую мульку:

MsgBox IsNumeric("10E2")

IsNumeric распознает экспоненциальное представление числа с плавающей точкой. Не вижу в этом проблемы. Функция Val корректно преобразует это выражение в Double.
...
Рейтинг: 0 / 0
11.02.2010, 13:30
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка в синтаксисе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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