ник: folkner
Posle etogo mesta
DoCmd.OpenForm "Auswahl zu bedruckendes Etikett", A_NORMAL, , , , A_DIALOG
If IstGeladen("Auswahl zu bedruckendes Etikett") Then
Start = Forms![Auswahl zu bedruckendes Etikett]!OptionGewünschtesEtikett
Else
Exit Function
End If
|
vipolnyaetsafunkziya
Function IstGeladen(MeinFormularname) ' if loaded
Dim I
IstGeladen = False
For I = 0 To Forms.Count - 1
If Forms(I).FormName = MeinFormularname Then
IstGeladen = True
Exit Function 'Schleife nach Auffinden des Formulars verlassen.
End If
Next
End Function
|
perehodit srasu na
'Fehlerbehandlungsroutine einschalten
On Error GoTo EtikettSpezial_Err
|
hotya forma sagruzhena, ili nuzhno suda vpisat' imya konkretno formi? (naskol'ko ya ponimau eto prototip funkzii)