Buongiorno,
Ich habe mir in Excel mit VBA eine UserForm zusammengebastelt für eine Datenbank, in welche ich, mit Hilfe einem Eingabeformular, neue Datensätze einlesen kann.
Es ist noch voller Fehler, an denen ich noch arbeite, doch einen Fehler werde ich ohne Eure Hilfe sicherlich nicht in den Griff kriegen:
Immer wenn ich das Eingabeformular "Scheda di programmazione" aktiviere öffnet sich das Eingabeformular entweder mit leeren TextBoxen (Ausnahme Listbox1) oder mit gefüllten Textboxen. Gefüllt mit den Daten des ersten Listenelements. (D.h. Ich öffne das Eingabeformular und... -> es ist leer - klicke den Button "Finire" (Schliessen), öffne erneut -> nun ist es gefüllt - klicke den Button "Finire" (Schliessen), öffne -> ist wieder leer, usw.
Das wäre alles nicht so schlimm. Aber dies hat natürlich eine Auswirkung: Wenn das Eingabeformular leer ist und ich mit Hilfe einer neuen Datenmaske neue Daten eingeben will (klick auf "Nuova Scheda"), werden diese Daten nicht gespeichert.
Im anderen Fall (Textboxen gefüllt) werden die neuen Daten in der Tabelle1 korrekt abgespeichert, wie es eigentlich sein sollte.
Ich vermute, das in dieser Prozedur etwas nicht stimmt, obwohl das erste Element der Listbox1 ja ausgewählt wird...
Private Sub UserForm_Activate()
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End Sub
Da mein Code ziemlich umfangreich ist habe ich mein Projekt in meiner Drobbox abgelegt...
https://dl.dropboxusercontent.com/u/109 ... zione.xlsm
|