Bonjour,
J'ai une table Portables avec NrInventaire, NrSerie, Marque, etc
J'ai un form avec le nom Portables
Je voudrais éviter la duplication du NrSerie et j'ai créé, dans le form
Portables une text box Text1 avec la commande DLookUp.
J'ai essayé ces 4 options et j'au toujours "Erreur"
Private Sub NrSerie_BeforeUpdate(Cancel As Integer)
' If DCount("*", "Portables", "NrSerie =" & Me.NrSerie.Value) > 0 Then
MsgBox "Le n° " & NrSerie & " est déjà attribué au : " & Chr(13) &
Chr(13) & Text1, vbExclamation, "Numéro de Série"
Me.Undo
Cancel = True
' End If
End Sub
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
Raymond [mvp]
Bonjour.
Au lieu de vérifier si le numéro de série existe, ce qui suppose que l'opérateur doit prendre le prochain numéro libre, génère le numéro de série automatiquement sur l'événement beforeupdate par Dmax +1. Si le numéro de série est alpha, il faut alors passer par une fonction plus complexe que tu trouveras sur http://officesystem.access.free.fr/ex_compteuralpha.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Bonjour, | J'ai une table Portables avec NrInventaire, NrSerie, Marque, etc | | J'ai un form avec le nom Portables | Je voudrais éviter la duplication du NrSerie et j'ai créé, dans le form | Portables une text box Text1 avec la commande DLookUp. | | J'ai essayé ces 4 options et j'au toujours "Erreur" | | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & Forms!Portables!NrSerie) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & Forms!Portables!NrSerie) | | | Private Sub NrSerie_BeforeUpdate(Cancel As Integer) | ' If DCount("*", "Portables", "NrSerie =" & Me.NrSerie.Value) > 0 Then | MsgBox "Le n° " & NrSerie & " est déjà attribué au : " & Chr(13) & | Chr(13) & Text1, vbExclamation, "Numéro de Série" | Me.Undo | Cancel = True | ' End If | End Sub | | De l'aide, s.v.p. | Merci d'avance | A Costa
Bonjour.
Au lieu de vérifier si le numéro de série existe, ce qui suppose que
l'opérateur doit prendre le prochain numéro libre, génère le numéro de série
automatiquement sur l'événement beforeupdate par Dmax +1. Si le numéro de
série est alpha, il faut alors passer par une fonction plus complexe que tu
trouveras sur http://officesystem.access.free.fr/ex_compteuralpha.htm
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 2A4610D9-DE1D-492D-898E-3B22F10CA490@microsoft.com...
| Bonjour,
| J'ai une table Portables avec NrInventaire, NrSerie, Marque, etc
|
| J'ai un form avec le nom Portables
| Je voudrais éviter la duplication du NrSerie et j'ai créé, dans le form
| Portables une text box Text1 avec la commande DLookUp.
|
| J'ai essayé ces 4 options et j'au toujours "Erreur"
|
|
| =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" &
| Forms!Portables!NrInventaire)
|
| =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" &
Forms!Portables!NrSerie)
|
| =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" &
| Forms!Portables!NrInventaire)
|
| =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" &
Forms!Portables!NrSerie)
|
|
| Private Sub NrSerie_BeforeUpdate(Cancel As Integer)
| ' If DCount("*", "Portables", "NrSerie =" & Me.NrSerie.Value) > 0 Then
| MsgBox "Le n° " & NrSerie & " est déjà attribué au : " & Chr(13) &
| Chr(13) & Text1, vbExclamation, "Numéro de Série"
| Me.Undo
| Cancel = True
| ' End If
| End Sub
|
| De l'aide, s.v.p.
| Merci d'avance
| A Costa
Au lieu de vérifier si le numéro de série existe, ce qui suppose que l'opérateur doit prendre le prochain numéro libre, génère le numéro de série automatiquement sur l'événement beforeupdate par Dmax +1. Si le numéro de série est alpha, il faut alors passer par une fonction plus complexe que tu trouveras sur http://officesystem.access.free.fr/ex_compteuralpha.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Bonjour, | J'ai une table Portables avec NrInventaire, NrSerie, Marque, etc | | J'ai un form avec le nom Portables | Je voudrais éviter la duplication du NrSerie et j'ai créé, dans le form | Portables une text box Text1 avec la commande DLookUp. | | J'ai essayé ces 4 options et j'au toujours "Erreur" | | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & Forms!Portables!NrSerie) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & Forms!Portables!NrSerie) | | | Private Sub NrSerie_BeforeUpdate(Cancel As Integer) | ' If DCount("*", "Portables", "NrSerie =" & Me.NrSerie.Value) > 0 Then | MsgBox "Le n° " & NrSerie & " est déjà attribué au : " & Chr(13) & | Chr(13) & Text1, vbExclamation, "Numéro de Série" | Me.Undo | Cancel = True | ' End If | End Sub | | De l'aide, s.v.p. | Merci d'avance | A Costa
A COSTA
Re-bonjour Le probleme c'est que le nrserie est tres diferent d'un portable à l'autre. Parce que il y a dejá beaucoup des données dans la table, je ne peut pas introduire l'option "Yes (No Duplicates)" dans Indexed. Merci encore une fois A Costa
Bonjour.
Au lieu de vérifier si le numéro de série existe, ce qui suppose que l'opérateur doit prendre le prochain numéro libre, génère le numéro de série automatiquement sur l'événement beforeupdate par Dmax +1. Si le numéro de série est alpha, il faut alors passer par une fonction plus complexe que tu trouveras sur http://officesystem.access.free.fr/ex_compteuralpha.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Bonjour, | J'ai une table Portables avec NrInventaire, NrSerie, Marque, etc | | J'ai un form avec le nom Portables | Je voudrais éviter la duplication du NrSerie et j'ai créé, dans le form | Portables une text box Text1 avec la commande DLookUp. | | J'ai essayé ces 4 options et j'au toujours "Erreur" | | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & Forms!Portables!NrSerie) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & Forms!Portables!NrSerie) | | | Private Sub NrSerie_BeforeUpdate(Cancel As Integer) | ' If DCount("*", "Portables", "NrSerie =" & Me.NrSerie.Value) > 0 Then | MsgBox "Le n° " & NrSerie & " est déjà attribué au : " & Chr(13) & | Chr(13) & Text1, vbExclamation, "Numéro de Série" | Me.Undo | Cancel = True | ' End If | End Sub | | De l'aide, s.v.p. | Merci d'avance | A Costa
Re-bonjour
Le probleme c'est que le nrserie est tres diferent d'un portable à l'autre.
Parce que il y a dejá beaucoup des données dans la table, je ne peut pas
introduire l'option "Yes (No Duplicates)" dans Indexed.
Merci encore une fois
A Costa
Bonjour.
Au lieu de vérifier si le numéro de série existe, ce qui suppose que
l'opérateur doit prendre le prochain numéro libre, génère le numéro de série
automatiquement sur l'événement beforeupdate par Dmax +1. Si le numéro de
série est alpha, il faut alors passer par une fonction plus complexe que tu
trouveras sur http://officesystem.access.free.fr/ex_compteuralpha.htm
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 2A4610D9-DE1D-492D-898E-3B22F10CA490@microsoft.com...
| Bonjour,
| J'ai une table Portables avec NrInventaire, NrSerie, Marque, etc
|
| J'ai un form avec le nom Portables
| Je voudrais éviter la duplication du NrSerie et j'ai créé, dans le form
| Portables une text box Text1 avec la commande DLookUp.
|
| J'ai essayé ces 4 options et j'au toujours "Erreur"
|
|
| =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" &
| Forms!Portables!NrInventaire)
|
| =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" &
Forms!Portables!NrSerie)
|
| =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" &
| Forms!Portables!NrInventaire)
|
| =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" &
Forms!Portables!NrSerie)
|
|
| Private Sub NrSerie_BeforeUpdate(Cancel As Integer)
| ' If DCount("*", "Portables", "NrSerie =" & Me.NrSerie.Value) > 0 Then
| MsgBox "Le n° " & NrSerie & " est déjà attribué au : " & Chr(13) &
| Chr(13) & Text1, vbExclamation, "Numéro de Série"
| Me.Undo
| Cancel = True
| ' End If
| End Sub
|
| De l'aide, s.v.p.
| Merci d'avance
| A Costa
Re-bonjour Le probleme c'est que le nrserie est tres diferent d'un portable à l'autre. Parce que il y a dejá beaucoup des données dans la table, je ne peut pas introduire l'option "Yes (No Duplicates)" dans Indexed. Merci encore une fois A Costa
Bonjour.
Au lieu de vérifier si le numéro de série existe, ce qui suppose que l'opérateur doit prendre le prochain numéro libre, génère le numéro de série automatiquement sur l'événement beforeupdate par Dmax +1. Si le numéro de série est alpha, il faut alors passer par une fonction plus complexe que tu trouveras sur http://officesystem.access.free.fr/ex_compteuralpha.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Bonjour, | J'ai une table Portables avec NrInventaire, NrSerie, Marque, etc | | J'ai un form avec le nom Portables | Je voudrais éviter la duplication du NrSerie et j'ai créé, dans le form | Portables une text box Text1 avec la commande DLookUp. | | J'ai essayé ces 4 options et j'au toujours "Erreur" | | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & Forms!Portables!NrSerie) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & | Forms!Portables!NrInventaire) | | =DLookUp("[NrInventaire]";"Portables";"[NrSerie] =" & Forms!Portables!NrSerie) | | | Private Sub NrSerie_BeforeUpdate(Cancel As Integer) | ' If DCount("*", "Portables", "NrSerie =" & Me.NrSerie.Value) > 0 Then | MsgBox "Le n° " & NrSerie & " est déjà attribué au : " & Chr(13) & | Chr(13) & Text1, vbExclamation, "Numéro de Série" | Me.Undo | Cancel = True | ' End If | End Sub | | De l'aide, s.v.p. | Merci d'avance | A Costa
Raymond [mvp]
ton DCount ?
Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("*", "Portables", "[NrSerie] =" & Me.NrSerie) > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub
si le NrSerie est alpha rajouter des '
ça donne quoi maintenant ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Re-bonjour | Le probleme c'est que le nrserie est tres diferent d'un portable à l'autre. | Parce que il y a dejá beaucoup des données dans la table, je ne peut pas | introduire l'option "Yes (No Duplicates)" dans Indexed. | Merci encore une fois | A Costa |
ton DCount ?
Private Sub NrSerie_BeforeUpdate(Cancel As Integer)
If DCount("*", "Portables", "[NrSerie] =" & Me.NrSerie) > 0 Then
MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Text1,
vbExclamation, "Numéro de Série"
Cancel = True
End If
End Sub
si le NrSerie est alpha rajouter des '
ça donne quoi maintenant ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 5D5E9B53-85F4-441C-A10F-FD4596542A7C@microsoft.com...
| Re-bonjour
| Le probleme c'est que le nrserie est tres diferent d'un portable à
l'autre.
| Parce que il y a dejá beaucoup des données dans la table, je ne peut pas
| introduire l'option "Yes (No Duplicates)" dans Indexed.
| Merci encore une fois
| A Costa
|
Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("*", "Portables", "[NrSerie] =" & Me.NrSerie) > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub
si le NrSerie est alpha rajouter des '
ça donne quoi maintenant ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Re-bonjour | Le probleme c'est que le nrserie est tres diferent d'un portable à l'autre. | Parce que il y a dejá beaucoup des données dans la table, je ne peut pas | introduire l'option "Yes (No Duplicates)" dans Indexed. | Merci encore une fois | A Costa |
A COSTA
Merci pour votre aide Le "Data Type" de "NrInventaire" et "NrSerie" est "text" Dans la "Text1" du form "Portables" j'ai :
Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("*", "Portables", "[NrSerie] =" & Me.NrSerie) > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub
si le NrSerie est alpha rajouter des '
ça donne quoi maintenant ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Re-bonjour | Le probleme c'est que le nrserie est tres diferent d'un portable à l'autre. | Parce que il y a dejá beaucoup des données dans la table, je ne peut pas | introduire l'option "Yes (No Duplicates)" dans Indexed. | Merci encore une fois | A Costa |
Merci pour votre aide
Le "Data Type" de "NrInventaire" et "NrSerie" est "text"
Dans la "Text1" du form "Portables" j'ai :
Private Sub NrSerie_BeforeUpdate(Cancel As Integer)
If DCount("*", "Portables", "[NrSerie] =" & Me.NrSerie) > 0 Then
MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Text1,
vbExclamation, "Numéro de Série"
Cancel = True
End If
End Sub
si le NrSerie est alpha rajouter des '
ça donne quoi maintenant ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 5D5E9B53-85F4-441C-A10F-FD4596542A7C@microsoft.com...
| Re-bonjour
| Le probleme c'est que le nrserie est tres diferent d'un portable à
l'autre.
| Parce que il y a dejá beaucoup des données dans la table, je ne peut pas
| introduire l'option "Yes (No Duplicates)" dans Indexed.
| Merci encore une fois
| A Costa
|
Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("*", "Portables", "[NrSerie] =" & Me.NrSerie) > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub
si le NrSerie est alpha rajouter des '
ça donne quoi maintenant ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Re-bonjour | Le probleme c'est que le nrserie est tres diferent d'un portable à l'autre. | Parce que il y a dejá beaucoup des données dans la table, je ne peut pas | introduire l'option "Yes (No Duplicates)" dans Indexed. | Merci encore une fois | A Costa |
Raymond [mvp]
1er cas: Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("NrSerie", "Portables", "[NrSerie] ='" & Me.NrSerie & "'") > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Me.Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub texte1 = comprend pas....
2e cas: texte1
tu ne peux pas indiquer un dlookup dans la source de ce controle. il sert à quoi ce controle ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Merci pour votre aide | Le "Data Type" de "NrInventaire" et "NrSerie" est "text" | Dans la "Text1" du form "Portables" j'ai : | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | Le résultat de cette TextBox est #Name? | | Où dois-je mettre des ' ? | | Merci d'avance | A Costa
1er cas:
Private Sub NrSerie_BeforeUpdate(Cancel As Integer)
If DCount("NrSerie", "Portables", "[NrSerie] ='" & Me.NrSerie & "'") > 0
Then
MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " &
Me.Text1, vbExclamation, "Numéro de Série"
Cancel = True
End If
End Sub
texte1 = comprend pas....
2e cas: texte1
tu ne peux pas indiquer un dlookup dans la source de ce controle. il sert à
quoi ce controle ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 1E9FE946-D74E-4779-9F7F-02191E7C8196@microsoft.com...
| Merci pour votre aide
| Le "Data Type" de "NrInventaire" et "NrSerie" est "text"
| Dans la "Text1" du form "Portables" j'ai :
|
| =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" &
| Forms!Portables!NrInventaire)
|
| Le résultat de cette TextBox est #Name?
|
| Où dois-je mettre des ' ?
|
| Merci d'avance
| A Costa
1er cas: Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("NrSerie", "Portables", "[NrSerie] ='" & Me.NrSerie & "'") > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Me.Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub texte1 = comprend pas....
2e cas: texte1
tu ne peux pas indiquer un dlookup dans la source de ce controle. il sert à quoi ce controle ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Merci pour votre aide | Le "Data Type" de "NrInventaire" et "NrSerie" est "text" | Dans la "Text1" du form "Portables" j'ai : | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | Le résultat de cette TextBox est #Name? | | Où dois-je mettre des ' ? | | Merci d'avance | A Costa
A COSTA
J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans le MsgBox). Comme votre solution utilise le DCount je pense que je n'ai plus besoin de Text1. Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus référence au NrInventaire, mais c'est pas grave, j'ai l'information que le NrSerie existe déjà si on tape un numéro existant. Merci encore une fois. A Costa
1er cas: Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("NrSerie", "Portables", "[NrSerie] ='" & Me.NrSerie & "'") > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Me.Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub texte1 = comprend pas....
2e cas: texte1
tu ne peux pas indiquer un dlookup dans la source de ce controle. il sert à quoi ce controle ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Merci pour votre aide | Le "Data Type" de "NrInventaire" et "NrSerie" est "text" | Dans la "Text1" du form "Portables" j'ai : | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | Le résultat de cette TextBox est #Name? | | Où dois-je mettre des ' ? | | Merci d'avance | A Costa
J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans le
MsgBox).
Comme votre solution utilise le DCount je pense que je n'ai plus besoin de
Text1.
Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus
référence au NrInventaire, mais c'est pas grave, j'ai l'information que le
NrSerie existe déjà si on tape un numéro existant.
Merci encore une fois.
A Costa
1er cas:
Private Sub NrSerie_BeforeUpdate(Cancel As Integer)
If DCount("NrSerie", "Portables", "[NrSerie] ='" & Me.NrSerie & "'") > 0
Then
MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " &
Me.Text1, vbExclamation, "Numéro de Série"
Cancel = True
End If
End Sub
texte1 = comprend pas....
2e cas: texte1
tu ne peux pas indiquer un dlookup dans la source de ce controle. il sert à
quoi ce controle ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 1E9FE946-D74E-4779-9F7F-02191E7C8196@microsoft.com...
| Merci pour votre aide
| Le "Data Type" de "NrInventaire" et "NrSerie" est "text"
| Dans la "Text1" du form "Portables" j'ai :
|
| =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" &
| Forms!Portables!NrInventaire)
|
| Le résultat de cette TextBox est #Name?
|
| Où dois-je mettre des ' ?
|
| Merci d'avance
| A Costa
J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans le MsgBox). Comme votre solution utilise le DCount je pense que je n'ai plus besoin de Text1. Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus référence au NrInventaire, mais c'est pas grave, j'ai l'information que le NrSerie existe déjà si on tape un numéro existant. Merci encore une fois. A Costa
1er cas: Private Sub NrSerie_BeforeUpdate(Cancel As Integer) If DCount("NrSerie", "Portables", "[NrSerie] ='" & Me.NrSerie & "'") > 0 Then MsgBox "Le n° " & Me.NrSerie & " est déjà attribué au : " & Me.Text1, vbExclamation, "Numéro de Série" Cancel = True End If End Sub texte1 = comprend pas....
2e cas: texte1
tu ne peux pas indiquer un dlookup dans la source de ce controle. il sert à quoi ce controle ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | Merci pour votre aide | Le "Data Type" de "NrInventaire" et "NrSerie" est "text" | Dans la "Text1" du form "Portables" j'ai : | | =DLookUp("[NrSerie]";"Portables";"[NrInventaire] =" & | Forms!Portables!NrInventaire) | | Le résultat de cette TextBox est #Name? | | Où dois-je mettre des ' ? | | Merci d'avance | A Costa
Raymond [mvp]
pour l'opérateur, le NrInventaire se trouve déjà affiché sur l'écran, il suffit qu'il regarde sa saisie.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans le | MsgBox). | Comme votre solution utilise le DCount je pense que je n'ai plus besoin de | Text1. | Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus | référence au NrInventaire, mais c'est pas grave, j'ai l'information que le | NrSerie existe déjà si on tape un numéro existant. | Merci encore une fois. | A Costa
pour l'opérateur, le NrInventaire se trouve déjà affiché sur l'écran, il
suffit qu'il regarde sa saisie.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 34E9B575-EC68-497F-ABE8-2C2AEFA1BB1D@microsoft.com...
| J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans
le
| MsgBox).
| Comme votre solution utilise le DCount je pense que je n'ai plus besoin de
| Text1.
| Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus
| référence au NrInventaire, mais c'est pas grave, j'ai l'information que le
| NrSerie existe déjà si on tape un numéro existant.
| Merci encore une fois.
| A Costa
pour l'opérateur, le NrInventaire se trouve déjà affiché sur l'écran, il suffit qu'il regarde sa saisie.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans le | MsgBox). | Comme votre solution utilise le DCount je pense que je n'ai plus besoin de | Text1. | Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus | référence au NrInventaire, mais c'est pas grave, j'ai l'information que le | NrSerie existe déjà si on tape un numéro existant. | Merci encore une fois. | A Costa
A COSTA
Oui, c'est vrai. J'assayé de me compliquer la vie .... Un grand merci et bon we A Costa
pour l'opérateur, le NrInventaire se trouve déjà affiché sur l'écran, il suffit qu'il regarde sa saisie.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans le | MsgBox). | Comme votre solution utilise le DCount je pense que je n'ai plus besoin de | Text1. | Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus | référence au NrInventaire, mais c'est pas grave, j'ai l'information que le | NrSerie existe déjà si on tape un numéro existant. | Merci encore une fois. | A Costa
Oui, c'est vrai.
J'assayé de me compliquer la vie ....
Un grand merci et bon we
A Costa
pour l'opérateur, le NrInventaire se trouve déjà affiché sur l'écran, il
suffit qu'il regarde sa saisie.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 34E9B575-EC68-497F-ABE8-2C2AEFA1BB1D@microsoft.com...
| J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans
le
| MsgBox).
| Comme votre solution utilise le DCount je pense que je n'ai plus besoin de
| Text1.
| Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus
| référence au NrInventaire, mais c'est pas grave, j'ai l'information que le
| NrSerie existe déjà si on tape un numéro existant.
| Merci encore une fois.
| A Costa
Oui, c'est vrai. J'assayé de me compliquer la vie .... Un grand merci et bon we A Costa
pour l'opérateur, le NrInventaire se trouve déjà affiché sur l'écran, il suffit qu'il regarde sa saisie.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"A COSTA" a écrit dans le message de news: | J'ai utilisé le Text1 pour reprendre le NrInventaire (pour indication dans le | MsgBox). | Comme votre solution utilise le DCount je pense que je n'ai plus besoin de | Text1. | Maintenant ça marche, saufe que comme j'enleve la Text1 je n'ai plus | référence au NrInventaire, mais c'est pas grave, j'ai l'information que le | NrSerie existe déjà si on tape un numéro existant. | Merci encore une fois. | A Costa
