Comment ajouter un enregistrement à table2 de la forme 1 (tabel1)

Question

Quand je suis dans le tableau 1, la forme 1 Je veux avoir un bouton lorsque vous cliquez dessus ajoute un enregistrement à la table 2.

Comment cela peut-il être rendre possible?

Answer 1

Vous pouvez exécuter SQL ou une requête à partir de VBA, par exemple:

Set db = CurrentDB 

sSQL="INSERT INTO Table2 (FKID, Stuff) VALUES (" & Me.ID & ",'" & Me.Stuff & "')" 
db.Execute sSQL, dbFailOnError 

MsgBox "Records inserted " & db.RecordsAffected 

Ou si vous avez construit une requête appropriée:

DoCmd.OpenQuery "QueryName" 

Notez que si vous ajoutez à une table, car vous souhaitez ajouter des éléments supplémentaires à une liste de listes déroulantes, recherchez NotInList, vous trouverez un certain nombre de suggestions.

Answer 2

Une façon (de beaucoup): - en cas de clic de bouton:

currentdb.execute "insert into table2 (col1, col2) select 'some_string', 12345;"