Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка в синтаксисе / 11 сообщений из 11, страница 1 из 1
30.04.2009, 08:29
    #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:40
    #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:41
    #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, 09:02
    #35962543
Mari-Salt1
Mari-Salt1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в синтаксисе
спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2009, 16:13
    #35963769
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в синтаксисе
Mari-Salt1,

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

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

Оно может выполняться, но только если wer = Null. Вы где-то на самом деле храните Null? Не пустую строку, а именно Null?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2009, 16:42
    #35963850
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в синтаксисе
Не будет однозначно. LegalArea это походу текстбокс, который Null вернуть не может.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2009, 16:51
    #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:59
    #35963889
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка в синтаксисе
Antonariy,

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

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

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

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

MsgBox IsNumeric("10E2")

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


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