Telefon liste, Access

Eller lave en eller anden funktion der gør, at der kan ringes op via modem ved at dobbel klikke på nummeret.
Mvh
Slyhn

Indtast i stedet de oplysninger i Outlook. Den kan ringe op for dig!

Kan oplysninger føres/eksporteres direkte derover eller skal jeg taste det hele igen??

I Outlook kan du importere data skrevet i Access. Du skal altså i Access først lave en eksport, så der dannes en fil, som Outlook kan lave en import på.

Du kan også prøve at kigge i eksempeldatabasen NorthWind.
Der ligger noget, der kan gøre det for dig

Her er en funktion der kalder windows indbyggede dialer (Check at den er installeret i windowsprogrammer): 
Function DialNumber(PhoneNumber)
        Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
        Dim RetVal As Long

        \' Ask the user to pick up the phone.
        Msg = \"Tag telefonen og vælg OK for at kalde  \" _
            & PhoneNumber
        MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL
        MsgBoxTitle = \"Kald Nummer\"

        If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then
            Exit Function
        End If

        \' Send the telephone number to the modem.
        RetVal = tapiRequestMakeCall(PhoneNumber, \"\", \"\", \"\")

        If RetVal < 0 Then
            Msg = \"Nummeret kan ikke kaldes \" & PhoneNumber
            GoTo Err_DialNumber
        End If

        Exit Function

Err_DialNumber:            \'This is not an On Error routine.
        Msg = Msg & vbCr & vbCr & _
            \"Check at ingen anden software eller hardware bruger Com porten\"
        MsgBoxType = MB_ICONSTOP
        MsgBoxTitle = \"Kald Nummer Fejl\"
        MsgBox Msg, MsgBoxType, MsgBoxTitle

      End Function

Og her er et eksempel på en subrutine:
Private Sub Txt_Telefon_DblClick(Cancel As Integer)
If IsNull(Me![Txt_Telefon]) Then
        MsgBox \"Der er ingen gyldige data i det felt du har markeret.\"
Else
    DialNumber (Me.[Txt_Telefon])
    End If
End Sub

>macjensen 
Hvor sætter jeg den programmel ind i Access

Opret et modul, og indsæt følgende :
      Declare Function tapiRequestMakeCall Lib \"tapi32.dll\" _
        (ByVal stNumber As String, ByVal stDummy1 As String, _
        ByVal stDummy2 As String, ByVal stDummy3 As String) As Long

      Public Const ID_CANCEL = 2
      Public Const MB_OKCANCEL = 1
      Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64
Indsæt derefter funktionen og kompiler det hele.

Subrutinen er til brug i den formular du ønsker at bruge til dit kald.
[Txt_Telefon] skiftes ud med navnet på den tekstboks du ønsker at bruge til telefonnmummer.

Tusind tak
Slyhn