1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
Public Function FctChargeRegion(ByRef StrRegion As String) As Boolean
On Error GoTo ErrHandler
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String
Dim StrParam As String
FctChargeRegion = False
SQL = "SELECT Site.Site, Ville.Ville, Region.NomRegion" & _
" FROM ReqLocalisation" & _
" WHERE " & BuildCriteria("Region.NomRegion", dbText, IIf(StrRegion = "NAT", "*", StrRegion)) & " ; "
Set rs = CurrentDb.OpenRecordset(SQL, DB_OPEN_DYNASET)
If rs.RecordCount > 0 Then
Form_FrmFormulaireIncident.NumSite.RowSourceType = "Table/Query"
Form_FrmFormulaireIncident.NumSite.RowSource = SQL
Form_FrmFormulaireIncident.NumSite.Requery
Else
Err.Description = "Il n'y a pas de région référencée dans la base"
Err.Raise 1
End If
FctChargeRegion = True
ExitHandler:
rs.Close
Set rs = Nothing
Set db = Nothing
Exit Function
ErrHandler:
MsgBox Err.Description, vbExclamation, CstAppName
FctChargeRegion = False
Resume ExitHandler
End Function |
Partager