Vba Excel connecté à Mysql erreur 94 utilisation incorrect de nul
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:
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 |