J'ai un probl=E8me semblable =E0 celui de P=E9pito (voir une=20
dizaine de lignes plus bas
J'ai une base avec plusieurs tables (CONTACT, ENTREPRISE,=20
STAGIAIRE) chaque table =E0 des attribut TELContact,=20
TELstagaire, ...
Lorsque mon tl=E9phone sonne ( j'ai la reconnaissance du=20
num=E9ro), je voudrais =E0 avoir a saisir rapidement ce num=E9ro=20
dans une bo=EEte de dialogue, et qu'une boite de dialogue me=20
renvoi le nom de l'entit=E9 qui essaye de me joindre.
Je souhaiterai pouvoir cliquer sur un bouton situ=E9 dans=20
une barre d'outils personnelle, quel que soit le=20
formulaire ou l'=E9tat dans lequel je me trouve au moment du=20
t=E9l=E9phone rugissant.
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
Jessy SEMPERE
Voici un code que tu peux copier dans un module et que tu peux adapter en fonction de ce que tu souhaites exactement
Ensuite tu n'a plus qu'a faire une macro menu avec : Action : ExécuterCode Argument : FindPhone()
le code : ******************************************************* Function FindPhone()
Dim Phone As Variant Dim rst As Recordset Dim strResult As String
Phone = InputBox("Entrez le n° de téléphone")
Set rst = CurrentDb.OpenRecordset("CONTACT", dbOpenDynaset) With rst If Not .BOF Then .FindFirst "TelContact = " & Phone If .NoMatch Then strResult = "Le numéro : " & Phone & "correspond à :" strResult = strResult & vbCrLf strResult = strResult & vbCrLf & vbTab & "Nom : " & .Fields("ChampNom") strResult = strResult & vbCrLf & vbTab & "Prénom : " & .Fields("ChampPrénom") '... GoTo fin End If End If End With
Set rst = CurrentDb.OpenRecordset("ENTREPRISE", dbOpenDynaset) With rst If Not .BOF Then .FindFirst "TelEntreprise = " & Phone If .NoMatch Then strResult = "Le numéro : " & Phone & "correspond à :" strResult = strResult & vbCrLf strResult = strResult & vbCrLf & vbTab & "Entreprise : " & .Fields("ChampNomEntreprise") strResult = strResult & vbCrLf & vbTab & "Adresse : " & .Fields("ChampAdresse") '... GoTo fin End If End If End With
Set rst = CurrentDb.OpenRecordset("STAGIAIRE", dbOpenDynaset) With rst If Not .BOF Then .FindFirst "TelStagiaire = " & Phone If .NoMatch Then strResult = "Le numéro : " & Phone & "correspond à :" strResult = strResult & vbCrLf strResult = strResult & vbCrLf & vbTab & "Nom : " & .Fields("ChampNomStagiaire") strResult = strResult & vbCrLf & vbTab & "Prénom : " & .Fields("ChampPrénomStagiaire") '... GoTo fin End If End If End With
fin: Set rst = Nothing If strResult = "" Then MsgBox "Ce numéro ne correspond à aucun contact..." Else MsgBox strResult End If
End Function ******************************************************* @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "PhilippeR" a écrit dans le message news: 092501c34634$ad39dcc0$ Bonsoir à tous
J'ai un problème semblable à celui de Pépito (voir une dizaine de lignes plus bas
J'ai une base avec plusieurs tables (CONTACT, ENTREPRISE, STAGIAIRE) chaque table à des attribut TELContact, TELstagaire, ...
Lorsque mon tléphone sonne ( j'ai la reconnaissance du numéro), je voudrais à avoir a saisir rapidement ce numéro dans une boîte de dialogue, et qu'une boite de dialogue me renvoi le nom de l'entité qui essaye de me joindre.
Je souhaiterai pouvoir cliquer sur un bouton situé dans une barre d'outils personnelle, quel que soit le formulaire ou l'état dans lequel je me trouve au moment du téléphone rugissant.
Si qq'un à une idée. merci d'avance
A vot' bon coeur m'sieurs dames.
Voici un code que tu peux copier dans un module et que tu peux
adapter en fonction de ce que tu souhaites exactement
Ensuite tu n'a plus qu'a faire une macro menu avec :
Action : ExécuterCode
Argument : FindPhone()
le code :
*******************************************************
Function FindPhone()
Dim Phone As Variant
Dim rst As Recordset
Dim strResult As String
Phone = InputBox("Entrez le n° de téléphone")
Set rst = CurrentDb.OpenRecordset("CONTACT", dbOpenDynaset)
With rst
If Not .BOF Then
.FindFirst "TelContact = " & Phone
If .NoMatch Then
strResult = "Le numéro : " & Phone & "correspond à :"
strResult = strResult & vbCrLf
strResult = strResult & vbCrLf & vbTab & "Nom : " &
.Fields("ChampNom")
strResult = strResult & vbCrLf & vbTab & "Prénom : " &
.Fields("ChampPrénom")
'...
GoTo fin
End If
End If
End With
Set rst = CurrentDb.OpenRecordset("ENTREPRISE", dbOpenDynaset)
With rst
If Not .BOF Then
.FindFirst "TelEntreprise = " & Phone
If .NoMatch Then
strResult = "Le numéro : " & Phone & "correspond à :"
strResult = strResult & vbCrLf
strResult = strResult & vbCrLf & vbTab & "Entreprise : " &
.Fields("ChampNomEntreprise")
strResult = strResult & vbCrLf & vbTab & "Adresse : " &
.Fields("ChampAdresse")
'...
GoTo fin
End If
End If
End With
Set rst = CurrentDb.OpenRecordset("STAGIAIRE", dbOpenDynaset)
With rst
If Not .BOF Then
.FindFirst "TelStagiaire = " & Phone
If .NoMatch Then
strResult = "Le numéro : " & Phone & "correspond à :"
strResult = strResult & vbCrLf
strResult = strResult & vbCrLf & vbTab & "Nom : " &
.Fields("ChampNomStagiaire")
strResult = strResult & vbCrLf & vbTab & "Prénom : " &
.Fields("ChampPrénomStagiaire")
'...
GoTo fin
End If
End If
End With
fin:
Set rst = Nothing
If strResult = "" Then
MsgBox "Ce numéro ne correspond à aucun contact..."
Else
MsgBox strResult
End If
End Function
*******************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"PhilippeR" <fouf.god@caramail.com> a écrit dans le message news:
092501c34634$ad39dcc0$a001280a@phx.gbl...
Bonsoir à tous
J'ai un problème semblable à celui de Pépito (voir une
dizaine de lignes plus bas
J'ai une base avec plusieurs tables (CONTACT, ENTREPRISE,
STAGIAIRE) chaque table à des attribut TELContact,
TELstagaire, ...
Lorsque mon tléphone sonne ( j'ai la reconnaissance du
numéro), je voudrais à avoir a saisir rapidement ce numéro
dans une boîte de dialogue, et qu'une boite de dialogue me
renvoi le nom de l'entité qui essaye de me joindre.
Je souhaiterai pouvoir cliquer sur un bouton situé dans
une barre d'outils personnelle, quel que soit le
formulaire ou l'état dans lequel je me trouve au moment du
téléphone rugissant.
Voici un code que tu peux copier dans un module et que tu peux adapter en fonction de ce que tu souhaites exactement
Ensuite tu n'a plus qu'a faire une macro menu avec : Action : ExécuterCode Argument : FindPhone()
le code : ******************************************************* Function FindPhone()
Dim Phone As Variant Dim rst As Recordset Dim strResult As String
Phone = InputBox("Entrez le n° de téléphone")
Set rst = CurrentDb.OpenRecordset("CONTACT", dbOpenDynaset) With rst If Not .BOF Then .FindFirst "TelContact = " & Phone If .NoMatch Then strResult = "Le numéro : " & Phone & "correspond à :" strResult = strResult & vbCrLf strResult = strResult & vbCrLf & vbTab & "Nom : " & .Fields("ChampNom") strResult = strResult & vbCrLf & vbTab & "Prénom : " & .Fields("ChampPrénom") '... GoTo fin End If End If End With
Set rst = CurrentDb.OpenRecordset("ENTREPRISE", dbOpenDynaset) With rst If Not .BOF Then .FindFirst "TelEntreprise = " & Phone If .NoMatch Then strResult = "Le numéro : " & Phone & "correspond à :" strResult = strResult & vbCrLf strResult = strResult & vbCrLf & vbTab & "Entreprise : " & .Fields("ChampNomEntreprise") strResult = strResult & vbCrLf & vbTab & "Adresse : " & .Fields("ChampAdresse") '... GoTo fin End If End If End With
Set rst = CurrentDb.OpenRecordset("STAGIAIRE", dbOpenDynaset) With rst If Not .BOF Then .FindFirst "TelStagiaire = " & Phone If .NoMatch Then strResult = "Le numéro : " & Phone & "correspond à :" strResult = strResult & vbCrLf strResult = strResult & vbCrLf & vbTab & "Nom : " & .Fields("ChampNomStagiaire") strResult = strResult & vbCrLf & vbTab & "Prénom : " & .Fields("ChampPrénomStagiaire") '... GoTo fin End If End If End With
fin: Set rst = Nothing If strResult = "" Then MsgBox "Ce numéro ne correspond à aucun contact..." Else MsgBox strResult End If
End Function ******************************************************* @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "PhilippeR" a écrit dans le message news: 092501c34634$ad39dcc0$ Bonsoir à tous
J'ai un problème semblable à celui de Pépito (voir une dizaine de lignes plus bas
J'ai une base avec plusieurs tables (CONTACT, ENTREPRISE, STAGIAIRE) chaque table à des attribut TELContact, TELstagaire, ...
Lorsque mon tléphone sonne ( j'ai la reconnaissance du numéro), je voudrais à avoir a saisir rapidement ce numéro dans une boîte de dialogue, et qu'une boite de dialogue me renvoi le nom de l'entité qui essaye de me joindre.
Je souhaiterai pouvoir cliquer sur un bouton situé dans une barre d'outils personnelle, quel que soit le formulaire ou l'état dans lequel je me trouve au moment du téléphone rugissant.
