Pozdrav, narode!
Ocekujem da je po srijedi neka glupost ali i mali problem je idalje problem. Zar ne? Objasnicu najjednostavnije moguce.
Vise mi je cudno sto je jedom sve sto proslo bez greske a sad mi se ona javlja. Mora biti da nesto previdjam...
Tabela ima Id_citalac kao number, Prezime_ime kao text. Izborom vrijednosti u Combo boxu u tekstualna polja se ispisuje to kao i ono ostalo, sto se takodje moze izabrati u drugom Combo boxu... Podeseno je sve u Properties kako treba, SELECT Tabela.Id_Citalac, Tabela.prezime_ime FROM Tabela i SELECT Tabela.Id_citalac FROM Tabela. Kod za Combo box Nadji_prezime i Nadji_citalac je Event procedure, sledece:
Private Sub Nadji_prezime_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Id_Citalac] = " & Str(Me![Nadji_prezime])
Me.Bookmark = rs.Bookmark
Id_Citalac.SetFocus
Nadji_prezime.Value = ""
End Sub
Private Sub Nadji_prezime_NotInList(NewData As String, Response As Integer)
On Error GoTo Greska
Greska:
Nadji_prezime.Undo
Response = accDataErrorContinue
MsgBox "Neispravan unos ili prezime/ime ne postoji!", vbInformation, "Gre?ka"
End Sub
-------------------------------------------------
Private Sub Nadji_citalac_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Id_Citalac] = " & Str(Me![Nadji_citalac])
Me.Bookmark = rs.Bookmark
Id_citalac.SetFocus
Nadji_citalac.Value = ""
End Sub
Private Sub Nadji_citalac_NotInList(NewData As String, Response As Integer)
On Error GoTo Greska
Greska:
Nadji_citalac.Undo
Response = accDataErrorContinue
MsgBox "Neispravan unos ili ID eitalac ne postoji!", vbInformation, "Greška"
End Sub
---------------------------------------------------------------
Kad uradim sve analogno za drugu tabelu sa postavljenim analogno detaljima javlja mi se ova greska. Zasto se ona javlja i kako da je se rijesim konacno? Hvala svima onima koji odgovore kako treba :)