problème de code - erreur de compilation...variable non definie

Question

Voici mon code (ne fonctionne pas) texte en rouge

Private Sub CmdEnregistrerprojet_Click()
On Error Resume Next
DataProjets.Recordset.Update  
End Sub

Private Sub cmdNew_Save_Click()
Dim cnt As Integer
Dim aRs As Recordset
On Error Resume Next
cnt = 0
If cmdNew_Save.Caption = "Nouveau" Then
        txtNumeroProjet.Text = ""
        txtNomprojet.Text = ""
        txtR&#233;gionProjet.Text = ""
        CboProjExt.Text = ""
        CboProjetINT.Text = ""
        CboFabrCa.Text = ""
        CboFO.Text = ""
        Cbogaine1.Text = ""
        Cbogaine2.Text = ""
        Cbogaine3.Text = ""
        txtFusion.Text = ""
        txtPigtail.Text = ""
        txt850.Text = ""
        txt850IOR.Text = ""
        txt1300.Text = ""
        txt1300IOR.Text = ""
        txt1310.Text = ""
        txt1310IOR.Text = ""
        txt1550.Text = ""
        txt1550IOR.Text = ""        SQL "Select * from Projets where ID " & cnt & ""
        Set DataProjets.Recordset = dbGen.OpenRecordset(SQL, dbOpenDynaset)
        cmdNew_Save.Caption = "Enregistrer"
    
Else
      
    If cboClient.Text = "" Then
        MsgBox "Choisir votre client externe!"
        Exit Sub
    End If
    If txtNumeroProjet.Text = "" Then
        MsgBox "Entrez votre num&#233;ro de projet!"
        Exit Sub
    End If
    cmdNew_Save.Caption = "Nouveau"
    SQL = "Select * from Projets"
    Set aRs = dbGen.OpenRecordset(SQL, dbOpenDynaset)
    aRs.AddNew
    aRs.Fields(1) = txtNumeroProjet.Text
    aRs.Fields(2) = txtNomprojet
    aRs.Fields(3) = txtR&#233;gionProjet.Text
    aRs.Fields(4) = CboProjExt.Text
    aRs.Fields(6) = CboProjetINT.Text
    aRs.Fields(7) = CboFabrCa.Text
    aRs.Fields(9) = Cbogaine1.Text
    aRs.Fields(10) = Cbogaine2.Text
    aRs.Fields(11) = Cbogaine3.Text
    aRs.Fields(12) = CboFO.Text
    aRs.Fields(13) = txtFusion.Text
    aRs.Fields(14) = txtPigtail.Text
    aRs.Fields(15) = txt850.Text
    aRs.Fields(16) = txt850IOR.Text
    aRs.Fields(17) = txt1300.Text
    aRs.Fields(18) = txt1300IOR.Text
    aRs.Fields(19) = txt1310.Text
    aRs.Fields(20) = txt1310IOR.Text
    aRs.Fields(21) = txt1550.Text
    aRs.Fields(22) = txt1550IOR.Text
aRs.MoveNext
        Next cnt   
End If
End Sub

Private Sub Form_Load()
Dim cnt As Integer
cnt = 0
Dim aRs As Recordset
On Error Resume Next
DataProjets.DatabaseName = MyStrPathDataSQL "Select * from Projets where ID " & cnt & ""
Set aRs = dbGen.OpenRecordset(SQL, dbOpenDynaset)
aRs.MoveLast
aRs.MoveFirst
CboProjExt.Clear
CboProjExt.AddItem ""
For cnt = 1 To aRs.RecordCount
   CboProjExt.AddItem aRs.Fields(1)
aRs.MoveNext
Next cnt
aRs.Close
End Sub

Public Sub Main()
MyStrPathData = "C:\documents and settings\Mserge rodrigue\bureau\cablecomptetest1\CableCompteV2.mdb"
Set dbGen = OpenDatabase(MyStrPathData, bExclusiveMode)
End Sub

Merci

jpleroisse · Answer

Bonjour,

Essaie ceci, dans un Module



Public Const MyStrPathData = "C:\documents and settings\Mserge rodrigue\bureau\cablecomptetest1\CableCompteV2.mdb"

Set dbGen = OpenDatabase(MyStrPathData, bExclusiveMode)



jpleroisse

PCPT · Answer

salut,
c'est bien beau de faire un sub main, mais s'il n'est pas appel&#233;, &#231;&#224; ne sert pas &#224; grand chose....
(avat ton End Sub, tu appelles ta Form principale. et dans les pr&#233;f&#233;rences de ton appli, tu s&#233;lectionne ton Sub Main)
PCPT

Problème de code - erreur de compilation...variable non definie

2 réponses

Discussions similaires