SQL query VBA Access issue -


i error when try execute code, think have problem in sql query , line "service = dlookup ..." can please ! thank much

    private sub btnconnexion_click()      dim categ integer     dim service string     dim idprof integer      dim db dao.database     dim qdf dao.querydef     dim strsql string     set db = currentdb       'vérification que l'utilisater bien entrer e login et le mot de passe     me.txtlogin.setfocus     if isnull(me.txtlogin)     msgbox "svp entrer votre login ", vbinformation, "login required "     me.txtlogin.setfocus     elseif isnull(me.txtmdp)     msgbox "svp entrer votre mots de passe ", vbinformation, "mdp required "     me.txtmdp.setfocus     else     'vérification que le login et le mdp sont corrects     if (isnull(dlookup("login", "dbo_authentification", "login='" & me.txtlogin.value &       "'"))) or _         (isnull(dlookup("mdp", "dbo_authentification", "mdp='" & me.txtmdp.value & "'")))            msgbox "login ou mdp incorrect"     else     'récupération de l'idcatégorie dans categ, pour préciser les sessions des acteurs selon   leurs catégories professionneles         categ = dlookup("idcategorie", "dbo_professionnel", "idprofessionnel = " &   dlookup("idcompte", "dbo_authentification", "login='" & me.txtlogin.value & "'"))         'docmd.close         if categ = 3             docmd.openform "role"             else             docmd.openform "listingpatients"              'service récupère le service du professionnel authentifié pour l'afficher à   l'entete du formulaire "listingpatients"             service = dlookup("intituleserv", "dbo_service", "idservice = " &   dlookup("idprofessionnel", "dbo_professionnel", "idprofessionnel = " & dlookup("idcompte",   "dbo_authentification", "login='" & me.txtlogin.value & "'")))             forms![listingpatients]![txtintituleserv] = service                strsql = "select dbo_patient.*, dbo_service.intituleserv, dbo_hospitalisatacuelle.lit, dbo_professionnel.idprofessionnel, dbo_hospitalisatacuelle.dateentree, dbo_hospitalisatacuelle.datesortie dbo_service inner join ((dbo_professionnel inner join dbo_authentification on dbo_professionnel.idprofessionnel = dbo_authentification.idcompte) inner join (dbo_patient inner join (dbo_hospitalisatacuelle inner join dbo_donneepatientactuelles on dbo_hospitalisatacuelle.idhosp = dbo_donneepatientactuelles.idhosp) on dbo_patient.idpatient = dbo_donneepatientactuelles.idpatient) on dbo_professionnel.idprofessionnel = dbo_hospitalisatacuelle.idprofessionnel) on dbo_service.idservice = dbo_professionnel.idservice (((dbo_hospitalisatacuelle.dateentree)<=now()) , ((dbo_hospitalisatacuelle.datesortie)>now())) or (((dbo_hospitalisatacuelle.datesortie) null) , dbo_service.intituleserv = '" & service & "') ;"         end if     end if    end if      end sub

so when execute code error "invalid use of null" in line "service = ..." , sql query dosen't return condition when ! thank very much

so, after adding nz, think problem of null solved

           service = nz(dlookup("intituleserv", "dbo_service", "idservice = " & dlookup("idservice", "dbo_professionnel", "idprofessionnel = " & dlookup("idcompte", "dbo_authentification", "login='" & me.txtlogin.value & "'"))), "inconnu")         forms![listingpatients]![txtintituleserv] = service

but still have issue sql query, think didn't put correct syntax of sql query integrating in vba code, can take line : 

        strsql = "select dbo_patient.*, dbo_service.intituleserv, dbo_hospitalisatacuelle.lit, dbo_professionnel.idprofessionnel, dbo_hospitalisatacuelle.dateentree, dbo_hospitalisatacuelle.datesortie dbo_service inner join ((dbo_professionnel inner join dbo_authentification on dbo_professionnel.idprofessionnel = dbo_authentification.idcompte) inner join (dbo_patient inner join (dbo_hospitalisatacuelle inner join dbo_donneepatientactuelles on dbo_hospitalisatacuelle.idhosp = dbo_donneepatientactuelles.idhosp) on dbo_patient.idpatient = dbo_donneepatientactuelles.idpatient) on dbo_professionnel.idprofessionnel = dbo_hospitalisatacuelle.idprofessionnel) on dbo_service.idservice = dbo_professionnel.idservice (((dbo_hospitalisatacuelle.dateentree)<=now()) , ((dbo_hospitalisatacuelle.datesortie)>now())) or (((dbo_hospitalisatacuelle.datesortie) null)) ;"         strsql = strsql & "where [dbo_service]![intituleserv] = ' " & service & " ' " docmd.openquery(strsql)

thank you,

you have declared service string variable. dlookup returns null if no matching record found. null cannot stored in string, can stored in variant.

so either use dim service variant , test isnull()

or use service = nz(dlookup(...), "inconnu") return "inconnu" if dlookup() fails.


Comments

Post a Comment

Popular posts from this blog

commonjs - How to write a typescript definition file for a node module that exports a function? -

consider, toml node module can use: // toml.d.ts declare module toml { export function parse(value:string):any; } declare module "toml" { export = toml; } then: /// <reference path="../../../../../defs/toml/toml.d.ts"/> import toml = require('toml'); toml.parse(...); however, node module export single function, such 'glob' ( https://github.com/isaacs/node-glob ). the node usage of module be: var glob = require("glob") glob("*.js", {}, callback(err, files) { ... }); you'd naively expect this: // glob.d.ts declare function globs(paths:string, options:any, callback:{(err:any, files:string[]):void; ...but because typescripts 'import' semantics bit strange, seems can use 'import .. = require()' statement alias modules . trying call: /// <reference path="../../../../../defs/glob/glob.d.ts"/> import blog = require('glob'); results in: error ts2072: mod...
Read more

openid - Okta: Failed to get authorization code through API call -

i'm integrating okta own idp server using okta's api. i'm implementing authorization code flow following steps below: in own server, use /api/v1/authn endpoint sessiontoken. use sessiontoken obtain authorization calling endpoint: /oauth2/v1/authorize?client_id=" + clientid + "&sessiontoken=" + sessiontoken + "&response_type=code&response_mode=query&scope=openid&redirect_uri=" + redirecturl + "&state=evanyang&nonce=" it's supposed return response status code 302 , location header containing redirect url code value. however, keep getting response status code 200 , without location header, html body saying "you using unsupported browser." , "javascript disabled on browser." according api documentation: http://developer.okta.com/docs/api/resources/oidc.html#authentication-request , sessiontoken parameter sufficient this: an okta one-time sessiontoken. allows api-based ...
Read more

ios - Change Storyboard View using Seague -

i have following code checks connection server, , depending on want change views if no connection found. nsstring *connect = [nsstring stringwithcontentsofurl:[nsurl urlwithstring:@"http://myserver.com"] encoding:nsutf8stringencoding error:nil]; if (connect == null) { [self performseguewithidentifier:@"network_failure" sender:self]; } else { // other code here } my problem not change views. have added storyboard segue between 2 views identifier of network_failure . not have navigation controller or that, problem? thanks help! no not problem. first of all, in objectivec exists nil object oriented null . must use that. so: if(connect == nil) or better: if(!connect) so due fact nil not same of null , probably code does't enter in if scope . you have been able discover breakpoint. anyway: be sure set trigger segue (line) 2 view controller , , name network_failure (that not best name. should instead view1toview2 ) as, m...
Read more