Also ich habe ja ein Formular, indem der Softwarebestand (CDs & Disketten) verwaltet wird.
Man kann also Hersteller, Produkt, Version, Datum usw. anschauen bzw.eintragen.
Jetzt meine Gedanken:
ich öffne das Formular…
ich blätter durch die einzelnen Datensätze…
in der ComboBox werden Sachgebiete angezeigt…
bei einigen Sachgebieten(Bsp.Treiber)geht eine Listbox daneben auf, in der Matchcode(Drucker,Sound usw.)steht…
wenn der Matchcode,den ich brauche nicht dabei ist, klicke ich auf den „NEU“ Button u.füge somit neuen Matchcode hinzu…
der Matchcode wird sofort in der Listbox angezeigt *freu*…
bis hierhin ist alles ok, aber jetzt…
ich öffne die dazugehörige Tabelle…
und was seh ich da??
der Matchcode wurde nicht im entsprechenden Datensatz hinzugefügt, sondern in einem neuen Datensatz!!
Ich will wenn ich bei einem Datensatz den Matchcode ändere(neu hinzufüge), dass der neue Matchcode auch in der Tabelle beim richtigen Datensatz steht!
Mal so vorab…falls du das beruflich machst solltest du erstmal nen Access und nen SQL-Kurs absolvieren, denn offensichtlich hast du von beiden keine ahnung…
Mh Bernd,
welchen Code magste denn haben?
Den vieleicht?..(ist Sub v.meinem „NEU“ Button)
Private Sub Befehl106_Click()
Dim Mldg, Titel, Hersteller
Dim z As Variant
Dim objcon As ADODB.Connection
Dim rstTab As ADODB.Recordset
If MsgBox(„Wollen Sie neuen Matchcode hinzufügen?“, vbYesNo +
vbQuestion, „Neuer Matchcode“) = vbYes Then
z = InputBox(„Bitte geben Sie den Matchcode ein:“, „Neuer
Matchcode“)
Set objcon = Application.CodeProject.Connection
Set rstTab = New ADODB.Recordset
rstTab.CursorType = adOpenDynamic
rstTab.LockType = adLockOptimistic
rstTab.CursorLocation = adUseClient
rstTab.Open „Softwarebestand“, objcon, , , adCmdTable
Du solltest schon den richtigen Datensatz raussuchen wo du eintragen willst! z. b. select * from softwarebestand where id = xxx (oder halt name = xxx jenachdem wie du den Datensatz identifizierst!)
rstTab.AddNew
wunderst du dich wirklich wenn du addnew sagst das er einen neuen Datensatz anlegt??? für deinen Fall gibt es edit !!
With rstTab
etwas albern für einen befehl! Es reicht hier
rsttab.edit
tsttab![matchcode] = z
rsttab.update
.Fields(„Matchcode“).Value = z
.Update
End With
rstTab.Close
Set rstTab = Nothing
Set objcon = Nothing
antw = MsgBox(„Der Matchcode " & z & " wurde der
Tabelle hinzugefügt!“, _
vbOKOnly + vbInformation)
aktualisieren_Click
Liste103.Requery
Else
End If
End Sub
