title image


Smiley Re: Nachtrag mit einigen Verbesserungen
' Code in ThisDocument

Private Sub Document_New()

Dim strINIFName, Durchwahl$, Pfad$

Pfad$ = ActiveDocument.AttachedTemplate.Path _

& Application.PathSeparator

strINIFName = Pfad$ & "Durchwahl.ini"

'

If Dir(strINIFName) = "" Then

ufrmBMS_Fax.Show

Else

Durchwahl$ = System.PrivateProfileString(strINIFName, "Aktuelle Durchwahl", "Durchwahl")

' Mach was damit ...

MsgBox "Aktuelle Durchwahl: " & Durchwahl$

End If

End Sub

'

' Code in der der Form ufrmBMS_Fax

Private Sub cmdOK_Click()

Pfad$ = ActiveDocument.AttachedTemplate.Path _

& Application.PathSeparator

strINIFName = Pfad$ & "Durchwahl.ini"

'

System.PrivateProfileString(strINIFName, "Aktuelle Durchwahl", "Durchwahl") = Me.txtDurchwahl.Text

Unload Me

End Sub



'Eingabe prüfen

Private Sub txtDurchwahl_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(Me.txtDurchwahl.Text) = 0 Then

MsgBox "Sie müsssen die Durchwahl eingeben!" _

& vbNewLine & "Beispiel: 02221", vbCritical + vbOKOnly, "Pflichtfeld"

Cancel = True

End If

End Sub



' verhindert das Schliessen der Form über das Schliessenkreuz

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode 1 Then Cancel = True

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: