Neznam koliko ću ti moć pomoć jer vidim da ovo treba postavit od samog početka.Ali koliko vidim tebe muči I pitanje kako ćeš u sql izkazu promijenit tražene vrijednosti.
Ovo ti je jedan kod koji meni iz dva kombo boxa pretražuje bazu na osnovu unijetih kriterija.U prvi combobox cbological upisujem gdje (koju kolonu)pretražujem.A u drugom comboxu upisujem što tražim.
To bi moglo biti riješenje za dio tvog problema.Kako promijenit vrijednosti u sql izrazu.
[blue
“Samo...Svaki put, kada putem combo-boxova selektiram nova polazišta i dolazišta, ovaj gore navedeni statement će morati sadržati NOVE vrijednosti između navodnih znakova, dakle ne više FRA i AMS ! Šta se onda mora koristiti na poziciji, gdje idu kodovi aerodroma ?”]
Znači da u formi imaš dva comboboxa a u kodu ih onda stavi u ovisnosti o sql izkazu.
Ja ti ovako za sad mogu pomoć.Ti dalje to radi pa navedi konkretni problem a onda ćemo probat nać to riješenje!
Private Sub cmdRunQuery_Click()
Dim strSQL As String
On Error GoTo Err_cmdRunQuery_Click
DoCmd.maximize
‘ako je vrijednost u comboxu “” prekida izvršenje
If IsNull(Me!cboLogical) Or IsNull(Me!txtCostCenter) Then
MsgBox "NISTE UNIJELI KRITERIJ ZA PRETRAZIVANJE"
Exit Sub
End If
Rem MsgBox " tu sam " & Year([Datum Nabave]) & "unos" & Year(Me![txtCostCenter])
'*** create the string based on the information on the form
strSQL = "SELECT amortizacija.* FROM amortizacija WHERE "
If (Me![cboLogical] = "Naziv sredstva") Then
strSQL = strSQL & " LTRIM([Naziv sredstva]) like """ & Me![txtCostCenter] & """"
End If
If (Me![cboLogical] = "Konto") Then
strSQL = strSQL & "[konto] like """ & Me![txtCostCenter] & """"
End If
If (Me![cboLogical] = "Datum Nabave") Then
strSQL = strSQL & "Year([Datum Nabave]) like """ & Year(Me![txtCostCenter]) & """"
End If
'*** set the record source
Me.RecordSource = strSQL
Me.Requery
Me!txtCostCenter.DefaultValue = ""
Me!txtCostCenter.Enabled = False
Me!cboLogical.DefaultValue = ""
Me!cboLogical.Enabled = True
Me!txtCostCenter.InputMask = ""
Exit_cmdRunQuery_Click:
Exit Sub
Err_cmdRunQuery_Click:
MsgBox Err.Description
Resume Exit_cmdRunQuery_Click
End Sub
romano