Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Anzeige aller nicht belegten Nummern
zurück: fehler in Me.Visible Funktion weiter: On Error Statement verschachteln Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Rückfrage Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
22. Nov 2007, 18:19
Rufname:

Anzeige aller nicht belegten Nummern - Anzeige aller nicht belegten Nummern

Nach oben
       Version: Office XP (2002)

Hallo,

ich möchte beim Hinzufügen eines neuen Datensatzes mittels Formular eine Combobox erstellen, die mir alle noch nicht belegten "Register Nr" im Bereich [1 bis (Anzahl Datensätze + 10)] anzeigt und bei Auswahl einer dieser Nummern in ein vorhandenes Textfeld übernimmt.

[Register Nr] ist vom Typ String und kann z.B. folgendermaßen aussehen:
12 A, 114 N, 543 aN
Mehrere Datensätze können die gleiche Register Nr enthalten.

Ich habe bereits rumprobiert, aber jetzt komme ich nicht weiter und hoffe auf Euch Very Happy
Auch leidet bei großer Anzahl von Datensätzen die Geschwindigkeit Sad
Code:
Function NichtbelegteRegNr() As String
On Error GoTo NichtbelegteRegNr_Err
    Dim db As DAO.Database, rs As DAO.Recordset, f As DAO.Field
    Dim NeueNr() As Long, BereichNr() As Long, xArray() As Long
    Dim AnzahlRs As Long
    Dim i As Integer, j As Integer
    Dim ObereGrenze As Integer 'Obere Grenze für RegisterNr
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Alpha", dbOpenSnapshot)
    Set f = rs![Register Nr]
    rs.MoveLast
    AnzahlRs = rs.RecordCount
    ObereGrenze = AnzahlRs + 10
    ReDim NeueNr(AnzahlRs)
    ReDim xArray(1 To ObereGrenze)
    ReDim BereichNr(1 To ObereGrenze)
    rs.MoveFirst
    Do Until rs.EOF
        If IsNull(f.Value) = False Then
            NeueNr(rs.AbsolutePosition) = fnc_Hausnummern(f.Value)
        End If
        rs.MoveNext
    Loop
    For i = LBound(NeueNr) To UBound(NeueNr)
        For j = LBound(BereichNr) To UBound(BereichNr)
            BereichNr(j) = j
            If BereichNr(j) = NeueNr(i) Then
                xArray(j) = BereichNr(j)
            End If
            BereichNr(j) = BereichNr(j) - xArray(j)
        Next j
    Next i
NichtbelegteRegNr_Exit:
   Exit Function
NichtbelegteRegNr_Err:
   MsgBox Error$
   Resume NichtbelegteRegNr_Exit
End Function
Wie kann ich nun die Werte des Arrays "BereichNr()" (Typ Long) in einen Array vom Typ String übergeben? Der neue Array soll wieder "Register Nr" als Inhalt haben und zwar folgendermaßen:
NeuerArray(j) = BereichNr(j) + N (Beispiel: "321 N" soll aus der "321" aus "BereichNr" mit angehängtem N entstehen.)

Die Werte von NeuerArray() sollen dann in der ComboBox erscheinen, am besten numerisch sortiert, wobei vorkommende Nullen ("0 N") nicht angezeigt werden sollen.

Schonmal vielen Dank für Eure Mühen
Jonas

P.S.:
Die Funktion "fnc_Hausnummern()" habe ich hier in diesem super Forum vor etwas längerer Zeit gefunden, nochmals Danke!
Code:
Public Function fnc_Hausnummern(FeldName As String) As Long
    'Definition der Variablen
    Dim Letter  As String
    Dim NrNeu   As Long
    Dim i       As Integer
   
    'Startwerte setzen
    Letter = ""
    NrNeu = 0
    'Schleife starten
    For i = 1 To Len(FeldName)
        'einzelnes Zeichen herausschneiden
        Letter = Mid(FeldName, i, 1)
        'überprüfen, ob es sich um eine Zahl handelt
        If IsNumeric(Letter) Then
            'bei einer Zahl den reinen Zahlenteil neu zusammensetzen
            NrNeu = NrNeu & Letter
          Else
            'bei einem anderen Zeichen Schleife beenden
            Exit For
        End If
    Next i
    'neu erstellten Wert übergeben
    fnc_Hausnummern = NrNeu
End Function
Kabutoo
Access lerning by doing Möchtegern


Verfasst am:
23. Nov 2007, 13:35
Rufname:


AW: Anzeige aller nicht belegten Nummern - AW: Anzeige aller nicht belegten Nummern

Nach oben
       Version: Office XP (2002)

Gehts nur um das?
Code:
    NeuerArray(j) = BereichNr(j) & "N"
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterwert Anzeige verhindern 7 hady79 190 21. Aug 2012, 11:50
hady79 Parameterwert Anzeige verhindern
Keine neuen Beiträge Access Tabellen & Abfragen: Adressbuch DB - Anschrift, Nummern usw. mehrere Einträge 1 Muckel 301 10. Mai 2012, 12:45
mgast Adressbuch DB - Anschrift, Nummern usw. mehrere Einträge
Keine neuen Beiträge Access Tabellen & Abfragen: Lücken in eigentlich fortlaufenden Nummern finden 10 azwinzds 1713 18. Feb 2011, 11:53
azwinzds Lücken in eigentlich fortlaufenden Nummern finden
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeige der Suchergebnisse 3 null plan 183 14. Feb 2011, 14:10
Nouba Anzeige der Suchergebnisse
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingte Anzeige in Abfrage 1 wurst-peter 189 10. Nov 2010, 20:42
Stefffano Bedingte Anzeige in Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Abfrage mit Anzeige in Textfeld 2 chris35 593 02. Apr 2010, 20:01
chris35 SQL Abfrage mit Anzeige in Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Ber. Abfrage mit Anzeige Nullwerte in Spalten und Zeilen 3 Gast_heute 196 20. Jul 2009, 15:17
MAPWARE Ber. Abfrage mit Anzeige Nullwerte in Spalten und Zeilen
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeige von Datensätze älter als 1 Jahr 1 crusher185 502 02. Sep 2008, 18:21
maike kaluscha Anzeige von Datensätze älter als 1 Jahr
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen von Datensätzen und Anzeige in neuem Formular 0 NumeroUnoDE 400 04. Jun 2008, 14:55
NumeroUnoDE Suchen von Datensätzen und Anzeige in neuem Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Alle Nummern in Tabelle enthalten? 1 mengelke 394 10. Apr 2008, 12:04
mengelke Alle Nummern in Tabelle enthalten?
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeige des kleinsten Geburtstages 2 Gast 388 21. Okt 2007, 20:05
Gast Anzeige des kleinsten Geburtstages
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage über alle Tel.-Nummern 7 Stefffano 592 11. Sep 2007, 19:54
Stefffano Abfrage über alle Tel.-Nummern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage