Office: (Office 2010) Berechnung von Abständen mittels Koordinaten

Hi Leute,

ich habe ein Problem mit Access. Ich hab so gut wie keine Erfahrung mit Access, also entschuldigt bitte falls ich mich unklar ausdrücke oder so. Ich soll Abstände errechnen, indem ich Koordinaten miteinander verrechne. Habe mal eine Tabelle angehängt, ist ein Ausschnitt aus einer Abfrage.
In der Tabelle ist eine Farbringkombi aufgelistet, über die ich ein Individuum (Vogel) definiere, dazu dann noch jeweils wann der Vogel wo (Feldnummer) gesichtet wurde. Dazu gibt es Gauß-Krüger-Koordinaten. Die erste Sichtung eines Individuums hat den Abstand 0, der zweite dann zb. 100 m, der dritte war zb. 400 m vom ersten Punkt der ersten Sichtung entfernt. Wie berechne ich den genauen Abstand? Müsste ja eigentlich gehen weil ich ja für jede Sichtung auch Koordinaten habe...

Versteht ihr, was ich meine?:p

LG, Jule

 

Hallo Jule89

den Abstand könntest Du mittels Satz des Pythagoras berechen
siehe hierzu auch die nachstehenden Links zur Verdeutlichung

http://homepage.alice.de/cecilia.r/html/koordinatensysteme.html
oder
http://www.cs.hhu.de/fileadmin/reda...et/Informatik/Geoinformatik/folie_3_12_13.pdf
und
https://www.kompf.de/gps/distcalc.html auch sei in diesem Zusammenhang Wikepedia nicht vergessen.

Da Du die Berechnung wahrscheinlich mittels VBA-Anweisung durchführtst hier mal die Formel für den Pythagoras

Code:

 Pythagoras = SQR (A^2 + B^2)

Auf gutes Gelingen
Gruß
JG.

 

Hi Du,

Danke für die schnelle Antwort. Wie ich schon schrieb, ich bin ein kompletter Access-Neuling...Kann ich die Berechnung auch direkt in der vorliegenden Abfrage machen? Und was genau ist VBA?? Sorry, ich bin echt (noch, ich arbeite daran es zu ändern) ein Vollhorst :-D

LG, Jule

 

Hallo Jule,

Benutze den Pythagoras in der Abfrage

Code:

QWurzel([X]^2+[Y]^2)

Füge der Abfrage eine weiter Spalte hinzu, in welcher Du diese Formel eingibst. (siehe angehängte Datei)

Das ist die Entwicklungsumgebung in welcher Du den Code hinterlegst für z.B. Schaltflächen, Formularverhalten (öffnen, schließen) und vieles mehr.
Alles aufzuzählen würde den Rahmen sprengen. Dieses VBA Fenster wird aufgerufen mit der Tastenkombination Alt+F11 oder Du hast ein Formular in der Entwurfsansicht offen und klickst dann im Eigenschaftsfenster auf das Register Ereignis. Dort siehst Du dann die Ereignisse des aktuell ativen (markierten) Objektes, für das Du ein Verhalten, oder ein Ereignis festlegen kannst. Wähle dort aus "Ereignisprozedur" und klicke dann auf die Schaltfläche dahinter mit den drei Punkten.

Ich habe Dir mal ein Beispiel mit dem Pythagoras in einer DB beigefügt. Schau es Dir mal an. Ich hoffe Du kannst damit was anfangen.


Gruß
JG.