ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск одновременно по 2-ум полям
5 сообщений из 5, страница 1 из 1
Поиск одновременно по 2-ум полям
    #33372089
Лотос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лотос
Гость
ListClients - таблица, в которой ищем
Account - первое искомое поле
MFO - второе искомое поле

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim intSearch As Integer, varX_1 As Variant, varX_2 As Variant
Dim strSearch As String
strSearch = ""
varX _1= DLookup("[Account]", "ListClients", _
    "[MFO] = '" & Forms![EnterListClients]!Account & "'")
If Not IsNull(varX_1) Then ‘ для одного поля
    MsgBox "Found_1" 
End If

varX_2 = DLookup("[MFO]", "ListClients", _
    "[MFO] = '" & Forms![EnterListClients]!MFO & "'")

If Not IsNull(varX_2) Then ‘ для одного поля
    MsgBox "Found2" 
End If

Каждый в отдельности правильно осуществляет поиск в таблице
В поле расчётного счёта ("[Account]" и "[MFO]
Попробовал
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
varX = DLookup("[Account]", "ListClients", "[Account] = '" & _
Forms![EnterListClients]!Account & "' AND [MFO] = '" & _
Forms![EnterListClients]!MFO & "'")

синтаксис правильный, но оба варианта if не выдают found

'первый вариант  If Not IsNull(varX) Then
If IsNull(varX) Then
    MsgBox "Found" 
End If
Не знаю как объединить ОДНОВРЕМЕННЫЙ ПОИСК В ЗАПИСИ
ПО ДВУМ ПОЛЯМ.

СПАСИБО
...
Рейтинг: 0 / 0
10.11.2005, 18:14:50
| Ответить | Цитировать | Написать  
Поиск одновременно по 2-ум полям
    #33373397
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
Если я правильно понял, то может так...
...
Рейтинг: 0 / 0
11.11.2005, 12:48:12
| Ответить | Цитировать | Написать  
Поиск одновременно по 2-ум полям
    #33373952
Лотос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лотос
Гость
Nikz , и ПОНЯЛ почти ПРАВИЛЬНо
и ПРАВИЛЬНО РАБОТАЕТ.
СПАСИБО

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Кнопка3_Click()
Dim varX As Variant
varX = DLookup("[Account]", "ListClients", "[Account] = '" & _
"123" & "' AND [MFO] = '" & _
"asw" & "'")
'+ "asd" & "'")
If Not IsNull(varX) Then
    'MsgBox "Found"
    MsgBox "Found  " & varX
    Else
    MsgBox "Not Found"
End If
End Sub

Сейчас хочу для этой цели применить функцию
DCount , но оба поля надо выьирать из формы
Кто-то говорил, что DCount более надёжная
Пример из Help такой:
Код: plaintext
1.
intX = DCount("[ShippedDate]", "Orders", "[ShipCountry] = '" _
    & Forms!Orders![ShipCountry] & "'AND [ShippedDate] > #1-1-95#")

Имя формы - EnterListClients
Имя поля_1 - Account
Имя поля_2 - MFO
Вместо "Orders" подствим имя "EnterListClients"

Код: plaintext
1.
intX = DCount("[ShippedDate]", "EnterListClients", "[ShipCountry] = '" _
    & Forms!Orders![ShipCountry] & "'AND [ShippedDate] > #1-1-95#")
Если не тягость - помоги,
СПАСИБО
...
Рейтинг: 0 / 0
11.11.2005, 15:18:27
| Ответить | Цитировать | Написать  
Поиск одновременно по 2-ум полям
    #33374020
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim intX As Integer
    
    intX = DCount("*", "ListClients", "[Account] = '" & _
      Me.Account & "' AND [MFO] = '" & Me.MFO & "'")
      
    If intX >  0  Then
        MsgBox intX
    End If
...
Рейтинг: 0 / 0
11.11.2005, 15:35:35
| Ответить | Цитировать | Написать  
Поиск одновременно по 2-ум полям
    #33374130
Лотос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лотос
Гость
Пользователь2 , чувствуется
ПРОФЕССИОНАЛИЗМ !

у меня хуже, я не догадался поставить Me
Код: plaintext
1.
2.
intX = DCount("[Account]", "ListClients", "[Account] = '" & _
     Forms!EnterListClients![Account] & "'AND [MFO] ='" & _
    Forms![EnterListClients]!MFO & "'")

БЛАГОДАРЮ обоих
Nikz и Пользователь2
...
Рейтинг: 0 / 0
11.11.2005, 16:13:45
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск одновременно по 2-ум полям
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33374020&tid=2166887]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 200ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 210ms
total:  498ms
созд. / загр.: 498ms
x
x
Закрыть


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