Befehlsschaltfläche zwei abfragen
Sorry wieder eine Rookiefrage
---
das Script kopiert mir neue Datensätze in eine Tabelle(BooksVideosEffects)
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and FullName = i.AUTHORS.FullName and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
FullName := i.AUTHORS.FullName;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
alert("Alle Datensätze wurden nach BooksVideosEffects kopiert")
else
alert("Es wurden keine neuen Datensätze gefunden")
end
end
Und hier für Effects
---
for j in select EFFECTS do
if cnt((select BooksVideosEffects)[Name = j.EffectName and PageZeit = j.Page and 'Short Description' = j.'Short Description' and Vorname = j.AUTHORS.Vorname and Nachname = j.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := j.EffectName;
PageZeit := j.Page;
'Short Description' := j.'Short Description';
Vorname := j.AUTHORS.Vorname;
Nachname := j.AUTHORS.Nachname
);
alert("Alle Datensätze wurden nach BooksVideosEffects kopiert")
else
alert("Es sind keine neuen Datensätze vorhanden")
end
end
---
einzeln in einem separaten Button funktioniert alles Perfect.
Wie bekomme ich jetzt diese beiden SCRIPTE in einen Button????
Wolfgang
7 Antworten
-
let myAlert:="";
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and FullName = i.AUTHORS.FullName and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
FullName := i.AUTHORS.FullName;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
myAlert :="Alle Datensätze wurden von BOOKS nach BooksVideosEffects kopiert"
else
myAlert:="Es wurden keine neuen Datensätze in BOOKS gefunden"
end
end;
for j in select EFFECTS do
if cnt((select BooksVideosEffects)[Name = j.EffectName and PageZeit = j.Page and 'Short Description' = j.'Short Description' and Vorname = j.AUTHORS.Vorname and Nachname = j.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := j.EffectName;
PageZeit := j.Page;
'Short Description' := j.'Short Description';
Vorname := j.AUTHORS.Vorname;
Nachname := j.AUTHORS.Nachname
);
myAlert:=myAlert+"
"Alle Datensätze wurden von EFFECTS nach BooksVideosEffects kopiert"
else
myAlert:=myAlert+"
"Es sind keine neuen Datensätze in EFFECTS vorhanden"
end
end;
alert(myAlert) -
Halo Leo vielen Dank, er kopiert jetzt richtig, es werden aber keine Alerts angezeigt
-
Wobei ich auf die ersten beiden verzichten könnte, wenn es einmal bis unten durchläuft.
-
Wenn ich die Formel so eingebe wie oben wird ein Fehler Symbol erwartet: end in Zeile 26, Spalte 5
Hatte ich erst nicht gesehen und bin auf o.K. gegangen Ninox hat den Code dann wie folgt abgeändert. Kopiervorgang funktioniert nur nicht die Alerts
---
let myAlert := "";
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and FullName = i.AUTHORS.FullName and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
FullName := i.AUTHORS.FullName;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
myAlert := "Alle Datensätze wurden von BOOKS nach BooksVideosEffects kopiert"
else
myAlert := "Es wurden keine neuen Datensätze in BOOKS gefunden"
end
end;
for j in select EFFECTS do
if cnt((select BooksVideosEffects)[Name = j.EffectName and PageZeit = j.Page and 'Short Description' = j.'Short Description' and Vorname = j.AUTHORS.Vorname and Nachname = j.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := j.EffectName;
PageZeit := j.Page;
'Short Description' := j.'Short Description';
Vorname := j.AUTHORS.Vorname;
Nachname := j.AUTHORS.Nachname
);
myAlert := myAlert + "
"
end
end---
Wolfgang
-
Kann eigentlich nicht sein. Hast du auch die letzte zeile mit kopiert (alert(myAlert))?
-
Ja, siehe Screenshot
-
Kann bei besten Willen nichts finden. Versuch mal mit Zusatzklammern:
---
let myAlert:="";
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and FullName = i.AUTHORS.FullName and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
((create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
FullName := i.AUTHORS.FullName;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
myAlert :="Alle Datensätze wurden von BOOKS nach BooksVideosEffects kopiert")
else
myAlert:="Es wurden keine neuen Datensätze in BOOKS gefunden"
end
end;
for j in select EFFECTS do
if cnt((select BooksVideosEffects)[Name = j.EffectName and PageZeit = j.Page and 'Short Description' = j.'Short Description' and Vorname = j.AUTHORS.Vorname and Nachname = j.AUTHORS.Nachname]) = 0 then
((create BooksVideosEffects).(
Name := j.EffectName;
PageZeit := j.Page;
'Short Description' := j.'Short Description';
Vorname := j.AUTHORS.Vorname;
Nachname := j.AUTHORS.Nachname
);
myAlert:=myAlert+"
"Alle Datensätze wurden von EFFECTS nach BooksVideosEffects kopiert")
else
myAlert:=myAlert+"
"Es sind keine neuen Datensätze in EFFECTS vorhanden"
end
end;
alert(myAlert)----
Leo
Content aside
- vor 5 JahrenZuletzt aktiv
- 7Antworten
- 1491Ansichten