Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Runtime error type mismatch 12

[es] :: Access :: Runtime error type mismatch 12

[ Pregleda: 1509 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

a zo zo

Član broj: 117395
Poruke: 189
*.static.sbb.rs.



+1 Profil

icon Runtime error type mismatch 1211.11.2009. u 11:37 - pre 137 meseci
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 :)



 
Odgovor na temu

mita.j
Mita Jovanović
zidar
Požarevac

Član broj: 236159
Poruke: 28
77.46.216.*



Profil

icon Re: Runtime error type mismatch 1211.11.2009. u 20:12 - pre 137 meseci
Pogledaj da li ti ovo odgovara:
Prikačeni fajlovi
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.net.t-com.hr.



+8 Profil

icon Re: Runtime error type mismatch 1213.11.2009. u 17:49 - pre 137 meseci
Greška ti je u varijablama

rs.FindFirst "[Id_Citalac] = " & Str(Me![Nadji_prezime])

izjednačavaš broj sa stringom, zato ti i javlja grešku

tu si mu gore rekao

najdi mi gdje je 1 = kruska

znaći moraš paziti na to što je što, number, string , datum ... itd

lakse bi ti bilo da koristiš Dlookup funkciju

Id_citalac=Dlookup("ID_CITALAC","TblCitalac","Prezime='" & prezime_sa_forme "'" )

tu ti bude izbacio prvog koji postoji u tabeli, problem ti je ako postoje dva ili više ljudi sa istim prezimenom



 
Odgovor na temu

[es] :: Access :: Runtime error type mismatch 12

[ Pregleda: 1509 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.