Dans mon formulaire j'ai deux cases =E0 cocher avec ce code et lorsque
je passe de l'une =E0 l'autre je change la source d'une liste d=E9roulante
=AB cmbrecherche =BB cela =E0 toujours marcher mais maintenant la base se
bloque:
If Option20.Value =3D -1 Then
Option20.Value =3D 1
Option18.Value =3D 0
Else
Option18.Value =3D 1
End If
'--- Teste l'=E9xistence de la Requete
If TesteExistenceRequete("rqt Temporaire") Then
StrSql =3D ",,,,,,,,,,,,,
'--- Si requ=EAte exite on modifie le SQL
Set qdf2 =3D CurrentDb.QueryDefs("rqt Temporaire")
qdf2.sql =3D StrSql
Else
'--- Sinon on cr=E9e la requ=EAte
Set qdf2 =3D CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rv
Salut,
Plus précisement, que signifie la base se bloque? Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit commentée?
A+
Rv
"Jacques" a écrit dans le message de news:
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque je passe de l'une à l'autre je change la source d'une liste déroulante « cmbrecherche » cela à toujours marcher mais maintenant la base se bloque:
If Option20.Value = -1 Then Option20.Value = 1 Option18.Value = 0 Else Option18.Value = 1 End If
'--- Teste l'éxistence de la Requete If TesteExistenceRequete("rqt Temporaire") Then StrSql = ",,,,,,,,,,,,, '--- Si requête exite on modifie le SQL Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire") qdf2.sql = StrSql Else '--- Sinon on crée la requête Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql) End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Salut,
Plus précisement, que signifie la base se bloque?
Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit
commentée?
A+
Rv
"Jacques" <jg1@neuf.fr> a écrit dans le message de news:
1192286781.414287.63150@e9g2000prf.googlegroups.com...
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque
je passe de l'une à l'autre je change la source d'une liste déroulante
« cmbrecherche » cela à toujours marcher mais maintenant la base se
bloque:
If Option20.Value = -1 Then
Option20.Value = 1
Option18.Value = 0
Else
Option18.Value = 1
End If
'--- Teste l'éxistence de la Requete
If TesteExistenceRequete("rqt Temporaire") Then
StrSql = ",,,,,,,,,,,,,
'--- Si requête exite on modifie le SQL
Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire")
qdf2.sql = StrSql
Else
'--- Sinon on crée la requête
Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
End If
Plus précisement, que signifie la base se bloque? Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit commentée?
A+
Rv
"Jacques" a écrit dans le message de news:
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque je passe de l'une à l'autre je change la source d'une liste déroulante « cmbrecherche » cela à toujours marcher mais maintenant la base se bloque:
If Option20.Value = -1 Then Option20.Value = 1 Option18.Value = 0 Else Option18.Value = 1 End If
'--- Teste l'éxistence de la Requete If TesteExistenceRequete("rqt Temporaire") Then StrSql = ",,,,,,,,,,,,, '--- Si requête exite on modifie le SQL Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire") qdf2.sql = StrSql Else '--- Sinon on crée la requête Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql) End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Jacques
On 14 oct, 02:14, "Rv" wrote:
Salut,
Plus précisement, que signifie la base se bloque? Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit commentée?
A+
Rv
"Jacques" a écrit dans le message de news:
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque je passe de l'une à l'autre je change la source d'une liste déroulante « cmbrecherche » cela à toujours marcher mais maintenant la base se bloque:
If Option20.Value = -1 Then Option20.Value = 1 Option18.Value = 0 Else Option18.Value = 1 End If
'--- Teste l'éxistence de la Requete If TesteExistenceRequete("rqt Temporaire") Then StrSql = ",,,,,,,,,,,,, '--- Si requête exite on modifie le SQL Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire") qdf2.sql = StrSql Else '--- Sinon on crée la requête Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql) End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Bonjour Rv,
Oui j'ai neutralisé cette ligne car ces ici que cela bloque, c'est à dire que "Microsoft Access à rencontrer un problème et doit être fermé..............."
Salutations
On 14 oct, 02:14, "Rv" <hervpasspam.pinarpass...@voila.fr> wrote:
Salut,
Plus précisement, que signifie la base se bloque?
Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit
commentée?
A+
Rv
"Jacques" <j...@neuf.fr> a écrit dans le message de news:
1192286781.414287.63...@e9g2000prf.googlegroups.com...
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque
je passe de l'une à l'autre je change la source d'une liste déroulante
« cmbrecherche » cela à toujours marcher mais maintenant la base se
bloque:
If Option20.Value = -1 Then
Option20.Value = 1
Option18.Value = 0
Else
Option18.Value = 1
End If
'--- Teste l'éxistence de la Requete
If TesteExistenceRequete("rqt Temporaire") Then
StrSql = ",,,,,,,,,,,,,
'--- Si requête exite on modifie le SQL
Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire")
qdf2.sql = StrSql
Else
'--- Sinon on crée la requête
Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Bonjour Rv,
Oui j'ai neutralisé cette ligne car ces ici que cela bloque, c'est à
dire que "Microsoft Access à rencontrer un problème
et doit être fermé..............."
Plus précisement, que signifie la base se bloque? Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit commentée?
A+
Rv
"Jacques" a écrit dans le message de news:
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque je passe de l'une à l'autre je change la source d'une liste déroulante « cmbrecherche » cela à toujours marcher mais maintenant la base se bloque:
If Option20.Value = -1 Then Option20.Value = 1 Option18.Value = 0 Else Option18.Value = 1 End If
'--- Teste l'éxistence de la Requete If TesteExistenceRequete("rqt Temporaire") Then StrSql = ",,,,,,,,,,,,, '--- Si requête exite on modifie le SQL Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire") qdf2.sql = StrSql Else '--- Sinon on crée la requête Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql) End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Bonjour Rv,
Oui j'ai neutralisé cette ligne car ces ici que cela bloque, c'est à dire que "Microsoft Access à rencontrer un problème et doit être fermé..............."
Salutations
Rv
Salut,
Peut-être que ta base Access commence à se dégrader (début de corruption). Dans ce cas on peut essayer de compacter / réparer la base de données mais le mieux est encore de créer une base vierge et d'importer tous les objets de la base corrompu dans cette nouvelle base.
A+
Rv
"Jacques" a écrit dans le message de news: On 14 oct, 02:14, "Rv" wrote:
Salut,
Plus précisement, que signifie la base se bloque? Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit commentée?
A+
Rv
"Jacques" a écrit dans le message de news:
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque je passe de l'une à l'autre je change la source d'une liste déroulante « cmbrecherche » cela à toujours marcher mais maintenant la base se bloque:
If Option20.Value = -1 Then Option20.Value = 1 Option18.Value = 0 Else Option18.Value = 1 End If
'--- Teste l'éxistence de la Requete If TesteExistenceRequete("rqt Temporaire") Then StrSql = ",,,,,,,,,,,,, '--- Si requête exite on modifie le SQL Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire") qdf2.sql = StrSql Else '--- Sinon on crée la requête Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql) End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Bonjour Rv,
Oui j'ai neutralisé cette ligne car ces ici que cela bloque, c'est à dire que "Microsoft Access à rencontrer un problème et doit être fermé..............."
Salutations
Salut,
Peut-être que ta base Access commence à se dégrader (début de
corruption). Dans ce cas on peut essayer de compacter / réparer la base de
données mais le mieux est encore de créer une base vierge et d'importer tous
les objets de la base corrompu dans cette nouvelle base.
A+
Rv
"Jacques" <jg1@neuf.fr> a écrit dans le message de
news:1192373818.595999.160150@z24g2000prh.googlegroups.com...
On 14 oct, 02:14, "Rv" <hervpasspam.pinarpass...@voila.fr> wrote:
Salut,
Plus précisement, que signifie la base se bloque?
Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit
commentée?
A+
Rv
"Jacques" <j...@neuf.fr> a écrit dans le message de news:
1192286781.414287.63...@e9g2000prf.googlegroups.com...
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque
je passe de l'une à l'autre je change la source d'une liste déroulante
« cmbrecherche » cela à toujours marcher mais maintenant la base se
bloque:
If Option20.Value = -1 Then
Option20.Value = 1
Option18.Value = 0
Else
Option18.Value = 1
End If
'--- Teste l'éxistence de la Requete
If TesteExistenceRequete("rqt Temporaire") Then
StrSql = ",,,,,,,,,,,,,
'--- Si requête exite on modifie le SQL
Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire")
qdf2.sql = StrSql
Else
'--- Sinon on crée la requête
Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Bonjour Rv,
Oui j'ai neutralisé cette ligne car ces ici que cela bloque, c'est à
dire que "Microsoft Access à rencontrer un problème
et doit être fermé..............."
Peut-être que ta base Access commence à se dégrader (début de corruption). Dans ce cas on peut essayer de compacter / réparer la base de données mais le mieux est encore de créer une base vierge et d'importer tous les objets de la base corrompu dans cette nouvelle base.
A+
Rv
"Jacques" a écrit dans le message de news: On 14 oct, 02:14, "Rv" wrote:
Salut,
Plus précisement, que signifie la base se bloque? Est-il normal que la ligne 'Me.cmbRecherche.RowSource = StrSql soit commentée?
A+
Rv
"Jacques" a écrit dans le message de news:
Bonjour,
Dans mon formulaire j'ai deux cases à cocher avec ce code et lorsque je passe de l'une à l'autre je change la source d'une liste déroulante « cmbrecherche » cela à toujours marcher mais maintenant la base se bloque:
If Option20.Value = -1 Then Option20.Value = 1 Option18.Value = 0 Else Option18.Value = 1 End If
'--- Teste l'éxistence de la Requete If TesteExistenceRequete("rqt Temporaire") Then StrSql = ",,,,,,,,,,,,, '--- Si requête exite on modifie le SQL Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire") qdf2.sql = StrSql Else '--- Sinon on crée la requête Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql) End If
'Me.cmbRecherche.RowSource = StrSql
Merci pour votre aide.
Salutations
Bonjour Rv,
Oui j'ai neutralisé cette ligne car ces ici que cela bloque, c'est à dire que "Microsoft Access à rencontrer un problème et doit être fermé..............."