Access-VBA - Add neue Zeile in einem Unterformular auf

Ich hoffe jemand hier kann mir helfen! 🙂 Eigentlich hab ich in eine Wand laufen mit meinem VBA-vor kurzem. Ich versuche, aus einem Suchformular zu finden, dass etwas bestimmtes Feld in der Access-Datenbank. Ich habe Sie erfolgreich, erhalten Sie die Informationen, die ich brauche (Name, Ort, etc) aus einer SQL-Abfrage, aber wenn ich versuche, dies alles in einem Unterformular, ich nicht. Ich finden den code unten auf internet und, execept die Tatsache, dass das Programm nicht Abstürzen, es tut sich absolut nichts. Mein eigentlich problem (denke ich) ist, dass ich don T wissen, die richtige synthax, um Wert nach dem "addNewRecord".

Set dbs = CurrentDb

WriteToATextFile (sqlquery)
Set rst = dbs.OpenRecordset(sqlquery)


rst.MoveFirst
Do While Not rst.EOF

   If Me!sfrm_recherche_cours.Form.Dirty Then
        Me!sfrm_recherche_cours.Form.Dirty = False
    End If

    Me!sfrm_recherche_cours.SetFocus
    MsgBox rst!titre_cours
    DoCmd.GoToRecord , , acNewRec
    txt_sigle_cours = rst!sigle_cours
    txt_titre_cours = rst!titre_cours
    txt_nrc_cours = rst!titre_cours
    txt_faculte_cours = rst!faculte_cours


   rst.MoveNext
Loop

Ich versuche, etwas zu finden auf dieser Seite, dass sieht aus wie mein problem, aber ich habe nichts...also, wenn man mich auf dem richtigen Weg, ich werde sehr glücklich sein:)

InformationsquelleAutor Patrick Pruneau | 2011-03-02

  1. 3

    Sie zu sein scheinen, die von der main-form, aber Sie sind nicht das hinzufügen von ein Referenzprojekt, das Unterformular auf die Steuerelemente, es sollte sein:

    Set dbs = CurrentDb

WriteToATextFile (sqlquery)
Set rst = dbs.OpenRecordset(sqlquery)


rst.MoveFirst
Do While Not rst.EOF

   If Me!sfrm_recherche_cours.Form.Dirty Then
        Me!sfrm_recherche_cours.Form.Dirty = False
    End If

    Me!sfrm_recherche_cours.SetFocus
    MsgBox rst!titre_cours
    DoCmd.GoToRecord , , acNewRec
    Me!sfrm_recherche_cours.Form.txt_sigle_cours = rst!sigle_cours
    Me!sfrm_recherche_cours.Form.txt_titre_cours = rst!titre_cours
    Me!sfrm_recherche_cours.Form.txt_nrc_cours = rst!titre_cours
    Me!sfrm_recherche_cours.Form.txt_faculte_cours = rst!faculte_cours


   rst.MoveNext
Loop

    Allerdings ist es oft einfacher, einfach eine Anfügeabfrage ausführen, und das requery des Unterformulars.

     sSQL="INSERT INTO MySubformTable " _
   & "(sigle_cours, titre_cours, nrc_cours, faculte_cours) " _
   & "SELECT sigle_cours, titre_cours, nrc_cours, faculte_cours " _
   & "FROM SomeOtherOrEvenTheSameTable " _
   & "WHERE SomeField=SomeNumber"

 dbs.Execute sSQL, dbFailOnError
 Me!sfrm_recherche_cours.Form.Requery
    Danke!!! Ich dachte nur, über eine Lösung, wie später gestern, aber ich wusste nicht, wie es zu tun....speichern Sie den Tag! 🙂

    InformationsquelleAutor Fionnuala

  2. 0

    Seine einfach mit dem recordset-Objekt
    Mir!sfrm_recherche_cours.Form.Recordset.AddNew

    Ich erhielt nur eine Fehlermeldung, dass die "Objekt-variable oder With-block nicht definiert". Es scheint, dass das Recordset nicht erkennen von VBA. Haben Sie eine Idee, warum?
    Tun Sie hava eine Recordsource-set für das Unterformular

    InformationsquelleAutor Summer-Time

  3. 0

    Ich denke, was Sie wollen, ist eine DoCmd.FindNext sofort nach rst.MoveNext

    Einen alternativen Weg, dies zu tun, dieselbe Art von Vorgang ohne Einschaltung navingating Datensätze in Formularen wäre, öffnen Sie eine zweite Datensatz und verwenden rst2.AddNew um einen neuen Datensatz erstellen und rst2.update to finish off the record

    es der block würde in etwa so Aussehen

    dim rstemployees as RecordSet

''Outside the loop
Set rstEmployees = _
   dbsNorthwind.OpenRecordset("Employees", dbOpenDynaset)

'' other stuff happens
Do While Not rst.EOF
    rstEmployees.AddNew
    rstEmployees!EmpName = "Fred"
    rstEmployees.Update
Loop
'' more stuff

rstEmployees.Close
set rstEmployees = Nothing

    InformationsquelleAutor BIBD

Schreibe einen Kommentar