[Résolu][Base]Ajout enregistrement ds 2tables liées par form

[jamdmnt]

Bonjour,
Dans la base, presque finie, le formulaire fDomaines_SousDomaines permet d'ajouter des données dans les 2 tables tDomaines et tSous_domaines. la table tSous_domaines est liée par l'index de la table tDomaines.
Je tente par INSER INTO, mais je maitrise assez mal SQL. Le Sub CreatSousDomaines du Module1 bien sûr ne fonctionne pas.
Avec la liaison, ce doit être un peu plus compliqué, je "patauge".
A moins qu'il y est une autre solution que créer un enregistrement "bidon" (ici Aucun) pour ne pas se retrouver avec des index vides dans la table tAchatsEntretien lorsque l'on ne veut pas sélectionner de sous domaine. J'ai fait pas mal de tests SQL pour le formulaire fReqMulticritères et je croix que sans valeur index vide dans la table c'est plus simple à gérer.
Toute suggestion est la bien venue.
Merci.
Jacques

[Dude]

Salut,

Dans un modèle relationnel correct, une donnée ne doit être stockée qu'une fois.
Donc, je ne comprends pas ton histoire d'enregistrement sur 2 tables.

Commence déjà par mieux détailler ton problème.
A savoir, une description des relations et une procédure sur son application.
Exemple :

• qu'est ce qu'un domaine et un sous-domaine et quelle relation caractérise les deux
• le formulaire doit permettre l'insertion de ... dans la table ...

mais je maitrise assez mal SQL

Comme d'habitude, tant qu'une requête ne fonctionne pas, il est inutile de vouloir en faire une macro.
Donc avant de poster ici, on consulte déjà la section Base.

[jamdmnt]

Bonsoir,
Pour être plus précis, l'image du formulaire en question:

FormulrDomSousDom.jpg

Effectivement, je pourrais ne pas lier la table sous domaines à la table domaines, mais alors certains choix de sous domaines risquent d'être un peu bizarre (imprimantes avec plomberie!)
Mais j'accepterais volontiers autre solution.
Et le bout de code

Code : Tout sélectionner

Sub CreatSousDomaines (oEv)
Dim oController As Object, oForm as Object, maConnexion As Object, dbDoc As Object, lesFormulR As object, Fdomaine As Object, sousFormulR As Object, FsousDomaine As Object
Dim maRequete As Object, ligneDomaine As Object, ligneSousDomaine As Object
Dim inserSQL As String, selcSql As string, car as string
DIM RefID As Long
Dim codeCar

   
	oController = thisDatabaseDocument.currentcontroller
   If Not  oController.isConnected() Then oController.connect
   maConnexion = oController.ActiveConnection
   maRequete = maConnexion.createStatement()
'	inserSQL = 	"SELECT  ""ID_sousdomaine"" FROM ""tSous_domaines"" WHERE ""ID_sousdomaine"" =  (SELECT MAX (""ID_sousdomaine"")  FROM ""tSous_domaines"") "

'	inserSQL = "INSERT INTO  ""tSous_domaines"" (""ID_sousdomaine"",""Sous_domaine"") VALUES ("& RefID &", 'Aucun')"
'	inserSQL = InserSQL + ";"
	inserSQL = "INSERT INTO  ""tSous_domaines"" (""Sous_domaine"") VALUES ('Aucun')"
	RefID = maRequete.executeUpdate(inserSQL)
	maRequete.executeUpdate(inserSQL)

End sub

Bonne soirée.
Jacques

[jamdmnt]

Bonjour,

Après quelques tâtonnements, j'ai trouvé

Code : Tout sélectionner

Sub CreatSousDomaines (oEv)
Dim oController As Object, maConnexion As Object
Dim maRequete As Object
Dim inserSQL As String, RefID As String

	oController = thisDatabaseDocument.currentcontroller
   	If Not  oController.isConnected() Then oController.connect
  	maConnexion = oController.ActiveConnection
   	maRequete = maConnexion.createStatement()

	RefID = ThisComponent.DrawPage.Forms.getByName("MainForm").getColumns.getByName("ID_domaine").getString()
	inserSQL = "INSERT INTO  ""tSous_domaines"" (""ID_domaine"",""Sous_domaine"") VALUES ("& RefID &", '_Aucun')"
	maRequete.executeUpdate(inserSQL)

End sub

A+
Jacques