Option Compare Database
Option Explicit
Private Sub DeinButton_Click()
On Error GoTo Err_DeinButton_Click
DeineVariable = 1250
Exit_DeinButton_Click:
Exit Sub
Err_DeinButton_Click:
MsgBox Err.Description
Resume Exit_DeinButton_Click
End SubOption Compare Database
Option Explicit
Private Sub DeinButton_Click()
Dim DeineVariable As Integer
On Error GoTo Err_DeinButton_Click
DeineVariable = 1250
Me.DeinTextfeld = DeineVariable
Exit_DeinButton_Click:
Exit Sub
Err_DeinButton_Click:
MsgBox Err.Description
Resume Exit_DeinButton_Click
End Sub
VB6 Variable in anderen Sub übergeben
da_horscht 28.11.2009 - 100 Hits - 6 Antworten
excel tabelle/spalte umformatieren
danielm 25.04.2008 - 31 Hits - 4 Antworten