FORUM Matbe.com


  OS, Software, Réseaux & Jeux vidéos


  Programmation


  Aide Access 2000

 
 

Achats/Ventes : GT3148, 1 utilisateur anonyme et 9 utilisateurs inconnus

S'identifier | S'inscrire | Aide
 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

Aide Access 2000

 
n°60288
chappy83
_+_+_+_
Posté le 04-09-2007 à 15:26:01  profilanswer
 

Bonjour,
 
J'ai un form et celui la a un subform. Sur ce subform il y a un tas de textbox, dans la section details et header.
 
Comment acceder depuis le main form les textbox de ce subform ?
 
De ce que j'ai vu sur le net:
 

Code :
  1. Me!subForm.form!ControlName


 
Mais impossible de trouver ControlName. Donc j'ai pas access a ce controle.
 


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60289
Gwalchmei
Aussi en versions 1/2 & 1/3
Posté le 04-09-2007 à 15:36:16  profilanswer
 

"ControlName" c'est à remplacer par le nom de ta text box dans ton code  ;)


---------------
La sagesse commence où finit la crainte de Dieu. (André Gide)
AKA : Super Laïque
Computermsa-Shop Magasin belge de qualité !
n°60290
chappy83
_+_+_+_
Posté le 04-09-2007 à 15:48:11  profilanswer
 

J'ai donc:
 

Code :
  1. Private Sub lstFields_Click()
  2.     Dim selectedValue As String
  3.     Dim textBox As textBox
  4.    
  5.     'Get the selected item
  6.     selectedValue = Me.lstFields.Value
  7.    
  8.     'Set the value of the hidden field
  9.     'Me!subForm.form!ControlName
  10.     textBox = Me!frmPermission.Form!hidtxtFieldNr
  11.    
  12.     textBox.Value = selectedValue
  14. End Sub


 
Sur cela j'ai "Runtime Error 91".


Message édité par chappy83 le 04-09-2007 à 15:48:55

---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60291
chappy83
_+_+_+_
Posté le 04-09-2007 à 15:55:36  profilanswer
 

Merci Gwalchmei, j'ai trouvé ma faute:
 

Code :
  1. Me!frmPermission.Form!hidtxtFieldNr.Value = selectedValue


Message édité par chappy83 le 04-09-2007 à 15:55:48

---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60292
Gwalchmei
Aussi en versions 1/2 & 1/3
Posté le 04-09-2007 à 16:01:43  profilanswer
 

;)


---------------
La sagesse commence où finit la crainte de Dieu. (André Gide)
AKA : Super Laïque
Computermsa-Shop Magasin belge de qualité !
n°60293
chappy83
_+_+_+_
Posté le 04-09-2007 à 16:12:20  profilanswer
 

Autre petie question, comment est ce que je peux utiliser le champs hidtxtFieldNr dans le qry d'allimentation de mon subform ?


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60294
castor@mat​be
Mutafukaz !
Posté le 04-09-2007 à 16:14:05  profilanswer
 

Pas compris la question...


---------------
Blog
n°60295
chappy83
_+_+_+_
Posté le 04-09-2007 à 16:17:39  profilanswer
 

Sa ja pense:
 

Code :
  1. select xxx from yyy
  2. where iii = Forms!frmPermissions.Form!hidtxtFieldNr.Value


Message édité par chappy83 le 04-09-2007 à 16:17:47

---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60296
Gwalchmei
Aussi en versions 1/2 & 1/3
Posté le 04-09-2007 à 16:20:45  profilanswer
 

Tu ouvres le form, puis tu crée un nouveau query.
 
Dans la zone filtre du champ que tu veux filtrer, tu clique sur l'icône du Expression builder et tu sélectionne Forms\Loaded Forms ==> tu auras une liste de champs et valeurs de contrôles dispo, suffit de cliquer sur celui que tu veux ...
 
Edit : ensuite, toujours dans ton query, tu affiche le code SQL de ce que tu viens de créer et tu copie/colle dans ton VBA ;)


Message édité par Gwalchmei le 04-09-2007 à 16:21:22

---------------
La sagesse commence où finit la crainte de Dieu. (André Gide)
AKA : Super Laïque
Computermsa-Shop Magasin belge de qualité !
n°60297
castor@mat​be
Mutafukaz !
Posté le 04-09-2007 à 16:20:49  profilanswer
 

un truc genre  
Me!frmPermission.filter = "iii=" & Me!frmPermission.Form!hidtxtFieldNr.Value  
 Me!frmPermission.filteron = true
Me!frmPermission.requery
 
Ou bien  
Me!frmPermission.Source="select * ... where iii= " & ...


---------------
Blog
n°60298
chappy83
_+_+_+_
Posté le 04-09-2007 à 16:24:53  profilanswer
 

Merci Gwalchmei et castor@mat be.  
 
J'ai pris l'option de Gwalchmei, c'est asser pratique.


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60299
Gwalchmei
Aussi en versions 1/2 & 1/3
Posté le 04-09-2007 à 16:26:21  profilanswer
 

Oui, ça m'a déjà fait gagner pas mal de temps  :p


---------------
La sagesse commence où finit la crainte de Dieu. (André Gide)
AKA : Super Laïque
Computermsa-Shop Magasin belge de qualité !
n°60300
chappy83
_+_+_+_
Posté le 04-09-2007 à 16:49:55  profilanswer
 

Autre petite question,
 
Apres un Insert d'un record, peut ont récupere la derniere key génerer ? Sans passer par un qry pour qui va chercher la key.
 
Merci,


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60301
Gwalchmei
Aussi en versions 1/2 & 1/3
Posté le 04-09-2007 à 16:55:13  profilanswer
 

Normalement, dès que tu crées un record, il a une clé. Je crois qu'il y a un event OnInsert ou un truc du style : prends la valeur du champ key à ce moment.
 
Sinon, pourquoi ne pas passer par un query ?


---------------
La sagesse commence où finit la crainte de Dieu. (André Gide)
AKA : Super Laïque
Computermsa-Shop Magasin belge de qualité !
n°60302
chappy83
_+_+_+_
Posté le 04-09-2007 à 16:57:38  profilanswer
 

J'ai en effet pris la valeur du champs key mais After Insert, mais a ce moment la mon hidtxtFieldNr est vide, vais tester avec "On Insert" --> Il y a pas de on insert, c'est Before Insert :)


Message édité par chappy83 le 04-09-2007 à 17:01:23

---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60303
Gwalchmei
Aussi en versions 1/2 & 1/3
Posté le 04-09-2007 à 17:01:15  profilanswer
 

Ben oui : after insert, t'es déjà plus dans le record ...


---------------
La sagesse commence où finit la crainte de Dieu. (André Gide)
AKA : Super Laïque
Computermsa-Shop Magasin belge de qualité !
n°60366
chappy83
_+_+_+_
Posté le 07-09-2007 à 10:13:41  profilanswer
 

Bonjour,  
 
J'ai une message d'erreur avec code 0 apres l'insert d'un row.
 
Le code:
 

Code :
  1. Private Sub Form_AfterInsert()
  2.     Dim strSqlInsert As String
  3.     'Take the new created id and create an insert qry
  4.     strSqlInsert = "INSERT INTO config_TBL_FIELDS_EDITABLE"
  5.     strSqlInsert = strSqlInsert & " (MAP_NR, MAP_FIELD_NR, MAP_ENT_PER_ID) VALUES"
  6.     strSqlInsert = strSqlInsert & " ( 0, " & FieldNr & ", " & Me.ENT_PER_ID.Value & " )"
  7.    
  8.     On Error GoTo Err_Insert
  9.     'Insert into TBL_FIELDS_EDITABLE
  10.     DoCmd.SetWarnings False
  11.     DoCmd.RunSQL strSqlInsert, True
  12.     DoCmd.SetWarnings True
  13.    
  14. Err_Insert:
  15.         MsgBox Err.Number & Err.Description
  16.     Exit Sub
  17. End Sub


Sans description donc je ne sais pas ce que c'est.


Message édité par chappy83 le 07-09-2007 à 10:13:53

---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60367
chappy83
_+_+_+_
Posté le 07-09-2007 à 10:22:28  profilanswer
 

Re: La sollution est de metre End Sub avant le Err_Insert.


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60368
Ashe
reenignE esreveR
Posté le 07-09-2007 à 10:37:52  profilanswer
 

(tjs bien de pas comprendre ckon tape huhu)


---------------
Globe trotter/SDF - Reims, France
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe
n°60369
chappy83
_+_+_+_
Posté le 07-09-2007 à 10:56:46  profilanswer
 

C'est parceque apres l'insert il execute le Err_Insert, et que j'avais pas dit de finire le sub si il y a vais pas de prob.


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60370
LostSoul
Vivement TES V
Posté le 07-09-2007 à 10:57:41  profilanswer
 

C'est quand même à chier VB mine de rien


---------------
(pas de signature ce jour)
[ www.in-wonderland.net | www.start64.com | www.majorgeeks.com ]
n°60371
chappy83
_+_+_+_
Posté le 07-09-2007 à 10:59:08  profilanswer
 

Un try catch, pas d'erreure pas de catch :)


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60375
chappy83
_+_+_+_
Posté le 07-09-2007 à 13:11:22  profilanswer
 

Les qry access sont pas les meme que Ms Sql:
 

Code :
  1. DELETE FROM config_TBL_ENTITY_PERMISSIONS WHERE ENT_PER_ID = ( SELECT config_TBL_ENTITY_PERMISSIONS.ENT_PER_ID FROM config_TBL_ENTITY_PERMISSIONS INNER JOIN config_TBL_FIELDS_EDITABLE ON config_TBL_ENTITY_PERMISSIONS.ENT_PER_ID = config_TBL_FIELDS_EDITABLE.MAP_ENT_PER_ID WHERE config_TBL_FIELDS_EDITABLE.MAP_FIELD_NR = 12)


 
 :pt1cable: Farfououiparfoinon  :pt1cable:

Message cité 1 fois
Message édité par chappy83 le 07-09-2007 à 13:14:44

---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60379
Ashe
reenignE esreveR
Posté le 07-09-2007 à 14:36:54  profilanswer
 

Jvois pas ckelle a de particulier ta requete
(a part des noms foireux)
edit: et qu'elle est un peu con vu que ton sub select sert pas a grand chose


Message édité par Ashe le 07-09-2007 à 14:37:21

---------------
Globe trotter/SDF - Reims, France
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe
n°60380
castor@mat​be
Mutafukaz !
Posté le 07-09-2007 à 14:43:43  profilanswer
 

chappy83 a écrit :

Les qry access sont pas les meme que Ms Sql:
 

Code :
  1. DELETE FROM config_TBL_ENTITY_PERMISSIONS WHERE ENT_PER_ID = ( SELECT config_TBL_ENTITY_PERMISSIONS.ENT_PER_ID FROM config_TBL_ENTITY_PERMISSIONS INNER JOIN config_TBL_FIELDS_EDITABLE ON config_TBL_ENTITY_PERMISSIONS.ENT_PER_ID = config_TBL_FIELDS_EDITABLE.MAP_ENT_PER_ID WHERE config_TBL_FIELDS_EDITABLE.MAP_FIELD_NR = 12)


 
 :pt1cable: Farfououiparfoinon  :pt1cable:


C'est pas access qui a généré ça comme requête


---------------
Blog
n°60381
chappy83
_+_+_+_
Posté le 07-09-2007 à 14:44:35  profilanswer
 

le '=' passe et pas le 'IN'


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be
n°60382
Ashe
reenignE esreveR
Posté le 07-09-2007 à 14:58:43  profilanswer
 

Le = passe dans MSSQL aussi :p


---------------
Globe trotter/SDF - Reims, France
Joy, beautiful spark of the gods, Daughter of Elysium, We enter fire imbibed, Heavenly, thy sanctuary.
Trombi Matbe
n°60387
castor@mat​be
Mutafukaz !
Posté le 07-09-2007 à 16:23:43  profilanswer
 

Mais attends c est n'imp...
Du fait un delete from x where id = (select from x ...)
La synthaxe access alakon c'est :  
delete x.* from x inner join y on x.id=y.id where y=toto=12


---------------
Blog
n°60406
chappy83
_+_+_+_
Posté le 08-09-2007 à 08:47:14  profilanswer
 

Oui je sais, je n'avais pas encore fini le qry. Mais bon j'aime pas access, et je programme dedans pour le moment.


---------------
www.eleonoredeco.be - www.cuisine-curry-piment.be

Aller à :
Ajouter une réponse

  FORUM Matbe.com


  OS, Software, Réseaux & Jeux vidéos


  Programmation


  Aide Access 2000

 

Forum MesDiscussions.Net, Version 2007.2
(c) 2000-2007 No1Dev
Page générée en 0.130 secondes