Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Опять поле со списком / 8 сообщений из 8, страница 1 из 1
19.08.2004, 13:56:23
    #32656789
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
Парни а подскажите как можно из кода
закрыть список , если он открыт или как
можно запретить ему открыватся ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 13:59:56
    #32656803
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
1. SetFocus на другой контрол
2. Control.locked = true
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 14:04:44
    #32656817
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
Control.locked = true и Control.Enabled = false
Вот тогда открываться не будет :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 14:11:17
    #32656835
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
Не ни то....
Когда вызвано событие отсутствие в списке то
1. SetFocus на другой контрол
2. Control.locked = true

вызывает ошибку
а мне надо просто закрыть раскрывшийся список
т.к. новое значение я уже внёс

Чтоб было понятно весь код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub nationality_NotInList(NewData As String, Response As Integer)

If Not IsNull(nationality) Then
   Response = False
  'можно и так но мне нужно значение соседнего поля ID 
  'DoCmd.RunSQL "INSERT INTO Nationality ( NationalityM ) SELECT " & "'" & Trim(NewData) & "'" & " AS newDataN;" 
  Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Nationality ")
With rst
.AddNew
.Fields("NationalityM") = Trim(NewData)
Me.nationality = .Fields("id")
 'MsgBox Me.nationality & "         " & .Fields("id") 
nationality.RowSource = nationality.RowSource
.Update
.Close
End With

Set dbs = Nothing
Set rst = Nothing
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 14:30:18
    #32656901
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
1. В общем так. Я придумал изврта :)
SetFocus будет работать, если:
Me.nationality = Null
me!control.setfocus
А на событие GotFocus контрола вешай присваивание значения списку Me.nationality

2. По-моему так лучше, но это на любителя :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub nationality_NotInList(NewData As String, Response As Integer)

If Not IsNull(nationality) Then
   Response = False
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Nationality ")
With rst
.AddNew
!NationalityM = Trim(NewData)
Me.nationality = !id
nationality.RowSource = nationality.RowSource
.Update
.Close
End With

Set rst = Nothing
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 14:48:15
    #32656977
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
авторSetFocus будет работать, если:
Me.nationality = Null
me!control.setfocus
А на событие GotFocus контрола вешай присваивание значения списку Me.nationality

не зя
я ж newdatу из списка использую


автор2. По-моему так лучше, но это на любителя :)

точно - на любителя !
! NationalityM = - я так не делал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 15:08:06
    #32657048
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
Вот так у меня работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Category_list_NotInList(NewData As String, Response As Integer)
    Dim a As DAO.RecordSet
    Dim r As Long
    Response = False
    Set a = CurrentDb.OpenRecordset("__temp_NAME_BOOK")
    With a
    .AddNew
    !Name = Trim(NewData)
    !ID =  8 
    r = !ID
    Me!Category_list.RowSource = Me!Category_list.RowSource
    .Update

End With

Me!Category_list = Null
Me!Code_List.SetFocus
Me!Category_list = r
a.Close
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 15:25:03
    #32657121
Vw
Vw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Опять поле со списком
Ай спасибочки !!!
Буквально разжевал всё!!!
Только что фокус придётся кидать - не очень красиво,
но придёться смирится...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Опять поле со списком / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 288ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1672333]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 191ms
total:  288ms
x
x
Закрыть


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