Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bilden von Quersummen
Autor: Constantin
Datum: 21.01.04 13:58
Hallo.. ich bin auf ein Skript zum Bilden von Quersummen gestoßen, toll dass immer wieder jemand einem helfen kann. Mein Problem ist aber: Ich habe von Access leider fast keine Ahnung. Habe schon versucht einzusteigen, wie man in Access programmiert aber jetzt brummt mir der Kopf und ich weiß nicht viel mehr als vorher!!!!! Meine Frage wäre deshalb: Wie schaffe ich es ihren Skript in Access einzubauen? Ich will eigentlich folgendes: Ich habe ein Spalte mit ID-Nummern, zweistellig. Von diesen Zahlen möchte ich in einer nebenstehenden Spalte der gleichen Tabelle die Quersumme der jeweiligen ID-Nummer derselben Zeile haben. Mehr nicht! Ein kleiner Tipp würde mir schon weiterhelfen. Dankeschön. Grüße aus Berlin Constantin ' Quersumme berechnen Private Function Quersumme(ByVal vZahl As Variant) As Long Dim sZahl As String Dim nLen As Long Dim i As Long Dim nSum As Long ' Übergebene Zahl in einen String umwandeln sZahl = CStr(vZahl) ' alle Zeichen des Strings durchlaufen nLen = Len(sZahl) For i = 1 To nLen ' Wenn es sich um eine Ziffer handelt... If IsNumeric(Mid$(sZahl, i, 1)) Then ' ... aufsummieren nSum = nSum + Val(Mid$(sZahl, i, 1)) End If Next i ' Rückgabewert: Summe Quersumme = nSum End Function WO BAUE ICH DIESES SKRIPT EIN?? Bei Abragen oder Module oder wo kann ich so was nachlesen wie es gehen könnte??

Bilden von Quersummen	656	Constantin	21.01.04 13:58
Re: Bilden von Quersummen	425	Methos	21.01.04 14:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen