1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle
plante sur le
set bds = bd.openrecordset("salarie", ...)
en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub.....
Dim bd As Database
Dim bds As Recordset
Set bd = Application.CurrentDb
Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly)
Dim base As Single, totsalbase As Single
Dim anc As Integer
totsalbase = 0
' accès séquentiel: Tant que non fin de table
Do While Not bds.EOF
base = bds!nbh * bds!txh
totsalbase = totsalbase + base
MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire
de base de : " & base & " ? "
' aller à l'enregistrement suivant
bds.MoveNext
Loop
MsgBox " Le total des salaires de base est égal à " & totsalbase & " ? "
Call sup
bds.Close
bd.Close
End sub...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour charge la ref (dans vbe) microsoft dao 3.x et precise as DAO.Database, DAO.Recordset ou enleve les réfs a ADO
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "MD" a écrit dans le message de news:
Bonjour,
J'aurai 3 questions précises :
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle plante sur le set bds = bd.openrecordset("salarie", ...) en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub..... Dim bd As Database Dim bds As Recordset Set bd = Application.CurrentDb Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly) Dim base As Single, totsalbase As Single Dim anc As Integer totsalbase = 0 ' accès séquentiel: Tant que non fin de table Do While Not bds.EOF base = bds!nbh * bds!txh totsalbase = totsalbase + base MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire de base de : " & base & " ? " ' aller à l'enregistrement suivant bds.MoveNext Loop MsgBox " Le total des salaires de base est égal à " & totsalbase & " ? " Call sup bds.Close bd.Close End sub...
bonjour
charge la ref (dans vbe) microsoft dao 3.x
et precise as DAO.Database, DAO.Recordset ou enleve les réfs a ADO
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"MD" <michel.demede@wanadoo.fr> a écrit dans le message de news: ubPscB15DHA.1852@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'aurai 3 questions précises :
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle
plante sur le
set bds = bd.openrecordset("salarie", ...)
en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub.....
Dim bd As Database
Dim bds As Recordset
Set bd = Application.CurrentDb
Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly)
Dim base As Single, totsalbase As Single
Dim anc As Integer
totsalbase = 0
' accès séquentiel: Tant que non fin de table
Do While Not bds.EOF
base = bds!nbh * bds!txh
totsalbase = totsalbase + base
MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire
de base de : " & base & " ? "
' aller à l'enregistrement suivant
bds.MoveNext
Loop
MsgBox " Le total des salaires de base est égal à " & totsalbase & " ? "
Call sup
bds.Close
bd.Close
End sub...
bonjour charge la ref (dans vbe) microsoft dao 3.x et precise as DAO.Database, DAO.Recordset ou enleve les réfs a ADO
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "MD" a écrit dans le message de news:
Bonjour,
J'aurai 3 questions précises :
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle plante sur le set bds = bd.openrecordset("salarie", ...) en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub..... Dim bd As Database Dim bds As Recordset Set bd = Application.CurrentDb Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly) Dim base As Single, totsalbase As Single Dim anc As Integer totsalbase = 0 ' accès séquentiel: Tant que non fin de table Do While Not bds.EOF base = bds!nbh * bds!txh totsalbase = totsalbase + base MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire de base de : " & base & " ? " ' aller à l'enregistrement suivant bds.MoveNext Loop MsgBox " Le total des salaires de base est égal à " & totsalbase & " ? " Call sup bds.Close bd.Close End sub...
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle plante sur le set bds = bd.openrecordset("salarie", ...) en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub..... Dim bd As Database Dim bds As Recordset Set bd = Application.CurrentDb Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly) Dim base As Single, totsalbase As Single Dim anc As Integer totsalbase = 0 ' accès séquentiel: Tant que non fin de table Do While Not bds.EOF base = bds!nbh * bds!txh totsalbase = totsalbase + base MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire
de base de : " & base & " ? " ' aller à l'enregistrement suivant bds.MoveNext Loop MsgBox " Le total des salaires de base est égal à " & totsalbase & " ? "
"MD" <michel.demede@wanadoo.fr> a écrit dans le message de
news:ubPscB15DHA.1852@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'aurai 3 questions précises :
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle
plante sur le
set bds = bd.openrecordset("salarie", ...)
en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA
pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub.....
Dim bd As Database
Dim bds As Recordset
Set bd = Application.CurrentDb
Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly)
Dim base As Single, totsalbase As Single
Dim anc As Integer
totsalbase = 0
' accès séquentiel: Tant que non fin de table
Do While Not bds.EOF
base = bds!nbh * bds!txh
totsalbase = totsalbase + base
MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un
salaire
de base de : " & base & " ? "
' aller à l'enregistrement suivant
bds.MoveNext
Loop
MsgBox " Le total des salaires de base est égal à " & totsalbase & " ?
"
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle plante sur le set bds = bd.openrecordset("salarie", ...) en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub..... Dim bd As Database Dim bds As Recordset Set bd = Application.CurrentDb Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly) Dim base As Single, totsalbase As Single Dim anc As Integer totsalbase = 0 ' accès séquentiel: Tant que non fin de table Do While Not bds.EOF base = bds!nbh * bds!txh totsalbase = totsalbase + base MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire
de base de : " & base & " ? " ' aller à l'enregistrement suivant bds.MoveNext Loop MsgBox " Le total des salaires de base est égal à " & totsalbase & " ? "
Call sup bds.Close bd.Close End sub...
MD
merci bcp. Ton exemple est instructif. Mais ça y est j'ai fait une mini base en prog DAO et une autre en prog ADO, et ça marche, mais je n'avais pas tous les compléments installés correctement. A présent ça va. Peux tu me dire s'il y a des pbs à faire cohabiter les compléments DAO et ADO? Quoi préférer comme programmation?
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle plante sur le set bds = bd.openrecordset("salarie", ...) en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub..... Dim bd As Database Dim bds As Recordset Set bd = Application.CurrentDb Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly) Dim base As Single, totsalbase As Single Dim anc As Integer totsalbase = 0 ' accès séquentiel: Tant que non fin de table Do While Not bds.EOF base = bds!nbh * bds!txh totsalbase = totsalbase + base MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire
de base de : " & base & " ? " ' aller à l'enregistrement suivant bds.MoveNext Loop MsgBox " Le total des salaires de base est égal à " & totsalbase & " ?
"
Call sup bds.Close bd.Close End sub...
merci bcp.
Ton exemple est instructif.
Mais ça y est j'ai fait une mini base en prog DAO et une autre en prog ADO,
et ça marche, mais je n'avais pas tous les compléments installés
correctement. A présent ça va.
Peux tu me dire s'il y a des pbs à faire cohabiter les compléments DAO et
ADO?
Quoi préférer comme programmation?
Merci
Michel
"bipbipcoyote" <bipbipcoyote@hotmail.com> a écrit dans le message de
news:eTFW4r15DHA.2524@TK2MSFTNGP11.phx.gbl...
"MD" <michel.demede@wanadoo.fr> a écrit dans le message de
news:ubPscB15DHA.1852@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'aurai 3 questions précises :
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle
plante sur le
set bds = bd.openrecordset("salarie", ...)
en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA
pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub.....
Dim bd As Database
Dim bds As Recordset
Set bd = Application.CurrentDb
Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly)
Dim base As Single, totsalbase As Single
Dim anc As Integer
totsalbase = 0
' accès séquentiel: Tant que non fin de table
Do While Not bds.EOF
base = bds!nbh * bds!txh
totsalbase = totsalbase + base
MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un
salaire
de base de : " & base & " ? "
' aller à l'enregistrement suivant
bds.MoveNext
Loop
MsgBox " Le total des salaires de base est égal à " & totsalbase & "
?
merci bcp. Ton exemple est instructif. Mais ça y est j'ai fait une mini base en prog DAO et une autre en prog ADO, et ça marche, mais je n'avais pas tous les compléments installés correctement. A présent ça va. Peux tu me dire s'il y a des pbs à faire cohabiter les compléments DAO et ADO? Quoi préférer comme programmation?
1°)Voilà une procedure DAO classique ( voir ci dessous) , poutant elle plante sur le set bds = bd.openrecordset("salarie", ...) en disant incompatibilité de type ? erreur 13?
2°) Quels sont les compléments indispensable à charger ds l'éditeur VBA pour
faire du DAO ?
3°) Même question pour faire de l'ADO ?
Merci à tous.
Michel
Sub..... Dim bd As Database Dim bds As Recordset Set bd = Application.CurrentDb Set bds = bd.OpenRecordset("salarie", dbOpenTable, dbReadOnly) Dim base As Single, totsalbase As Single Dim anc As Integer totsalbase = 0 ' accès séquentiel: Tant que non fin de table Do While Not bds.EOF base = bds!nbh * bds!txh totsalbase = totsalbase + base MsgBox " le salarié n° " & bds!num & ": " & bds!nom & " a un salaire
de base de : " & base & " ? " ' aller à l'enregistrement suivant bds.MoveNext Loop MsgBox " Le total des salaires de base est égal à " & totsalbase & " ?
