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
Partager