Discussion :

[belierone]

Bonjour,

Je suis nouveau sur le site et je viens chercher un peu d'aide.
Je débute dans VBA pour Excel.
Je dois réaliser des formulaires dynamique.
Formulaire que je connecte à une base de données Mysql.
Je demande d'insérer un ISBN dans un inputbox et alors je fais un Select pour reprendre le titre,... Jusque là tout fonctionne bien.
Mais une fois que je met un Isbn qui n'existe pas dans la base de données. J'ai une erreur 94 "utilisation incorrect de nul".
Pourriez-vous m'aidez?
Est-il possible de vérifier si l'isbn existe pas dans la base alors faire apparaitre un message "Isbn inexistant dans Base de données!"

le debug me renvoi à la ligne TitreRep.Caption = rs(0)

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
65
66
67
68
69
70
71
72
Private Sub UserForm_Activate()
 
Select Case MsgBox("Bonjour " & UCase(OSUserName) & Chr(10) & _
       "Veuillez préparer l'ISBN13", vbYesNo, "EAN13")
 
       Case vbYes
 
       Case vbNo
 
       MsgBox "A bientôt"
       ActiveWorkbook.Saved = False ' pour fermer Excel
        Application.Quit
 
End Select
 
 
Dim Today As Date
Dim Isbn As String
 
 
    Today = Date
    DateRep.Caption = Today
 
Isbn = InputBox("Veuillez Insérer un ISBN13?")
 
    IsbnRep.Caption = Isbn
 
BtnBudgN.Value = True 'Bouton d'option Budget non coché par défautµ
 
 
 
 
Dim Password As String
Dim SQLStr As String
Dim Server_Name As String
Dim User_ID As String
Dim Database_Name As String
 
 
 
Set rs = CreateObject("ADODB.Recordset")
    Server_Name = "mysqlserver"
    Database_Name = "****"
    User_ID = "****"
    Password = "***"
 
    SQLStr = "SELECT A.GLB_ART_TIT1, A.GLB_ART_EDI_RES_CODE, A.GLB_CCM_CODE, A.GLB_ART_EDI_CODE, MAX(B.GLB_ART_TIR_CODE) + 1  FROM FAT_ART_ECR_OES A, FAT_ART_TIR B WHERE A.ART_OES_TOK_CODE = B.ART_OES_TOK_CODE AND  A.ART_OES_ISBN LIKE '" & Isbn & "'"
 
 
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Driver={MySQL ODBC 5.1 Driver};Server=" & _
            Server_Name & ";Database=" & Database_Name & _
            ";Uid=" & User_ID & ";Pwd=" & Password & ";"
 
    rs.Open SQLStr, Cn, adOpenStatic
 
 
    TitreRep.Caption = rs(0)
    EditeurRep.Caption = rs(1)
    CcmRep.Caption = rs(2)
    EditionRep.Caption = rs(3)
    TirageRep.Caption = rs(4)
 
 
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
 
 
 
End Sub

[joe.levrai]

Bonjour,

j'ai pas énormément bossé sur les requêtes MySQL.

De mémoire, on peut vérifier si rs n'est pas vide.


au titre du champion du "bricolage quand j'y arrive pas", je positionnerai une gestion d'erreur sur cette ligne uniquement ... et la gestion génère le message indiquant que le ISBN n'existe pas

[belierone]

j'ai essayé, je n'y arrive pas à faire une gestion d'erreur sur rs. Je fais une gestion d'erreur sur RS(0)?
Je ne sais même pas ou positionner ma gestion d'erreur dans le code, ni comment j'utilise un IF ?

[Invité]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
 
If rs.eof =false then
TitreRep.Caption ="" &  rs(0)
    EditeurRep.Caption = "" & rs(1)
    CcmRep.Caption ="" &  rs(2)
    EditionRep.Caption = "" & rs(3)
    TirageRep.Caption = "" & rs(4)
End lf

[belierone]

Bonsoir rdurupt,

Ça fonctionne, c'est génial !!!

J'ai ajouté après le code que tu m'as envoyé une condition:

Code :

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

1
2
3
If TitreRep.Caption = "" Then
        MsgBox "ISBN13 Invalide!", vbCritical
 End If

Tout est ok!
Un tout grand merci pour votre aide