Discussion :

[nlbmoi]

Bonjour,

Dans une de mes table, les enregistrements contiennent plusieurs champs dont un champ en numérotation automatique :


Pour certaines saisies, les enregistrements sont très proches (seul un champ change, souvent le numéro de série) : je me demandais s'il y avait un moyen facile pour dupliquer un enregistrement.
Actuellement, je copie-colle chaque champ de l'enregistrement mais c'est un peu lourd.

Merci pour l'aide.

[El Bosc]

Bonsoir,

A part de mettre en place une macro, je ne pense pas que cela soit possible.

Cordialement

[megs]

Salut,

J'ai un besoin équivalent, afin de transférer une ou plusieurs lignes d'une table vers une seconde table de nature différente.
J'ai glané des informations afin de composer une macro qui devrait utiliser une instruction SQL afin de le faire par lot et de facon conditionelle.

je vais probablement poster une autre demande vu qu'il ne sagit pas de ton probelme a proprement parlé:
toutefois voici une exempole non fonctionnel qui me renvoie une erreur java..... si tu trouve un paliatif n'hesite pas a le faire savoir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' ╔═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╗
Sub Move_OutofInventory()
' ╚═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╝█
'  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
' ne fonctionne pas...
Dim oStatement As Object
	if IsNull(ThisDatabaseDocument.CurrentController.ActiveConnection) then
    	ThisDatabaseDocument.CurrentController.connect
	endif
	oStatement = ThisDatabaseDocument.CurrentController.ActiveConnection.createStatement()
	StrTime = Format(now(),"D/MM/YY")
	strSQL ="INSERT INTO ""TAB_SORTIE_INV"" (""TYPE"", ""SERIE_DU_TYPE"",""MARQUE"",""DATE_ACHAT"",""BUDGET_ACHAT"",""SERIAL"",""DATE_SORTIE_INV"") SELECT ""TYPE"", ""SERIEduTYPE"",""MARQUE"",""DATE_ACHAT"",""BUDGET_ACHAT"",""SERIALNUMBER"",'"+ StrTime +"' FROM ""TAB_INVENTAIRE"" WHERE ""ASortirDeLinventaire"" = true"
	msgbox(StrSQL)
	oStatement.execute(StrSQL)
End sub

Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.sdbc.SQLException
Message: Wrong data type: java.lang.IllegalArgumentException.

[megs]

voir onglet contributions