Problème de code - erreur de compilation...variable non definie
cs_serge99
Messages postés78Date d'inscriptionlundi 29 août 2005StatutMembreDernière intervention14 octobre 2006
-
1 oct. 2005 à 06:11
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
1 oct. 2005 à 14:48
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é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é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é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
A voir également:
Problème de code - erreur de compilation...variable non definie
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 1 oct. 2005 à 14:48
salut,
c'est bien beau de faire un sub main, mais s'il n'est pas appelé, çà ne sert pas à grand chose....
(avat ton End Sub, tu appelles ta Form principale. et dans les préférences de ton appli, tu sélectionne ton Sub Main)
PCPT