Thema Datum  Von Nutzer Rating
Antwort
Rot VBA (Access) Listenfeld Mehrfachauswahl
 28.04.2013 20:41:02 Dennis
NotSolved

Ansicht des Beitrags:
Von:
Dennis		 Datum:
28.04.2013 20:41:02		 Views:
1331		 Rating:
     
Antwort:
  Ja
Thema:
VBA (Access) Listenfeld Mehrfachauswahl

Schönen guten Abend zusammen,

 

ich habe folgendes Problem:

Ich habe ein Listenfeld, welches "Tests" enthält. der Benutzer soll die durchzuführenden Tests in dieser Liste auswählen. Anschließend soll für jede Auswahl ein neuer Eintrag in einer Tabelle (tbl_untersuchung) geschrieben werden. Das klappt auch soweit gut, allerdings erhalte ich immer zusätzlich einen Eintrag in der Tabelle in dem eine "leerauswahl" also als Test nix ausgewählt steht. Ich verstehe aber leider nicht wie das entseht.

Hier meine Sub:

Private Sub Befehl77_Click()

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("tbl_untersuchung", dbOpenDynaset)

For Each i In Me!Liste85.ItemsSelected
With rs
    .AddNew
    !Probe = Me!Probe
    !Test = Me!Liste85.Column(0, i)
    .Update
End With
Next i

Set rs = Nothing
End Sub

Warum wird zusätzlich zur Auswahl noch ein Eintrag in die Tabelle geschrieben, welcher dann einen "leeren" Test enthält?

 

Vielen Dank für eure Hilfe!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA (Access) Listenfeld Mehrfachauswahl
 28.04.2013 20:41:02 Dennis
NotSolved