code vba sous access

**lifemaker2025** · 14/02/2007, 16h22

bonjour
je suis un débutant access
peut on utiliser le code vba sur access de typde:

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
16
17
18
19
20
21
22
23
24
25
Sub rcauto()
 
Dim plage As Range
Dim i, j, Nb As Long
 
Set plage = Range("E2", [E2].End(xlDown))
Nb = plage.Count
 
j = 1
 
For i = 2 To Nb
Cells(i, 5).Select
 
Select Case Cells(i, 5).Value
 
Case 80, 5
 
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
 
   Cells(i - 1, 50).Value = 100
   Cells(i, 50).Value = 100
 
Else: Cells(i, 50).Value = 100
 
End If

si oui comment et ou l'introduire
merci bien

Invité · 14/02/2007, 16h24

Bonjour

C'est un code VBA pour Excel, il ne fonctionnera pas sous Access, sauf si ton but est de travailler sous une feuille Excel à partir d'Access, alors OUI.

Regarde dans la Faq il est expliqué comment se connecter à Excel

Starec

**lifemaker2025** · 14/02/2007, 16h25

y a t il pas moyen de faire la même chose sur access?

Invité · 14/02/2007, 16h26

Re

Quel est ton but, car avec ce code tu ne peux travailler que sur une feuille Excel.

Que veux-tu faire exactement ?

Starec

**lifemaker2025** · 14/02/2007, 16h33

c'esu un petit peu compliké à axpliker
mais bon je vais essayer
j'ai une table avec 6 colonnes et un miliers d'enregistrement
les champs sont ; numéro police, catégorie police, date effet, date échéance, référence, code service
d'abord , je veux supprimer tous les enregistrement dont "la catégorie police "= "K" ainsi que les autres enregistrements qui contiennent les numéros de polices identiques à ceux supprimés

**alexandrebergercyr** · 14/02/2007, 16h36

Fait une requête SQl...

Donne moi plus d'information sur tes champs et explique moi en détail "la catégorie police "= "K"...

Alex

**DMboup** · 14/02/2007, 16h38

Une requête suppression va très bien.

**lifemaker2025** · 14/02/2007, 16h42

le champ "catégorie police" contient plusieurs code y compris le code "k"
exemple
num auto num pol cat pol dat eff dat ech
1 000124 U 12/02 01/05
2 200113 K 12/04 02/05
3 200113 R 11/02 03/07
4 445444 S 10/02 01/03
5 200113 S 01/02 02/02

je que les enregistrement 2,3,5 soient supprimés! c'est à dire les enr avec "k" comme catégories et les autres enr qui contiennenet un num de police identiques!

**DMboup** · 14/02/2007, 17h02

Pour supprimer les enregistrements pour lesquels la catégorie est K (ou une autre valeur identifiée), tu crée simplement une requête en spécifiant comme critère la valeur que tu veux.

Pour supprimer les enregistrements qui ont même numéro de police voici un exemple

Code :

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

1
2
 
DELETE * From TaTable Where NumPolice In (Select Distinct NumPolice From TaTable)

**lifemaker2025** · 14/02/2007, 17h10

merci bien

**random** · 14/02/2007, 17h15

en fait ta procédure met à jour une cellule excel en fonction de la valeur contenue dans d'autres cellules

c'est tout à fait faisable sous access

ici on mettrait en oeuvre une reqête mise à jour du style

Code :

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

1
2
3
 
UPDATE matable AS a, matable AS b SET a.champ3 = 80+[a].[champ1]
WHERE b.index=[a].[index]-2) AND b.champ1=[a].[champ1];

la logique d'accès aux données est un peu différente: accès matriciel pour
excel, accès par ensembles pour access mais ce qui diffère le plus est le langage utilisé pour manipuler les données.
mais avec un peu de patience cela s'apprend très vite.

**lifemaker2025** · 14/02/2007, 17h25

pour réussir une requête simple de suppression, comment faire la condition suivante "les enregistrements qui contiennent des valeurs identiques" sachant que ce champs tolère les doublons...
merci

**lifemaker2025** · 14/02/2007, 17h25

le champs numéro de police

**DMboup** · 14/02/2007, 17h30

Envoyé par DMboup

Pour supprimer les enregistrements qui ont même numéro de police voici un exemple

Code :

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

1
2
 
DELETE * From TaTable Where NumPolice In (Select Distinct NumPolice From TaTable)

**lifemaker2025** · 14/02/2007, 17h54

oui désolé
je vous derange
ensuite je veux qu'il me séléctionne tous les enregistrements qui contiennent des numéros de polices identiques et l'un des enregitrement contient la valeur "K" dans le champs Code catégorie

**lifemaker2025** · 15/02/2007, 12h48

bonjour c encore moi

j'ai crée une table access vec 6 colonnes
numéro auto
police
catégorie
date effet
date echance
cotisation

comment sélectionner les enregistrements qui ont la valeur "diponible" dans le champs categorie et l'enregistrement qui le précède directement (suivant le numéro auto) et dont les date effet et date echéances sont identiques d'office
merci infiniment

**Heureux-oli** · 15/02/2007, 12h57

Essaie d'être un peu plus clair.

Je ne parviens plus à suivre le fil du post.

**lifemaker2025** · 15/02/2007, 13h53

désolé
voilà une image ICI du résultat de la requête :

Code sql :

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

1
2
3
SELECT MAMDA1.police, *
FROM MAMDA1
WHERE (((MAMDA1.police) In (Select Police From MAMDA1 WHERE codopr="K" )));

ce que je veux faire c'est affiner encore davantage la sélection : sélectionner juste les enregistrements (dont les polices sont identiques) qui contiennet la valeur "K" dans le champs "codopr" et les enregistrement qui les prècèdent directement ( à signaler que les enrgitrement R et R-1 dispose de "dateff" et "datech" identiques)
merci bien

**Heureux-oli** · 15/02/2007, 14h02

Si je me trompe, dis le !

Tu veux récupérer toutes les lignes qui ont K dans un champ.
Mais en plus, tu aimerais retrouver les lignes qui ont le même numéro que celle qui contiennent K et les supprimer, et ce quelle que soit la lettre.

**lifemaker2025** · 15/02/2007, 14h05

j'aimerais retrouver les lignes qui ont le même numéro et les mêmes dateff et datech que celles qui contiennent K et les supprimer et ce quelle que soit la lettre.

code vba sous access

Access

Discussions similaires

Partager

Partager