iCentar » Racunari i oprema » Programirannje i baze podataka » Access

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » Pretraga

White Man	15.01.2019 22:21
Predmet:Pretraga Jel moze neko da napise kod za pretragu u primeru? Kade se upise ime i prezime da prebaci na taj rekord. Hvala puno unapred
Prilozi: Pretraga.rar (Velicina datoteke:21.76 KB)

zxz	16.01.2019 01:31
Predmet:Re: Pretraga Napravi jedan komandni taster. Na on klik tog tastera stavi sledeci kod: PreuzmiIzvorni kôd (Visual Basic): Private Sub ImeTastera_Click() Dim sql As String Dim kriterij As String kriterij = Me.Text11 & "'" sql = "SELECT FROM Imenik WHERE (Ime & ' ' & prezime) like '" & kriterij Me.RecordSource = sql End Sub

White Man	16.01.2019 11:36
Predmet:Re: Pretraga Radi, ali kad se ukuca ime i prezime koji ne postoje, ono otvori za upis novog rekorda. Sta trebam da uradim da ne otvara na novi rekord, nego da izbaci obavestenje da ne postoji ime u bazi? Hvala unapred

zxz	16.01.2019 14:02
Predmet:Re: Pretraga Ovaj postojeci kod malo izmijeni PreuzmiIzvorni kôd (Visual Basic): Private Sub ImeTastera_Click() Dim sql As String Dim kriterij As String kriterij = Me.Text11 & "'" sql = "SELECT FROM Imenik WHERE (Ime & ' ' & prezime) like '" & kriterij Me.RecordSource = sql If Me.RecordsetClone.RecordCount = 0 Then MsgBox "nema podataka" End If End Sub a da ti ne skace na novi upis u property forme nadji opciju allow additions i stavi NO. Ona ti je na tabu data.

zxz

16.01.2019 14:02

Predmet:Re: Pretraga

Ovaj postojeci kod malo izmijeni

PreuzmiIzvorni kôd (Visual Basic):

Private Sub ImeTastera_Click()
Dim sql As String
Dim kriterij As String
kriterij = Me.Text11 & "*'"
sql = "SELECT * FROM Imenik WHERE (Ime & ' ' & prezime) like '" & kriterij
Me.RecordSource = sql
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "nema podataka"
End If
End Sub

a da ti ne skace na novi upis u property forme nadji opciju allow additions i stavi NO.
Ona ti je na tabu data.

White Man	16.01.2019 19:49
Predmet:Re: Pretraga Kad stavim opciju allow additions na NO, kad nema podataka, nestane sve sa forme i komande i polja vidi se samo prazna forma. Ako to ne moze da se ubaci u kod na if ako nema imena da ne reaguje nema veze, neka ide na novi rekord. A sta trebam da promenim u kodu da bi radio ako ga stavim u text box na on enter? Hvala unapred

zxz	16.01.2019 20:30
Predmet:Re: Pretraga Na on enter nemoze raditi jer on enter je dogadjaj koji se desi kada dodjes u polje za pretragu znaci prije kucanja kriterija ali se moze staviti na on dirty ili on exit i onda kada pritisnes enter trebalo bi da radi

White Man	16.01.2019 23:10
Predmet:Re: Pretraga Ok, radi dobro i ovako, hvala. Sta trebam da dodam u kodu kad otvorim jos jedan text box za grad, ali da bude neobavezno? Da radi i ako se ukuca grad i ako se ne ukuca, Hvala unapred

zxz	17.01.2019 00:04
Predmet:Re: Pretraga E sad neznam kako si mislio jeli ovako ime prezime grad Ili si mislio da bilo sta ukucas ili ime ili prezime ili grad.

White Man	17.01.2019 00:54
Predmet:Re: Pretraga Da bude kao u query-u prvi uslov u criteria a drugi u or, stavio sam u primeru kako treba da izgleda na formi. Hvala unapred
Prilozi: Pretraga.rar (Velicina datoteke:24.54 KB)

zxz	17.01.2019 11:59
Predmet:Re: Pretraga evo novi kod PreuzmiIzvorni kôd (Visual Basic): Private Sub Command17_Click() Dim SQL As String, Kriterij As String, RecordSource As String Dim Brojac As Integer SQL = "SELECT * FROM Imenik" Kriterij = "" Dodaj_Kriterij Me.Text11, "(ime & ' ' & prezime)", Kriterij, Brojac Dodaj_Kriterij Me.Text18, "grad", Kriterij, Brojac If Kriterij <> "" Then Kriterij = " WHERE " & Kriterij End If RecordSource = SQL & Kriterij Me.RecordSource = RecordSource If Me.RecordsetClone.RecordCount = 0 Then MsgBox "Nema podataka" End If End Sub Private Sub Dodaj_Kriterij(VrijednostPolja As Variant, ImePolja As String, Kriterij As String, Brojac As Integer) If VrijednostPolja <> "" Then If Brojac > 0 Then Kriterij = Kriterij & " AND " End If Kriterij = (Kriterij & ImePolja & " Like " & Chr(39) & VrijednostPolja & Chr(42) & Chr(39)) Brojac = Brojac + 1 End If End Sub

zxz

17.01.2019 11:59

Predmet:Re: Pretraga

evo novi kod

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Command17_Click()
Dim SQL As String, Kriterij As String, RecordSource As String
Dim Brojac As Integer
SQL = "SELECT * FROM Imenik"
Kriterij = ""
Dodaj_Kriterij Me.Text11, "(ime & ' ' & prezime)", Kriterij, Brojac
Dodaj_Kriterij Me.Text18, "grad", Kriterij, Brojac
If Kriterij <> "" Then
Kriterij = " WHERE " & Kriterij
End If
RecordSource = SQL & Kriterij
Me.RecordSource = RecordSource
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Nema podataka"
End If
End Sub
Private Sub Dodaj_Kriterij(VrijednostPolja As Variant, ImePolja As String, Kriterij As String, Brojac As Integer)
If VrijednostPolja <> "" Then
If Brojac > 0 Then
Kriterij = Kriterij & " AND "
End If
Kriterij = (Kriterij & ImePolja & " Like " & Chr(39) & VrijednostPolja & Chr(42) & Chr(39))
Brojac = Brojac + 1
End If
End Sub

Sva vremena su GMT +02:00.
Viscacha 0.8.1.3