Thema Datum  Von Nutzer Rating
Antwort
Rot VBA neuling braucht Unterstützung bei Datenbank
03.09.2015 23:31:55 philipp
NotSolved
04.09.2015 21:32:56 BigBen
NotSolved
05.09.2015 07:33:27 Gast30458
NotSolved

Ansicht des Beitrags:
Von:
philipp
Datum:
03.09.2015 23:31:55
Views:
2084
Rating: Antwort:
  Ja
Thema:
VBA neuling braucht Unterstützung bei Datenbank

Guten Tag,

bin ein ziemlicher VBA noob und bin auch eher unfreiwillig zu dieser Aufgabe gekommen.

 

ich erstelle gerade eine datenbank 

eine Userform für das Anlegen der Daten habe ich bereits angelegt und die Ersten simplen einfüge optionen habe ich auch noch hinbekommen.

nun habe ich 2 Probleme die es zu lösen gibt 

zum einen Möchte ich das Jeder eintrag seine eigene ID und das Ohne das die Anwender diese eingeben müssen 

der Button für die Userform liegt in Tabelle 1

die Datenbank ansich liegt auf sheet 2 und das Erste feld das beschrieben werden soll ist b4 

also beim drücken auf den "speichern" knopf soll er alle daten eintragen + die ID vergeben 

 

hinzu kommt noch ein Kleines problem mit 2 Daten werten

zu erläuterung

habe 2 textboxen  in eine wird der verbrauch angegeben in der 2. wird angegeben wieoft die Probe getestet wurde, in der Datenbank aber soll der % gehalt erscheinen. ( der Verbrauch sowie die Anzahl der tests müssen zusätzlich in eine Extra tabelle übertragen werden das ich daraus den gesamtverbrauch und einige andere kleinigkeiten ausrechnen kann (anzahl der Tests um den Verbrauch der chemikalien auszurechnen die in festen mengen zugegeben werden )

 

also textbox 1 soll durch die Anzahl von Textbox 2 dividiert werden und dann mit einem Faktor multipliziert.  hier mal der Code der im Speichern knopf hinterlegt ist ( ich entschuldige mich für dieses chaos in der Formel wie gesagt hatte vorher garnichts damit zu tun)

 

Private Sub probeanlegen_Click()


Dim zeile As Long



zeile = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets(2).Cells(zeile + 1, 1).Value = Anlegen.TextBox1.Value 'datum
Sheets(2).Cells(zeile + 1, 3).Value = Anlegen.TextBox2.Value 'Probennummer
Sheets(2).Cells(zeile + 1, 4).Value = Anlegen.TextBox3.Value ' int.charge
Sheets(2).Cells(zeile + 1, 5).Value = Anlegen.ComboBox2.Value ' Lieferant
Sheets(2).Cells(zeile + 1, 6).Value = Anlegen.ComboBox1.Value ' Produkt
Sheets(2).Cells(zeile + 1, 7).Value = Anlegen.TextBox4.Value ' phwert
  'hier fehlen die Befehle für die Salz und Säure bestimmung
  'textbox5 ist verbrauch textbox 6 die anzahl der Salz titration
  'textbox 7 ist verbrauch textbox 8 die anzahl Säure titration
  'kann man die Faktoren aus Zellen einer Tabelle beziehen lassen oder müssen sie ins Makro eingebunden werden ?

Sheets(2).Cells(zeile + 1, 10).Value = Anlegen.TextBox9.Value ' Brix


Unload Anlegen



End Sub

 


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 neuling braucht Unterstützung bei Datenbank
03.09.2015 23:31:55 philipp
NotSolved
04.09.2015 21:32:56 BigBen
NotSolved
05.09.2015 07:33:27 Gast30458
NotSolved