AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 10 23:07:41
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

4 commentaire(s) de Michele sur des sources sur tout CodeS-SourceS

Le : 23/12/2003 11:35:46
Source : SYSTÈME DE FAUSSES (ET BELLES) POPUP EN JS/HTML
Comment faire un lien pour ouvrir le popup et qui ne s'ouvre au chargement de page

Le : 11/09/2003 18:42:11
Source : CARNET D'ADRESSES - BASE DE DONNÉES ACCESS & ADO 2.0
rires ?

Le : 11/09/2003 11:18:58
Source : CARNET D'ADRESSES - BASE DE DONNÉES ACCESS & ADO 2.0
Bonjour.

J'ai testé ton carnet d'adresse qui est bien fait.

Juste une petite remarque si tu me le permets.

Lors de la recherche d'un nom comprenant un apostrophe une erreur se produit, afin d'y remédier je te propose la solution ci-dessous.

A+ Michele



Dans la partie  Private Sub TextRecherche_Change() modifie de la manier suivant





Dim ListItemResultat As ListItem          



Dim IntegerIndex As Integer                





' Mise à jour de la ListView



ListViewResultat.ListItems.Clear





' Mise à jour des zones de texte



Dim StrApostrophe As String



  If (InStr(TextRecherche, "'")) Then

    StrApostrophe = SrchReplace(TextRecherche)

Else

StrApostrophe = TextRecherche

End If

' Recherche par Nom



If ((Not Trim(TextRecherche.Text) = "") And (ComboRecherchePar.ListIndex = 0)) Then



resultatADO.Filter = "NomPrenon LIKE '" & Trim(StrApostrophe) & "*'"



End If



Et ajoute cette fonction



Function SrchReplace(ByVal sStringToFix As String) As String



Dim iPosition As Integer

Dim sCharToReplace As String

Dim sReplaceWith As String

Dim sTempString As String



sCharToReplace = "'"

sReplaceWith = "''"



iPosition = InStr(sStringToFix, sCharToReplace)

sTempString = ""



Do While iPosition

  sTempString = sTempString & Left$(sStringToFix, iPosition - 1)

  sTempString = sTempString & sReplaceWith

  sTempString = sTempString & _

    Mid$(sStringToFix, iPosition + 1, Len(sStringToFix))

  iPosition = InStr(iPosition + 1, sStringToFix, sCharToReplace)

Loop



SrchReplace = sTempString



End Function

Le : 08/06/2002 10:12:59
Source : CODE SIMPLE POUR ENVOYER UN MAIL PAR UN SERVEUR
Apparament tu connais tous les composants d'envoi de mail,
peux-tu me donner le code a utiliser avec le composant SendMail
Michèle

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Tomtom GO 740 LIVE
Entre 349€ et 508€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto alphabet langue des sourds
Photo pretty girlPhoto walking on the beach.

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,218 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.