Discussion :

[Barth2501]

Bonjour à tous,

J'ai créé un formulaire me permettant d'importer des tables dans Access mais je me rends que certaines données sont manquantes. Par exemple, un numéro de compte 520ABO978 ne sera pas affiché alors que le numéro 5201075978 sera affiché. J'ai pourtant bien préparé la table d'importation en spécifiant les types de données en texte et le le format @. Peut-être existe-t-il d'autres formats plus adaptés mais je ne les connais pas.

Quelqu'un aurait-il une solution a mon problème?

Merci pour votre aide.

[hyperion13]

Bonjour,
Pourriez-vous préciser la méthode d'importation. Une capture d'écran des données sources éventuellement.

[Barth2501]

En ce qui concerne l'importation voila les lignes vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Commande34_Click()
       Dim fd As Office.FileDialog
 
 
    Set fd = Application.FileDialog(msoFileDialogOpen)
 
 
    fd.Title = "Sélectionnez un fichier Excel..."
 
    fd.AllowMultiSelect = False
 
    fd.Filters.Clear
    fd.Filters.Add "Fichiers Excel", "*.xls; *.xlsx"
 
 
    fd.FilterIndex = 0
 
    If fd.Show() Then
        Me.Texte32 = fd.SelectedItems(1)
    End If
    Set fd = Nothing
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Commande35_Click()
        Dim SQL As String
    Dim db As DAO.Database: Set db = CurrentDb
 
    SQL = "delete * from Inventaire"
    Call db.Execute(SQL, dbFailOnError)
 
    DoCmd.TransferSpreadsheet acImport, 8, "Inventaire", Me.Texte32, 1
End Sub

[marot_r]

Bonjour.

Regarde aussi si Access n'a pas creer des tables d'erreurs d'importation.

Ca peut te donner une piste.

Generalement c'est parce que

1. Access ne peut pas convertir la donnee
2. ou tu as une violation d'unicite de la clef
3. ou tu as une violation de l'integrite referntielle.

A+