Access vba HELP!!!

Bonjour,

J'ai un devoir de programmation à rendre. les question qui me sont posr son les suivantes.

Réaliser le programme vb qui crée le formulaire de saisie des informations de la table.- j'ai créé ce formulaire et ensuite j'ai fait moi même les cases etc..
- il ya un problème lors de la saisie de plusieurs client il me met erreur d'éxécution 2105 quand je clique sur le bouton de commande voici le code qui se cache derriere ce bouton

Private Sub Enregistrer_Click()

DoCmd.GoToRecord , , acNewRec

End Sub


Réaliser le programme vb qui affiche dans le fenêtre d'éxécution tous les clients d'une ville quelconque saisie.
j'ai fai ce code : je n'arrive pas a comparer ma variable ville avec le champ de la table villeCli

Sub affichClientVille()


Dim maConnex As New Connection
Dim monRs As New Recordset
Dim maReq As String
Dim ville As String


Set maConnex = CurrentProject.Connection
Set monRs.ActiveConnection = maConnex
ville = InputBox("entrer la ville")
if ville = ...... le champ de la table then

maReq = " select * from CLIENT "

monRs.Open maReq, maConnex

monRs.MoveFirst
While monRs.EOF = False
Debug.Print monRs!CodeCli & " " & monRs!nomCli & "
monRs.MoveNext
Wend
else msgbox("il n'y a pas de client correspondant à cette ville")
end if
monRs.Close

End Sub


Ecrire une procédure qui rajoute le champ CA d'un client et qui initialise le champ à 1000
Private Sub ChampCa() le problème est l'initialisation du champ à 1000


Dim maConnex As ADODB.Connection
Dim catalogue As ADOX.Catalog
Dim MaTable As ADOX.Table
Dim i As Integer
Dim maReq As String
Dim monRs As New Recordset

' Connexion à la base de donnée

Set maConnex = CurrentProject.Connection
Set monRs.ActiveConnection = maConnex
Set catalogue = New ADOX.Catalog
catalogue.ActiveConnection = maConnex
Set MaTable = New ADOX.Table
Set MaTable.ParentCatalog = catalogue

' Ajout d'un champ de type "Integer"

catalogue.Tables("CLIENT").Columns.Append "CA", adInteger, 50
Set catalogue = Nothing


End Sub


Merci de tous coeur à celui qui pourra m'aider j'y suis passer des jours sans succés. Aidez moi merci