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 :
merci pour votre éventuelle aide!
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
Partager