Popunjavanje vezanih tabela VBA
Pozdrav
Imam 2 vezane tabele koja imaju, da bude prostije samo ova polja:
tblGost:
idGosta
ime
prezime
tblRezervacije:
idRezervacije
od
do
idGosta
brSobe
Postoji forma na kojoj se u textboxove unose brsobe, ime,prezime, od, do i pritiskom na dugme uz pomoc sledeceg koda trebalo bi da se popune te tabele.
Kod je:
Private Sub Command0_Click()
Dim Baza As Database
Dim Forma As Recordset
Dim Destinacija As Recordset
Dim Polje1 As Integer
Dim Polje2 As Date
Dim Polje3 As Date
Dim Polje4 As String
Dim Polje5 As String
Dim Zapis As String
Set Baza = CurrentDb()
Polje1 = Me!Text1
Polje2 = Me!Text4
Polje3 = Me!Text6
Polje4 = Me!Text8
Polje5 = Me!Text10
Set Destinacija = Baza.OpenRecordset("tblGost", dbOpenDynaset)
With Destinacija
.AddNew
![Ime] = Polje4
![Prezime] = Polje5
.Update
End With
If True Then
Set Destinacija = Baza.OpenRecordset("tblRezervacije", dbOpenDynaset)
With Destinacija
.AddNew
![brojSobe] = Polje1
![od] = Polje2
![do] = Polje3
.Update
End With
...
Sve se dobro upisuje osim polja idGosta u tabeli tblRezervacije. Zanima me kako da modifikujem kod da se to polje popuni sa istim idGosta poljem iz tabele tblGost koje se popunjava funkcijom autonumber ? Mozda neko ima neko bolje rijesenje.
Hvala
 |  |
 |
