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?
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
3stone
Salut,
"fth" | 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
If IsNull(DLookup("NumItem", "item", "NumItem ='" & Me!TxtNumItem & "'")) Then
| Petite modif à faire (merci le client!): | les tables etaient numérique et doivent devenir ALPHAnumérique.
le champ était numérique, je suppose...
| ça me donne quelques erreurs ... | l'erreur viendrait elle de ce code?
"fth"
| 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
If IsNull(DLookup("NumItem", "item", "NumItem ='" & Me!TxtNumItem & "'")) Then
| Petite modif à faire (merci le client!):
| les tables etaient numérique et doivent devenir ALPHAnumérique.
le champ était numérique, je suppose...
| ça me donne quelques erreurs ...
| l'erreur viendrait elle de ce code?
"fth" | 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
If IsNull(DLookup("NumItem", "item", "NumItem ='" & Me!TxtNumItem & "'")) Then
| Petite modif à faire (merci le client!): | les tables etaient numérique et doivent devenir ALPHAnumérique.
le champ était numérique, je suppose...
| ça me donne quelques erreurs ... | l'erreur viendrait elle de ce code?
