| |
|
|
| | Надо загрузить программно форму, зная её имя
Хотел побегать по коллекции, найдя нужную отобразить её
но там тока загруженные формы
А вот Load Form_name никак не работает....
====================================
Dim frm As Form
For Each frm In Forms
Unload frm
Next
Выгрузка это лекко, а вот загрузка  | |
| |
| |
|
|
| |
|
|
| | Извините не шоу
а лоад фрм.наме
Dim i As Form
For Each i In Forms
If i.Name = Me!LV1.SelectedItem.SubItems(1) Then
Load i
i.Name.Show vbModal
Exit Sub
End If
Next i
|
| |
| |
| |
| |
|
|
| |
Dim i As Form
For Each i In Forms
If i.Name = Me!LV1.SelectedItem.SubItems(1) Then
Load i.Name
Forms(i.Name).Show vbModal
Exit Sub
End If
Next i
|
 | |
| |
| |
|
|
| |
|
|
| | та я не советую :) просто поддерживаю беседу :) | |
| |
| |
| |
|
|
| | думал так
Dim i As Form
Set i.Name = Me!LV1.SelectedItem.SubItems(1)
Load i | |
| |
| |
| |
|
|
| | Дело в том, что не видно в коллекции той формы, которая ещё не загружена | |
| |
| |
| |
|
|
| | Load Forms.Form.Name(Me!LV1.SelectedItem.SubItems(1))
Forms(Me!LV1.SelectedItem.SubItems(1)).Show vbModal
не катит | |
| |
| |
| |
|
|
| |
Dim form_name As String
form_name = "Form2"
Forms.Add(form_name).Show
End Sub
|
? | |
| |
| |
|
|
| |
|
|
| |
I Create Dynamic Form When i click the button
Try this code
Dim objform As New Form
objform.Text = "Dynamic Form"
objform.Show()
Hope it works
|
| |
| |
| |
| |
|
|
| | ВОТ СИЛЫЧ - ВОТ ЭТО как ты и подразумевал - работает
Dim form_name As String
form_name = Me!LV1.SelectedItem.SubItems(1)
Unload FRM_DOCS
Forms.Add(form_name).Show vbModal
|
| |
| |
| |
| |
|
|
| | я сёдня как в тире :)  | |
| |
| |
| |
|
|
| | Точна в цел 
===================================
Самоесмешное
Forms.Add( Me!LV1.SelectedItem.SubItems(1)).Show vbModal - так не работает - перескакивает на первую запись. | |
| |
| |
|
|
| |
|
|
| | както так?
unload?
Froms.remove item? | |
| |
| |
| |
|
|
| | наверно remove
тока как.... | |
| |
| |
|
|
| |
|
|
| | так и сделаем!!!!!!! 
PS . нихр... там не написино... | |
| |
| |
| |
|
|
| | Вопрос не закрыт  | |
| |
| |
