|
Zdravím všechny z masa a kostí. Mám tady prosbičku se kterou bojuji a nemohu se dohledat konce a rád bych poprosil nějakou dobrou duši, aby mi poradila. Věc funguje tak, textové pole apl. word má přidělené makro pro otevření form vb. který je propojen s databází. Combobox zobrazí v seznamu sloupec z tabulky db a po výběru se vloží do textového pole ve wordu. A problem je takový, aby po výběru v comboboxu se vypsal i obsah provázáného sloupce v databázi do textboxu v již zmíněném formuláři visual basicu.
Option Explicit
'Define Variables
Private Sub closebutton_Click()
End
End Sub
Private Sub ComboBox1_Change()
ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
End Sub
Private Sub UserForm_Initialize()
Dim dbDatabase As Database
Dim rscinnost As Recordset
Dim i As Integer
Dim aResults()
' Připojení k databázi
' cesta k databázi.
Set dbDatabase = OpenDatabase("C:\cinnosti.accdb")
' code pro určení a načtení vybrané tabulky z databáze
Set rscinnost = dbDatabase.OpenRecordset("pracovni_cinnosti", dbOpenSnapshot)
i = 0
With rscinnost
' vypis sloupce ve výběru pole se seznamem
' a určení názvu sloupce.
Do Until .EOF
ComboBox1.AddItem (i)
ComboBox1.Column(0, i) = .Fields("Nadpis")
.MoveNext
i = i + 1
Loop
If ComboBox1.Value = 1 Then
TextBox1.Text = .Fields("Obsah")
End If
End With
End Sub
|