j'avais déjà posté cette question et j'avais reçu une réponse ...
mais je ne la retrouve plus dans le forum ..
je la repose donc...
J'ai une petite appli de gestion de table de resto.
dans ma form, j'encode un numéro de table:
si la table existe, elle est affichée; si elle n'existe pas, une nouvelle
table est crée.
le code suivant gère donc cela:
Private Sub TxtNumItem_AfterUpdate()
If IsNull(DLookup("NumItem", "item", "NumItem =" & Me!TxtNumItem)) Then
DoCmd.GoToRecord , , acNewRec
Me.NumItem = Me!TxtNumItem
Else
MsgBox "...This table already exist..."
Me!TxtNumItem.SetFocus
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NumItem] = " & Str(Nz(Me![TxtNumItem], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
End Sub
Petite modif à faire (merci le client!):
les tables etaient numérique et doivent devenir ALPHAnumérique.
ça me donne quelques erreurs ...
l'erreur viendrait elle de ce code?
j'avais déjà posté cette question et j'avais reçu une réponse ... mais je ne la retrouve plus dans le forum .. je la repose donc...
J'ai une petite appli de gestion de table de resto. dans ma form, j'encode un numéro de table: si la table existe, elle est affichée; si elle n'existe pas, une nouvelle table est crée. le code suivant gère donc cela:
Private Sub TxtNumItem_AfterUpdate() If IsNull(DLookup("NumItem", "item", "NumItem =" & Me!TxtNumItem)) Then DoCmd.GoToRecord , , acNewRec Me.NumItem = Me!TxtNumItem
Else MsgBox "...This table already exist..." Me!TxtNumItem.SetFocus Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "[NumItem] = " & Str(Nz(Me![TxtNumItem], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If
End Sub
Petite modif à faire (merci le client!): les tables etaient numérique et doivent devenir ALPHAnumérique. ça me donne quelques erreurs ... l'erreur viendrait elle de ce code?
D'avance merci Frédéric
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Lu rapidement mais les lignes à modifier seraient:
If IsNull(DLookup("NumItem", "item", "NumItem ='" & Me!TxtNumItem &
"'")) Then
j'avais déjà posté cette question et j'avais reçu une réponse ...
mais je ne la retrouve plus dans le forum ..
je la repose donc...
J'ai une petite appli de gestion de table de resto.
dans ma form, j'encode un numéro de table:
si la table existe, elle est affichée; si elle n'existe pas, une nouvelle
table est crée.
le code suivant gère donc cela:
Private Sub TxtNumItem_AfterUpdate()
If IsNull(DLookup("NumItem", "item", "NumItem =" & Me!TxtNumItem)) Then
DoCmd.GoToRecord , , acNewRec
Me.NumItem = Me!TxtNumItem
Else
MsgBox "...This table already exist..."
Me!TxtNumItem.SetFocus
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NumItem] = " & Str(Nz(Me![TxtNumItem], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
End Sub
Petite modif à faire (merci le client!):
les tables etaient numérique et doivent devenir ALPHAnumérique.
ça me donne quelques erreurs ...
l'erreur viendrait elle de ce code?
D'avance merci
Frédéric
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
j'avais déjà posté cette question et j'avais reçu une réponse ... mais je ne la retrouve plus dans le forum .. je la repose donc...
J'ai une petite appli de gestion de table de resto. dans ma form, j'encode un numéro de table: si la table existe, elle est affichée; si elle n'existe pas, une nouvelle table est crée. le code suivant gère donc cela:
Private Sub TxtNumItem_AfterUpdate() If IsNull(DLookup("NumItem", "item", "NumItem =" & Me!TxtNumItem)) Then DoCmd.GoToRecord , , acNewRec Me.NumItem = Me!TxtNumItem
Else MsgBox "...This table already exist..." Me!TxtNumItem.SetFocus Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "[NumItem] = " & Str(Nz(Me![TxtNumItem], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If
End Sub
Petite modif à faire (merci le client!): les tables etaient numérique et doivent devenir ALPHAnumérique. ça me donne quelques erreurs ... l'erreur viendrait elle de ce code?
D'avance merci Frédéric
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Alan Cossey
fth wrote:
Bonsoir,
j'avais déjà posté cette question et j'avais reçu une réponse ... mais je ne la retrouve plus dans le forum .. je la repose donc...
J'ai une petite appli de gestion de table de resto. dans ma form, j'encode un numéro de table: si la table existe, elle est affichée; si elle n'existe pas, une nouvelle table est crée. le code suivant gère donc cela:
Private Sub TxtNumItem_AfterUpdate() If IsNull(DLookup("NumItem", "item", "NumItem =" & Me!TxtNumItem)) Then DoCmd.GoToRecord , , acNewRec Me.NumItem = Me!TxtNumItem
Else MsgBox "...This table already exist..." Me!TxtNumItem.SetFocus Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "[NumItem] = " & Str(Nz(Me![TxtNumItem], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If
End Sub
Petite modif à faire (merci le client!): les tables etaient numérique et doivent devenir ALPHAnumérique. ça me donne quelques erreurs ... l'erreur viendrait elle de ce code?
devrait devenir dim conQuotes as string="""" rs.FindFirst "[NumItem] = " & conQuotes & Str(Nz(Me![TxtNumItem], 0)) & conQuotes
je crois.
Alan
fth wrote:
Bonsoir,
j'avais déjà posté cette question et j'avais reçu une réponse ...
mais je ne la retrouve plus dans le forum ..
je la repose donc...
J'ai une petite appli de gestion de table de resto.
dans ma form, j'encode un numéro de table:
si la table existe, elle est affichée; si elle n'existe pas, une
nouvelle table est crée.
le code suivant gère donc cela:
Private Sub TxtNumItem_AfterUpdate()
If IsNull(DLookup("NumItem", "item", "NumItem =" & Me!TxtNumItem))
Then DoCmd.GoToRecord , , acNewRec
Me.NumItem = Me!TxtNumItem
Else
MsgBox "...This table already exist..."
Me!TxtNumItem.SetFocus
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NumItem] = " & Str(Nz(Me![TxtNumItem], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
End Sub
Petite modif à faire (merci le client!):
les tables etaient numérique et doivent devenir ALPHAnumérique.
ça me donne quelques erreurs ...
l'erreur viendrait elle de ce code?
j'avais déjà posté cette question et j'avais reçu une réponse ... mais je ne la retrouve plus dans le forum .. je la repose donc...
J'ai une petite appli de gestion de table de resto. dans ma form, j'encode un numéro de table: si la table existe, elle est affichée; si elle n'existe pas, une nouvelle table est crée. le code suivant gère donc cela:
Private Sub TxtNumItem_AfterUpdate() If IsNull(DLookup("NumItem", "item", "NumItem =" & Me!TxtNumItem)) Then DoCmd.GoToRecord , , acNewRec Me.NumItem = Me!TxtNumItem
Else MsgBox "...This table already exist..." Me!TxtNumItem.SetFocus Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "[NumItem] = " & Str(Nz(Me![TxtNumItem], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If
End Sub
Petite modif à faire (merci le client!): les tables etaient numérique et doivent devenir ALPHAnumérique. ça me donne quelques erreurs ... l'erreur viendrait elle de ce code?
