Makro Fehler abfangen mit If-Then
Verfasst: Mo, 19.10.2015 08:32
Hallo an alle
Was mach ich falsch?
Egal welche if Abfrage ich mache, bekomme ich Fehler Meldungen.
Es werden aus einem Base Formular Felder in Variablen übertragen und von dort wird ein Feld beschrieben.
Funktioniert Einwand frei.
Sollte jedoch bereits ein Inhalt vorhanden sein, darf der nicht überschrieben werden und da bekomme ich immer Fehlermeldungen, oder die IF Anweisung wird ignoriert.
Was mach ich falsch?
Egal welche if Abfrage ich mache, bekomme ich Fehler Meldungen.
Es werden aus einem Base Formular Felder in Variablen übertragen und von dort wird ein Feld beschrieben.
Funktioniert Einwand frei.
Sollte jedoch bereits ein Inhalt vorhanden sein, darf der nicht überschrieben werden und da bekomme ich immer Fehlermeldungen, oder die IF Anweisung wird ignoriert.
Code: Alles auswählen
Sub LS_Intern_Uebertragen
Dim sLsInt1Field as String
Dim sLsInt2Field as String
Dim sLsInt1 as String
Dim sLsInt2 as String
oDoc2 = ThisComponent 'Das ist immer so eine Muss-Zeile
oForm2 = oDoc2.drawpage.forms.getbyindex(2) 'Da die Zählung mit 0 beginnt ist die Zweite Subform die 2
sLsInt2Field = "Lieferschein Nr." 'Feldname des Feldes wo der Folder drinsteht.
oDoc1 = ThisComponent 'Das ist immer so eine Muss-Zeile
oForm1 = oDoc1.drawpage.forms.getbyindex(0) 'Da die Zählung mit der 0 beginnt ist das hauptformulat die 0.
sLsInt1Field = "Lieferschein Nr." 'Feldname des Feldes wo der Folder drinsteht.
sLsInt2 = oForm2.getByName(sLsInt2Field).text'Zellen Inhalt in die Variable
sLsInt1 = oForm1.getByName(sLsInt1Field).text'Zellen Inhalt in die Variable neue vorgeschlagene Nummer
'if not isempty(sLsInt2) then 'Funktioniert nicht
'if not sLsInt2 ="" then 'wen sLsInt2 nicht leer dan fehler (Funktioniert auch nicht datentüp unverträglich )
'If sLsInt2 =>0 then (Funktioniert auch nicht (Unerwartetes Symbol >)
MsgBox "Es ist bereits eine Nummer vergeben !!!"
goto ende
end if
oForm1.getByName(sLsInt1Field).BoundField.updateInt(sLsInt2)
ende:
End Sub