Bonjour,
Je dois réaliser une base de temps avec le couple VB6 / Access.
Je recherche donc des tutos car je n'ai jamais utilisé ni l'un, ni l'autre.
Merci.
Private Sub grid_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error GoTo err
If IsNull(Me.adoData.Recordset!Nom) Then
Me.txtNom.Text = ""
Else
Me.txtNom.Text = (Me.adoData.Recordset!Nom)
End If
GoTo fin
err:
MsgBox "Erreur 1"
fin:
End Sub
Private Sub Combo1_Change()
Combo2.Enabled = True
Combo1.Enabled = False
End Sub
Dim sujet As ADODB.Recordset
Dim query2 As String
Dim query4 As String
Dim Vrai As Boolean
Combo2.Enabled = True
Combo1.Enabled = False
query4 = "Select id_std from ent_std where lib_verbe =" & Combo1.Text
query2 = "SELECT LIB_Sujet FROM ENT_STD where id_std =" & query4
Set sujet = New ADODB.Recordset
Vrai = ModuleBdD.OpenRecordset(query2, sujet)
Vrai = ModuleBdD.RSLirePremier(sujet)
While Vrai = True
Combo2.AddItem sujet.Fields(0)
Vrai = ModuleBdD.RSLireSuivant(sujet)
Wend
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.