| |
|
|
| | Всем привет.
Есть форма (Форма1). Как с разных форм открывать ее с различными атрибутами. Например с одной формы (Форма2) - для изменения данных. С другой (Форма 3) только для чтения, что бы нельзя было менять данные. До сих пор приходится на одну и ту же таблицу делать 2 формы с разными свойствами.  | |
| |
| |
| |
 13 Кб. |
|
| | Простой пример: | |
| |
| |
| |
17 Кб. |
|
| | Пример чуть сложнее: | |
| |
| |
| |
|
|
| | Большой спасибо! 
Первый пример - то что надо. Как оказалось в своих изысканиях был близок. Только вот эта хрень( ..., , , , ac...) в куске кода?? Но работает.
А вот со вторым примером ??? Займусь расшифровкой.
И все же чем первый хуже второго? Они вроде одинаковы. Остается догадываться:
Set frm = New Form_frm1 - Режим новой записи?
With frm - Типа назначить следующие свойства?
.Caption = .Caption & " (New)" - Открыть в режиме добавления?
.AllowEdits = True - Включить свойство корректуры данных?
.DataEntry = True - Включить свойство ввод данных?
.Move Forms.Count * 300, Forms.Count * 500 - Координаты открытия
.Visible = True - Вывести на экран
End With - Конец процедуре назначения свойств.
Верно понял или все не так? | |
| |
| |
| |
|
|
| |
Set frm = New Form_frm1 - создать экземпляр класса формы "frm1"
With frm - объявление работы с объектом (или структурой)
.Caption = .Caption & " (Edit)" - присвоить значение свойству "Подпись" экземпляру класса формы
.AllowAdditions = False - Запретить добавление записи
.AllowEdits = True - Разрешить изменение записи
.Move Forms.Count * 300, Forms.Count * 500 ' просто сдвиг на экране, что-бы экземпляры
не заслоняли друг-друга полностью, так как одновременно можно открыть несколько
экземпляров класса формы (необязательно).
.Visible = True - вывести на экран
End With - конец блока работы с объектом (структурой)
DataEntry (Из справки) - You can use the DataEntry property to specify whether a bound form
opens to allow data entry only. The Data Entry property doesn't determine whether records can be
added; it only determines whether existing records are displayed. Read/write Boolean.
|
| |
| |
| |
| |
|
|
| | Вот ведь! Спасибо за инфу. По мне все же та что проще лучше.
То что из справки особенно все интересно. | |
| |
| |
