Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2180 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [vb]bdd access : assistant feuilles de données et messages d'erreurs

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[vb]bdd access : assistant feuilles de données et messages d'erreurs

n°412422
Le_Toto
Posté le 02-06-2003 à 08:37:25  profilanswer
 

Salut,
    J'y connait rien en base de donnée alors j'ai créer avec l'assitant une feuille de données.
    ça fonctionne tres bien, les données contenus dans ma base access aparaissent dans la grille et je peut les modifier,suprimer et ajouter.  
    Ce qui me convient, MAIS (et oui y'as forcement un "mais" ) je ne sais pas comment modifier les messages d'erreur !
    Par exemple lorsque j'ajoute un enregistrement et que j'oublie un parametre obligatoire, y'as une message box qui me dit un truc du genre:
            le champ "Client.Nom" ne peut pas contenir de valeur null car la propriété required est true"
 
Voici le code généré automatiquement :
 
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
  'Insérez ici le code de gestion d'erreur
  'Si vous voulez ignorer les erreurs, transformez la ligne qui suit en commentaire
  'Si vous souhaitez les intercepter, ajoutez du code ici pour les gérer
  MsgBox "Data error event hit err:" & Description
End Sub
 
Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  'Insérez ici le code de validation
  'Cet événement est appelé lorsque les actions suivantes se produisent
  Dim bCancel As Boolean
 
  Select Case adReason
  Case adRsnAddNew
  Case adRsnClose
  Case adRsnDelete
  Case adRsnFirstChange
  Case adRsnMove
  Case adRsnRequery
  Case adRsnResynch
  Case adRsnUndoAddNew
  Case adRsnUndoDelete
  Case adRsnUndoUpdate
  Case adRsnUpdate
  End Select
 
  If bCancel Then adStatus = adStatusCancel
End Sub
 
Private Sub cmdAdd_Click()
  On Error GoTo AddErr
  datPrimaryRS.Recordset.MoveLast
  grdDataGrid.SetFocus
  SendKeys "{down}"
  Exit Sub
AddErr:
  MsgBox Err.Description
End Sub
 
Private Sub cmdDelete_Click()
  On Error GoTo DeleteErr
  With datPrimaryRS.Recordset
    .Delete
    .MoveNext
    If .EOF Then .MoveLast
  End With
  Exit Sub
DeleteErr:
  MsgBox Err.Description
End Sub
 
 
Je voudrait savoir, si c'est possible, comment faire pour changer le message en : "Vous dever saisir le Nom du client !"
 
voila, c'est un peu long, mais ça doit pas etre si difficile que ça, je vous fait confiance.
 
Merci


Message édité par Le_Toto le 07-06-2003 à 16:57:25
mood
Publicité
Posté le 02-06-2003 à 08:37:25  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [vb]bdd access : assistant feuilles de données et messages d'erreurs

 

Sujets relatifs
requete somme dans accessprobleme de liste dans un sous formulaire access...
champs de base de donnéesExtraire des données d'une base SQL Anywhere
comment inserer des données dans un fichiers excel en aspPb de requete sous ACCESS (utilisation de max)
que sont les feuilles de style CSS?Problème d'ajout de données
probleme requete et formulaire access...[PHP/Mysql] Récuprer ces données là...
Plus de sujets relatifs à : [vb]bdd access : assistant feuilles de données et messages d'erreurs


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR