Dialog TextField: Fehlermeldung bei fehlendem Eintrag

[Jörg]

Hallo Fachleute,
ich versuche mal wieder vergeblich:
Das unten stehende Makro ist an ein anderes angehängt.
Um sicher zu stellen, dass vor Ausführen des Makros das "TextField24"
nicht leer ist, hätte ich gern eine Fehlermeldung, etwa

if "TextField24" = "" then
z.Bsp. msgbox ("Eingabe notwendig")
sonst weiter

Code: Alles auswählen

sub bezahltam_schreiben
bezahltam.formulalocal = oDialog4.getControl("TextField24").text 

myDoc = thisComponent
	mySheet = myDoc.sheets(). getByName ("Tabelle12")
	myData = myDoc.sheets().getByName ("Rechnungen")     
	myPid = mysheet.getCellByPosition(1,7).value
		search = "~"
		do until search = myPid
			y=y+1
			search = myData.getCellByPosition(0,y).value
		loop
 
 		for i=0 to 0
			ReplaceData = mysheet.getCellByPosition(7,23).value 'H24
			if ReplaceData <> "" then  
			
			myData.getCellByPosition(57+i,y).value = ReplaceData 				
	
	end if
	next
   mycell = mySheet.getCellRangeByName("H24")
     mycell.FormulaLocal  = "=bezahltam"
     	
    Rechnungsdaten_lesen
end sub

Im Makrokochbuch hab ich dazu dies gefunden:

Code: Alles auswählen

dim aFliste() 'Fehlerliste
dim aFelder() 'Bezeichner der Felder
aFelder = array("Name", "Vorname", "Namenskürzel", "Abteilung", "Telefonnummer", "E-Mail",
"Adresse", "Straße", "Postleitzahl", "Ort") 'hier käme ja wohl bei mir "TextField24" rein
REM Eingabekontrolle
n = 0 'Vorgabe Fehlerzähler
for i = 0 to uBound(aFelder())
oCtl = oDlg.getControl("txt_eing“ & i+1) 'bei mir oDialog4.getControl
if trim(oCtl.getText()) = "" then 'keine Eingabe – Fehler! 'was ist trim??
redim preserve aFListe(n) 'Fehlerliste um einen Eintrag erweitern
 'Fehlerliste bräuchte ich eigentlich nicht, da es ja nur ein feld ist, msgbox reicht, aber man weiß ja nie 
aFListe(n) = " - das Feld """ & aFelder(i) & """ muss ausgefüllt werden“
'Feldbezeichnung
n = n + 1 'Fehlerzähler um eins erhöhen
end if
next i 'nächstes

Würd mich freuen, wenn jemand Zeit dafür fände.

Gruß Jörg

[mikeleb]

Hallo,

eigentlich hast du doch alles schon alles Nötige:

Code: Alles auswählen

temp=oDialog4.getControl("TextField24").text
If temp="" then
...
Else
...
end if

[Jörg]

Hallo mikeleb,

danke Dir!

Funktioniert wie gewünscht !

Gruß Jörg