Discussion :

[vers1991]

Bonjour à Tous

je suis débutant VB6 j'ai un mini projet que je veux réaliser en vb 6 mais je suis butter a problème lors de la compilation formulaire et le message d'erreur est "type définie par l'utilisateur non définie " et le programme se plante a la première ligne de ma procédure .pour plus de compréhension voici mon code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub Valider_Click()
  Dim db As DAO.Database
  Dim ds As DAO.Recordset
  'Dim dq  As DAO.RecordSource
  strqry As String
  Dim devicees As String
  Dim Codebanq As String
  Dim Reference As String
  Dim Agen As String
  Dim Divice As String
  Dim Motif As String
  Dim pac As String
  Dim Numremi As String
  Dim dtes As Date
  Dim ReferenLOT As Integer
  Dim RefIntern As String
  Dim Numfichier As Integer
  Dim banret As String
  Str = "select Max(NumFichier) from parametress;"
  MsgBox Str
  'db.RecordSource "select Max(NumFichier) from parametress"
  'db
 
  devicees = Text3
  NumFichie = Text2
  devicees = Text9
  Codebanq = Text1
  Reference = Text5
  Agen = Text4
  Motif = Text6
  pac = Text8
  Numrmi = Text10
  dtes = Text11
  RefernLOT = Text12
  RefIntern = Text13
 
  System = Combo3
 
 Set db = OpenDatabase("C:\Projettraite\test.mdb")
 Set ds = db.OpenRecordset("SaisieRej", dbOpenTable)
 ds.AddNew
 e
 ds![codeban] = banq
 ds![Numfichier] = devicees
 ds![Refernce] = System
 ds![AgenceRem] = System
 ds![Device] = System
 ds![MotifREJ] = System
 ds![pac] = System
 ds![devices] = System
 ds![NumRemise] = System
 ds![dates] = System
 ds![Referncelot] = Dtae
 ds![refenceinterne] = System
 
 ds.Update
 Text1 = ""
 'Devi = ""
 'Combo1 = ""
 'Combo3 = ""
 
 db.Close
MsgBox "Traitement terminé. "
End Sub

merci pour votre éventuelle aide!

[l_autodidacte]

Bonjour et bienvenu(e) sur DVP

Une première remarque est que la ligne strqry As String doit être : Dim strqry As String.
La seconde est qu'il faut ajouter une référence à DAO : Microsoft DAO 3.6 Object Library (Fichier C:\Program Files(X86)\Fichiers communs\Microsoft Shared\DAO\DAO360.dll)