Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Listenfeld mit allen Datensätzen sortieren
Gehe zu Seite Zurück  1, 2
zurück: halbautomatisches Kombinationsfeld weiter: Häkchen Kontrollkästchen > MsgBox zum auswählen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
jens05
Moderator


Verfasst am:
04. Jan 2007, 21:06
Rufname:
Wohnort: ~~~~~

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Hallo,
wenn du z.B. vom Reiter "software" was aus dem Ufo haben möchtest,
könntest du so darauf zugreifen
Code:
    rstHardware!Kombihardware_software = _
                 Me!Eingebettet93![Kombihardware_software.softwarekey].Column(1)
Eingebettet93 = Name des Ufos
Kombihardware_software.softwarekey = Name des Kombis
Column(1) = Wert der 2. Spalte des Kombis

_________________
mfg jens05 Wink
Roemer
Interressierter NOOB


Verfasst am:
05. Jan 2007, 09:43
Rufname: Clemens


AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Ja danke ich werds mal ausprobnieren.

hast du dir mal den cope angeguckt den ich vorher dafür schon gepostet hab?
weil der funktioniert nicht richtig.

Es kommt zwar ein neuer eintag in der liste aber er hat immer die falschen daten (die daten vom ersten Datensatz) und er ist auch nicht auswählbar in der liste.

währe nett wenn du den Code dir mal angucken könntest.

Danke
jens05
Moderator


Verfasst am:
05. Jan 2007, 21:22
Rufname:
Wohnort: ~~~~~

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Hallo,
schau mal ob es mit den modifizierungen (Requery) besser geht.
Das Goto um die Eingabe habe ich mal geändert
Code:
Private Sub Befehduplizieren_Click()
On Error GoTo ende
    Dim DB                   As DAO.Database
    Dim rstHardware          As DAO.Recordset
    Dim rstHardware_Software As DAO.Recordset
    Dim rstHardware_Zubehoer As DAO.Recordset
    Dim anzahl               As String
    Dim i                    As Integer
    Dim strEingabe           As String
    Dim lngID                As Long
    Dim x                    As Boolean
   
    Set DB = CurrentDb
    Do While x = False
        anzahl = InputBox("Bitte geben Sie die Anzahl >0 der zu erzeugenden " & _
                          "Gerätedatensätze an", , _
                           anzahl)
        If StrPtr(anzahl) = 0 Then
            Exit Sub
          Else
            If anzahl = "" Then
                MsgBox "Bitte Eingabe"
              Else
                If Not IsNumeric(anzahl) Then
                    MsgBox "Es wurde keine positive Zahl eingegeben"
                  Else
                    x = True
                End If
            End If
        End If
    Loop
    For i = 1 To anzahl
'Datensatz gemäß Anzahl duplizieren'
        Set rstHardware = DB.OpenRecordset("Hardware", dbOpenDynaset)
        rstHardware.AddNew
        rstHardware!standortkey = Me!standortkey
        rstHardware!abteilungkey = Me!abteilungkey
        rstHardware!raumbezkey = Me!raumbezkey
        rstHardware!geraetartkey = Me!geraetartkey
        rstHardware!modellkey = Me!modellkey
        rstHardware!herstellerkey = Me!herstellerkey
        rstHardware!lieferantkey = Me!lieferantkey
        rstHardware!patchschrkey = Me!patchschrkey
        rstHardware!garantietypkey = Me!garantietypkey
        rstHardware!betriebssyskey = Me!betriebssyskey
        rstHardware!servicepackkey = Me!servicepackkey
        rstHardware!hardwareraumnr = Me!hardwareraumnr
        strEingabe = InputBox("Bitte geben Sie einen Hardwarenamen ein")
        rstHardware!hardwarename = strEingabe
        strEingabe = InputBox("Bitte geben Sie die Aufklebernummer ein")
        rstHardware!hardwareaufklebernr = strEingabe
        strEingabe = InputBox("Bitte geben Sie die Seriennummer ein")
        rstHardware!hardwareseriennr = strEingabe
        rstHardware!hardwarerechnungdate = Me!hardwarerechnungdate
        rstHardware!hardwarerechnungnr = Me!hardwarerechnungnr
        rstHardware!hardwarerechnungnetto = Me!hardwarerechnungnetto
        rstHardware!hardwaremwst = Me!hardwaremwst
        rstHardware!hardwaregarantieende = Me!hardwaregarantieende
        rstHardware!ramkey = Me!ramkey
        rstHardware!cpukey = Me!cpukey
        rstHardware!hardwarehdmemo = Me!hardwarehdmemo
        rstHardware!hardwarememo = Me!hardwarememo
        rstHardware!hardwaredatevon = Me!hardwaredatevon
        rstHardware!hardwaredatebis = Me!hardwaredatebis
        rstHardware.Update
    Next i
    lngID = Me!hardwarekey 'Schlüssel in Variable
    Me.Painting = False 'Bildschirmaktualisierung ausschalten
    Me![U-A-L-F-Hardware].Form.Requery 'aktialisieren UFO
    Me.Requery 'aktialisieren Hauptform
    Me.Recordset.FindFirst "hardwarekey = " & lngID 'Datensatz wieder suchen
    Me.Painting = True 'Bildschirmaktualisierung einschalten
ende:
End Sub

_________________
mfg jens05 Wink
Roemer
Interressierter NOOB


Verfasst am:
08. Jan 2007, 13:33
Rufname: Clemens

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

das funktioniert aber er übernimmt die daten von den unterformularen nicht.

und wie geht das das der datensatz den ich in meiner liste anklicke auch makiert bleibt???

ich habe es mit diesem code versucht da sagt er mir das die "Id" kein feldname ist
Code:
Private Sub hardwareaufklebernr_Click()
On Error GoTo myError
    Dim lngStore As Long

    lngStore = Me!hardwareaufklebernr
    'Bildschirmflackern reduzieren
    Me.Painting = False
    Me.Requery
    Me.RecordsetClone.FindFirst "Id = " & lngStore
    Me.Bookmark = Me.RecordsetClone.Bookmark
myExit:
    Me.Painting = True
Exit Sub
myError:
    Select Case Err.number
      Case 3159
        'not a valid bookmark
        Resume myExit
      Case Else
        MsgBox "Exception Nr. " & Err.number & " " & Err.Description
        Resume myExit
    End Select
End Sub
jens05
Moderator


Verfasst am:
08. Jan 2007, 13:49
Rufname:
Wohnort: ~~~~~


AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Hallo,
wie sieht denn dein fertiger Code aus (mit einbindung des Ufo)

Zitat:
und wie geht das das der datensatz den ich in meiner liste anklicke auch makiert bleibt???
Bei welcher Aktion?
Die "ID" gab es doch nicht im UFO, ersetze ID durch den eindeutigen Feldnamen.
Ich glaube im Ereignis "Beim Klicken" bist du falsch. Dort ist der DS ja markiert.

_________________
mfg jens05 Wink
Roemer
Interressierter NOOB


Verfasst am:
08. Jan 2007, 16:38
Rufname: Clemens

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Roemer am 08. Jan 2007 um 12:57 hat folgendes geschrieben:
Also zur zeit habe ich im unterformular für das feld hardwareaufklebernr diesen Code drin.
Code:
Private Sub hardwareaufklebernr_Click()
    Me.Parent.Recordset.FindFirst "hardwarekey=" & Me!hardwarekey
End Sub
und wollte den Code irgentwie erweitern damit der Datensatz makiert bleibt nachdem ich darauf geklickt hab.

Wie genau kann ich denn beim duplizieren die UFO's einbinden muss ich da irgentetwas beachten oder kann ich das einfach so erweitern wie das duplizieren vom HFO???

Das ist der Code für mein Duplikationsfeld der Funktioniert aber nicht wo ist der Fehler'???
Code:
Private Sub Befehduplizieren_Click()
On Error GoTo ende
    Dim DB                   As DAO.Database
    Dim rstHardware          As DAO.Recordset
    Dim rstHardware_Software As DAO.Recordset
    Dim rstHardware_Zubehoer As DAO.Recordset
    Dim anzahl               As String
    Dim i                    As Integer
    Dim strEingabe           As String
    Dim lngID                As Long
    Dim x                    As Boolean
   
    Set DB = CurrentDb
    Do While x = False
        anzahl = InputBox("Bitte geben Sie die Anzahl >0 der zu erzeugenden " & _
                          "Gerätedatensätze an", , _
                           anzahl)
        If StrPtr(anzahl) = 0 Then
            Exit Sub
          Else
            If anzahl = "" Then
                MsgBox "Bitte Eingabe"
              Else
                If Not IsNumeric(anzahl) Then
                    MsgBox "Es wurde keine positive Zahl eingegeben"
                  Else
                    x = True
                End If
            End If
        End If
    Loop
    For i = 1 To anzahl
'Datensatz gemäß Anzahl duplizieren'
        Set rstHardware = DB.OpenRecordset("Hardware", dbOpenDynaset)
        rstHardware.AddNew
        rstHardware!standortkey = Me!standortkey
        rstHardware!abteilungkey = Me!abteilungkey
        rstHardware!raumbezkey = Me!raumbezkey
        rstHardware!geraetartkey = Me!geraetartkey
        rstHardware!modellkey = Me!modellkey
        rstHardware!herstellerkey = Me!herstellerkey
        rstHardware!lieferantkey = Me!lieferantkey
        rstHardware!patchschrkey = Me!patchschrkey
        rstHardware!garantietypkey = Me!garantietypkey
        rstHardware!betriebssyskey = Me!betriebssyskey
        rstHardware!servicepackkey = Me!servicepackkey
        rstHardware!hardwareraumnr = Me!hardwareraumnr
        strEingabe = InputBox("Bitte geben Sie einen Hardwarenamen ein")
        rstHardware!hardwarename = strEingabe
        strEingabe = InputBox("Bitte geben Sie die Aufklebernummer ein")
        rstHardware!hardwareaufklebernr = strEingabe
        strEingabe = InputBox("Bitte geben Sie die Seriennummer ein")
        rstHardware!hardwareseriennr = strEingabe
        rstHardware!hardwarerechnungdate = Me!hardwarerechnungdate
        rstHardware!hardwarerechnungnr = Me!hardwarerechnungnr
        rstHardware!hardwarerechnungnetto = Me!hardwarerechnungnetto
        rstHardware!hardwaremwst = Me!hardwaremwst
        rstHardware!hardwaregarantieende = Me!hardwaregarantieende
        rstHardware!ramkey = Me!ramkey
        rstHardware!cpukey = Me!cpukey
        rstHardware!hardwarehdmemo = Me!hardwarehdmemo
        rstHardware!hardwarememo = Me!hardwarememo
        rstHardware!hardwaredatevon = Me!hardwaredatevon
        rstHardware!hardwaredatebis = Me!hardwaredatebis
        rstHardware!Kombihardware_software = Me!Eingebettet93![Kombihardware_software.softwarekey].Column(1)
        rstHardware!Kombihardware_zubehoer = Me!Eingebettet93![Kombihardware_zubehoer.zubehoerkey].Column(1)
        rstHardware.Update
    Next i
    lngID = Me!hardwarekey 'Schlüssel in Variable
    Me.Painting = False 'Bildschirmaktualisierung ausschalten
    Me![U-A-L-F-Hardware].Form.Requery 'aktialisieren UFO
    Me.Requery 'aktialisieren Hauptform
    Me.Recordset.FindFirst "hardwarekey = " & lngID 'Datensatz wieder suchen
    Me.Painting = True 'Bildschirmaktualisierung einschalten
ende:
End Sub
jens05
Moderator


Verfasst am:
08. Jan 2007, 20:57
Rufname:
Wohnort: ~~~~~

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Hallo,
du hast schon gesehen, das das Ufo Zubehör nicht den Namen "Eingebettet93" trägt Question

Vorab, deine unmassen an Requerys bei fast jeder Aktion gehen schwer auf die Performance Exclamation

Anbei deine beiden Anpassungen
Code:
Private Sub hardwareaufklebernr_Click()
    Dim lngID As Long
   
    lngID = Me!hardwarekey
    Me.Painting = False
    Me.Parent.Recordset.FindFirst "hardwarekey=" & Me!hardwarekey
    Me.Recordset.FindFirst "hardwarekey = " & lngID 'Datensatz wieder suchen
    Me.Painting = True 'Bildschirmaktualisierung einschalten
End Sub
Und für duplizieren
Code:
Private Sub Befehduplizieren_Click()
On Error GoTo ende
    Dim DB                   As DAO.Database
    Dim rstHardware          As DAO.Recordset
    Dim rstHardware_Software As DAO.Recordset
    Dim rstHardware_Zubehoer As DAO.Recordset
    Dim anzahl               As String
    Dim i                    As Integer
    Dim strEingabe           As String
    Dim lngID                As Long
    Dim x                    As Boolean
    Dim lngHWKey             As Long
    Dim strSQLSW             As String
    Dim strSQLZB             As String
   
    Set DB = CurrentDb
    Do While x = False
        anzahl = InputBox("Bitte geben Sie die Anzahl >0 der zu " & _
                          "erzeugenden Gerätedatensätze an", , anzahl)
        If StrPtr(anzahl) = 0 Then
            Exit Sub
          Else
            If anzahl = "" Then
                MsgBox "Bitte Eingabe"
              Else
                If Not IsNumeric(anzahl) Then
                    MsgBox "Es wurde keine positive Zahl eingegeben"
                  Else
                    x = True
                End If
            End If
        End If
    Loop
    For i = 1 To anzahl
'Datensatz gemäß Anzahl duplizieren'
        Set rstHardware = DB.OpenRecordset("Hardware", dbOpenDynaset)
        rstHardware.AddNew
        rstHardware!standortkey = Me!standortkey
        rstHardware!abteilungkey = Me!abteilungkey
        rstHardware!raumbezkey = Me!raumbezkey
        rstHardware!geraetartkey = Me!geraetartkey
        rstHardware!modellkey = Me!modellkey
        rstHardware!herstellerkey = Me!herstellerkey
        rstHardware!lieferantkey = Me!lieferantkey
        rstHardware!patchschrkey = Me!patchschrkey
        rstHardware!garantietypkey = Me!garantietypkey
        rstHardware!betriebssyskey = Me!betriebssyskey
        rstHardware!servicepackkey = Me!servicepackkey
        rstHardware!hardwareraumnr = Me!hardwareraumnr
        strEingabe = InputBox("Bitte geben Sie einen Hardwarenamen ein")
        rstHardware!hardwarename = strEingabe
        strEingabe = InputBox("Bitte geben Sie die Aufklebernummer ein")
        rstHardware!hardwareaufklebernr = strEingabe
        strEingabe = InputBox("Bitte geben Sie die Seriennummer ein")
        rstHardware!hardwareseriennr = strEingabe
        rstHardware!hardwarerechnungdate = Me!hardwarerechnungdate
        rstHardware!hardwarerechnungnr = Me!hardwarerechnungnr
        rstHardware!hardwarerechnungnetto = Me!hardwarerechnungnetto
        rstHardware!hardwaremwst = Me!hardwaremwst
        rstHardware!hardwaregarantieende = Me!hardwaregarantieende
        rstHardware!ramkey = Me!ramkey
        rstHardware!cpukey = Me!cpukey
        rstHardware!hardwarehdmemo = Me!hardwarehdmemo
        rstHardware!hardwarememo = Me!hardwarememo
        rstHardware!hardwaredatevon = Me!hardwaredatevon
        rstHardware!hardwaredatebis = Me!hardwaredatebis
        lngHWKey = rstHardware!hardwarekey
        rstHardware.Update
        strSQLSW = "INSERT INTO Hardware_Software " & _
                         "(HardWarekey,Softwarekey) " & _
                   "SELECT " & lngHWKey & ",Softwarekey " & _
                     "FROM Hardware_Software " & _
                    "WHERE Hardwarekey=" & Me!hardwarekey
        strSQLZB = "INSERT INTO Hardware_Zubehoer " & _
                         "(HardWarekey,Zubehoerkey) " & _
                   "SELECT " & lngHWKey & ",Zubehoerkey " & _
                     "FROM Hardware_Zubehoer " & _
                    "WHERE Hardwarekey=" & Me!hardwarekey
        CurrentDb.Execute strSQLSW
        CurrentDb.Execute strSQLZB
    Next i
    lngID = Me!hardwarekey 'Schlüssel in Variable
    Me.Painting = False 'Bildschirmaktualisierung ausschalten
    Me![U-A-L-F-Hardware].Form.Requery 'aktialisieren UFO
    Me.Requery 'aktialisieren Hauptform
    Me.Recordset.FindFirst "hardwarekey = " & lngID 'Datensatz wieder suchen
    Me.Painting = True 'Bildschirmaktualisierung einschalten
ende:
End Sub

_________________
mfg jens05 Wink
Roemer
Interressierter NOOB


Verfasst am:
23. Apr 2007, 13:32
Rufname: Clemens

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Roemer am 10. Jan 2007 um 00:04 hat folgendes geschrieben:
danke schonmal im vorraus ich werde es morgen ausprobieren

Roemer am 10. Jan 2007 um 12:27 hat folgendes geschrieben:
Hey Dankie läuft genau so wie ich mir das vorgestellt hab

1000dank das ist echt genial läuft super

Roemer am 20. Apr 2007 um 11:06 hat folgendes geschrieben:
hi

mir ist bei dem Code noch was aufgefallen.
wenn der "hardwareaufklebernr" der eingegeben wurde in der Datenbank schon vorhanden ist, dann gibt er keine fehler meldung und fügt den Datensatz auch nicht zu.
das feld "hardwareaufklebernr" ist indiziert (ohne duplikate)

ich möchte aber das bei einer eingabe wo schon ein datensatz vorhanden ist eine fehler meldung kommt und man die möglichkeit bekommt dir "hardwareaufklebernr" nochmal einzugeben.
mein code sieht grad so aus
Code:
Private Sub Befehduplizieren_Click()
On Error GoTo ende
    Dim DB                   As DAO.Database
    Dim rstHardware          As DAO.Recordset
    Dim rstHardware_Software As DAO.Recordset
    Dim rstHardware_Zubehoer As DAO.Recordset
    Dim anzahl               As String
    Dim i                    As Integer
    Dim strEingabe           As String
    Dim lngID                As Long
    Dim x                    As Boolean
    Dim lngHWKey             As Long
    Dim strSQLSW             As String
    Dim strSQLZB             As String
   
    Set DB = CurrentDb
    Do While x = False
        anzahl = InputBox("Bitte geben Sie die Anzahl >0 der zu " & _
                          "Gerzeugenden erätedatensätze an", , anzahl)
        If StrPtr(anzahl) = 0 Then
            Exit Sub
          Else
            If anzahl = "" Then
                MsgBox "Bitte Eingabe"
              Else
                If Not IsNumeric(anzahl) Then
                    MsgBox "Es wurde keine positive Zahl eingegeben"
                  Else
                    x = True
                End If
            End If
        End If
    Loop
    For i = 1 To anzahl
'Datensatz gemäß Anzahl duplizieren'
        Set rstHardware = DB.OpenRecordset("Hardware", dbOpenDynaset)
        rstHardware.AddNew
        rstHardware!standortkey = Me!standortkey
        rstHardware!abteilungkey = Me!abteilungkey
        rstHardware!raumbezkey = Me!raumbezkey
        rstHardware!geraetartkey = Me!geraetartkey
        rstHardware!modellkey = Me!modellkey
        rstHardware!herstellerkey = Me!herstellerkey
        rstHardware!lieferantkey = Me!lieferantkey
        rstHardware!patchschrkey = Me!patchschrkey
        rstHardware!garantietypkey = Me!garantietypkey
        rstHardware!betriebssyskey = Me!betriebssyskey
        rstHardware!servicepackkey = Me!servicepackkey
        rstHardware!hardwareraumnr = Me!hardwareraumnr
        strEingabe = InputBox("Bitte geben Sie die Aufklebernummer ein")
        rstHardware!hardwareaufklebernr = strEingabe
        strEingabe = InputBox("Bitte geben Sie die Seriennummer ein")
        rstHardware!hardwareseriennr = strEingabe
        rstHardware!hardwarerechnungdate = Me!hardwarerechnungdate
        rstHardware!hardwarerechnungnr = Me!hardwarerechnungnr
        rstHardware!hardwarerechnungnetto = Me!hardwarerechnungnetto
        rstHardware!hardwaremwst = Me!hardwaremwst
        rstHardware!hardwaregarantieende = Me!hardwaregarantieende
        rstHardware!ramkey = Me!ramkey
        rstHardware!cpukey = Me!cpukey
        rstHardware!hardwarehdmemo = Me!hardwarehdmemo
        rstHardware!hardwarememo = Me!hardwarememo
        rstHardware!hardwaredatevon = Me!hardwaredatevon
        rstHardware!hardwaredatebis = Me!hardwaredatebis
        lngHWKey = rstHardware!hardwarekey
        On Error Resume Next
        If Me.Dirty Then Me.Dirty = False
        With DB.OpenRecordset("SELECT * " & _
                                "FROM hardware " & _
                               "WHERE hardwareaufklebernr = '" & _
                                Me![F-Hardware]![hardwareaufklebernr] & "'", _
                              dbOpenForwardOnly)
            If .BOF = False And .EOF = False Then
                .AddNew
                strEingabe = InputBox("Die Aufklebernr ist bereits " & _
                                      "vorhanden, geben Sie etwas " & _
                                      "anderes ein.")
                !hardwareaufklebernr = strEingabe
                .Update
            End If
            .Close
        End With
        If Err.Number <> 0 Then
            MsgBox "Fehler: " & Err.Number & vbCrLf & Err.Description
        End If
        rstHardware.Update
        'Hier werden die Untertabellen mit dupliziert
        strSQLSW = "INSERT INTO Hardware_Software " & _
                         "(HardWarekey,Softwarekey) " & _
                   "SELECT " & lngHWKey & ",Softwarekey " & _
                     "FROM Hardware_Software " & _
                    "WHERE Hardwarekey=" & Me!hardwarekey
        strSQLZB = "INSERT INTO Hardware_Zubehoer " & _
                         "(HardWarekey,Zubehoerkey) " & _
                   "SELECT " & lngHWKey & ",Zubehoerkey " & _
                     "FROM Hardware_Zubehoer " & _
                    "WHERE Hardwarekey=" & Me!hardwarekey
        CurrentDb.Execute strSQLSW
        CurrentDb.Execute strSQLZB
    Next i
    lngID = Me!hardwarekey 'Schlüssel in Variable
    Me.Painting = False 'Bildschirmaktualisierung ausschalten
    Me![U-A-L-F-Hardware].Form.Requery 'aktialisieren UFO
    Me.Requery 'aktialisieren Hauptform
    Me.Recordset.FindFirst "hardwarekey = " & lngID 'Datensatz wieder suchen
    Me.Painting = True 'Bildschirmaktualisierung einschalten
ende:
End Sub

Kennt keiner eine Lösung für das Problem ich währe echt sehr Dankbar wenn mir da jemand helfen könnte
jens05
Moderator


Verfasst am:
23. Apr 2007, 20:10
Rufname:
Wohnort: ~~~~~

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Hallo,
anstatt der einfachen Inputbox, müsstest du eine Schleife (wie oben mit der Anzahl der Datensätze) einbauen, und solange in der Schleife laufen, bis du mit Dcount() keinen Schlüssel in der Tabelle mehr findest.

_________________
mfg jens05 Wink
Roemer
Interressierter NOOB


Verfasst am:
11. Mai 2007, 10:37
Rufname: Clemens

AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Roemer am 25. Apr 2007 um 14:57 hat folgendes geschrieben:
aber bei dcount funktion kann man doch nur auslesen lassen wieviele datensätze in der tabelle vorhanden sind oder???

ausserdem befinde ich mich in einem recordset geht das da auch?

und wie bekomme ich es hin das er die Do - Loop funktion innerhalb eines recordsets startet? das macht er bei mir glaube ich nicht

Roemer am 25. Apr 2007 um 15:21 hat folgendes geschrieben:
hab ne andere lösung gefunden vllt nich so schön aber es funktioniert Wink
Code:
        aufkleber = InputBox("Bitte geben Sie die Aufklebernummer ein")
100
        If hardwareaufklebernr Like aufkleber Then
            aufkleber = InputBox("Achtung Aufklebernummer bereits " & _
                                 "vergeben, bitte geben Sie die " & _
                                 "Aufklebernummer erneut ein")
            GoTo 100
        End If
aber vielen dank für die hilfe

Roemer am 11. Mai 2007 um 08:45 hat folgendes geschrieben:
ok meine Lösung hat sich als Fehlerhaft erwiesen ich bräuchte nochmal eure Hilfe.

Wie genau bekomme ich das mit der DCount() Funktion hin???

ich weiß nicht wie ich meine eingabe da als Kriterium reinbekomme.
Code:
DCount("[hardwareaufklebernr]", "hardware", "????")
wie pack ich bei den ???? meine Eingabe (strEingabe) rein?

ich hoffe mir kann jemand helfen

Vielen dank im Vorraus

Ok hab ne Lösung gefunden ist zwr nicht die optimal lösung aber es funktioniert
Code:
                Do While Y = False
                    strEingabe = InputBox("Bitte geben Sie die " & _
                                          "Aufklebernummer ein")
                    Me!Suchfeld = strEingabe
                    If StrPtr(strEingabe) = 0 Then
                        Exit Sub
                      Else
                        If anzahl = "" Then
                            MsgBox "Bitte Eingabe"
                          Else
                            If DCount("[hardwareaufklebernr]", _
                                      "A-hardware") > 0 Then
                                MsgBox "Aufklebernummer bereits vergeben." & _
                                       " Bitte erneut Eingeben"
                              Else
                                Y = True
                            End If
                        End If
                    End If
                Loop
                Y = False
Willi Wipp
Moderator


Verfasst am:
11. Mai 2007, 11:24
Rufname:
Wohnort: Raum Wiesbaden

Re: Listenfeld mit allen Datensätzen sortieren - Re: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Hi Roemer,

versuch es vielleicht besser mal so
Code:
                            If DCount("*", "A-hardware", _
                                      "[hardwareaufklebernr]=" & _
                                                          strEingabe) > 0 Then
' bzw falls Text
'                                      "[hardwareaufklebernr]='" & _
'                                                    strEingabe & "'") > 0 Then
                                MsgBox "Aufklebernummer bereits vergeben." & _
                                       " Bitte erneut Eingeben"

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Roemer
Interressierter NOOB


Verfasst am:
14. Mai 2007, 15:00
Rufname: Clemens


AW: Listenfeld mit allen Datensätzen sortieren - AW: Listenfeld mit allen Datensätzen sortieren

Nach oben
       Version: Office 2003

Hey Super ist auch ne viel bessere Lösung als meine mit dem textfeld wo dann der Suchbegriff reingeschrieben wird und die Abfrage sich auf den Suchbegriff bezieht.

Vielen Dank
Das ist echt ne klasse Lösung
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
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: Protokolltabelle nach Datum sortieren? 2 marcos_ 767 27. Jan 2006, 11:27
marcos_ Protokolltabelle nach Datum sortieren?
Keine neuen Beiträge Access Tabellen & Abfragen: ungewolltes sortieren 2 edbaer 773 10. Jan 2006, 12:21
Willi Wipp ungewolltes sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung im Listenfeld anzeigen? 3 Schnoop 804 20. Okt 2005, 08:24
Timbo Berechnung im Listenfeld anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Union Select sortieren? 4 Peter12 2708 28. Aug 2005, 15:09
Peter12 Union Select sortieren?
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachauswahl in Listenfeld als Abfrageparameter möglich? 3 esprene 1395 26. Aug 2005, 14:25
cablit Mehrfachauswahl in Listenfeld als Abfrageparameter möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Formular anzeigen, und dann sortieren 1 christian_10 597 22. Aug 2005, 13:28
lothi Abfrage in Formular anzeigen, und dann sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Feldlänge sortieren / Anzahl Zeichen zählen 2 viper 9172 13. Aug 2005, 20:25
Gast Nach Feldlänge sortieren / Anzahl Zeichen zählen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle sortieren 7 schnecke 672 12. Aug 2005, 13:12
schnecke Tabelle sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Tabellen zusammen fügen und Abfrage richtig sortieren 1 oeli24 603 02. Jun 2005, 15:42
Dennis79 2 Tabellen zusammen  fügen und Abfrage richtig sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle beim verlassen eines Formulares sortieren 1 nrgdw 597 27. Jan 2005, 06:52
Thomasro Tabelle beim verlassen eines Formulares sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Suche in Listenfeld 4 Access-Anfänger 673 04. Nov 2004, 11:35
Hilde Suche in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Sortieren von rechts 2 AngryKid 491 15. Sep 2004, 20:43
AngryKid Sortieren von rechts
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe