OpenOffice.info

Hallo Stefan,
Dein Vorschlag funktioniert, die IF Anweisung funktioniert jetzt gut.
Ich habe nur die falsche Variable auf Inhalt geprüft, die immer mit einem Zahlenwert belegt ist.

DANKE

sLsInt2 = oForm2.getByName(sLsInt2Field).text
Msgbox sLsInt2

Hallo Stefan
Habe deinen Code eingebaut, leider durchläuft es nun immer die IF Anweisung egal ob Feld mit Inhalt belegt ist oder nicht.

[code]sLsInt2 = oForm2.getByName(sLsInt2Field).text
Msgbox sLsInt2
[/code] ist mit einer Zahl belegt.

sLsInt2 = oForm2.getByName(sLsInt2Field).text
Msgbox sLsInt2

If Len(sLsInt2) > 0 Then 
  MsgBox "Es ist bereits eine Nummer vergeben !!!"
  goto ende
End If

bringt denn ein:

[code]sLsInt2 = oForm2.getByName(sLsInt2Field).text
Msgbox sLsInt2[/code]

eine Anzeige wenn schon Text im Feld ist, d.h. funktioniert der Ausdruck "sLsInt2 = oForm2.getByName(sLsInt2Field).text" wie gewünscht?

Wenn Ja würde ich einmal ein:

[code]If Len(sLsInt2) > 0 Then
MsgBox "Es ist bereits eine Nummer vergeben !!!"
goto ende
End If
[/code]
versuchen.


Gruß
Stephan

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

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.

[code]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[/code]