mon kit de distribution 97 install la DAO3.51
mais mon mde ne fonctionne que sous DAO 3.6
1°/mon code ne veut pas crée un objet avec DAO 3.5, mais fonctionne sous
DAO3.6...........arrrrrrrrrrrrrrrrrrrrrrgh !!
le voilà :
Dim dumbase As Database
Dim dumtable As TableDef
Dim fld As Field
Set dumbase = OpenDatabase("c:\DUMARGEST\DATAMARG.mdb")
Set dumtable = dumbase.TableDefs("ITKE")
For Each fld In dumtable.Fields
If fld.Name = "MAT" Then
'MsgBox "pas de maj"
Exit Function
End If
Next
With dumtable
.Fields.Append .CreateField("MAT", dbText)
.Fields.Append .CreateField("COUTMAT", dbDouble)
.Fields.Append .CreateField("TpHA", dbDate)
End With
dumbase.Close
2°/comment distribué DAO360.Dll dans le kit 97
et es ce legal ??
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
dumgest
On 2 fév, 16:26, remdumdum wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
1°/mon code ne veut pas crée un objet avec DAO 3.5, mais fonctionne s ous DAO3.6...........arrrrrrrrrrrrrrrrrrrrrrgh !!
le voilà :
Dim dumbase As Database Dim dumtable As TableDef Dim fld As Field
Set dumbase = OpenDatabase("c:DUMARGESTDATAMARG.mdb")
Set dumtable = dumbase.TableDefs("ITKE")
For Each fld In dumtable.Fields If fld.Name = "MAT" Then 'MsgBox "pas de maj" Exit Function End If Next
With dumtable .Fields.Append .CreateField("MAT", dbText) .Fields.Append .CreateField("COUTMAT", dbDouble) .Fields.Append .CreateField("TpHA", dbDate) End With
dumbase.Close
2°/comment distribué DAO360.Dll dans le kit 97 et es ce legal ??
merci de vos reponses !!
desole, j'ai poster deux fois la question, croyant que la premiere fois elle n'etais pas passé !!
On 2 fév, 16:26, remdumdum <remdum...@discussions.microsoft.com>
wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51
mais mon mde ne fonctionne que sous DAO 3.6
1°/mon code ne veut pas crée un objet avec DAO 3.5, mais fonctionne s ous
DAO3.6...........arrrrrrrrrrrrrrrrrrrrrrgh !!
le voilà :
Dim dumbase As Database
Dim dumtable As TableDef
Dim fld As Field
Set dumbase = OpenDatabase("c:DUMARGESTDATAMARG.mdb")
Set dumtable = dumbase.TableDefs("ITKE")
For Each fld In dumtable.Fields
If fld.Name = "MAT" Then
'MsgBox "pas de maj"
Exit Function
End If
Next
With dumtable
.Fields.Append .CreateField("MAT", dbText)
.Fields.Append .CreateField("COUTMAT", dbDouble)
.Fields.Append .CreateField("TpHA", dbDate)
End With
dumbase.Close
2°/comment distribué DAO360.Dll dans le kit 97
et es ce legal ??
merci de vos reponses !!
desole, j'ai poster deux fois la question, croyant que la premiere
fois elle n'etais pas passé !!
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
1°/mon code ne veut pas crée un objet avec DAO 3.5, mais fonctionne s ous DAO3.6...........arrrrrrrrrrrrrrrrrrrrrrgh !!
le voilà :
Dim dumbase As Database Dim dumtable As TableDef Dim fld As Field
Set dumbase = OpenDatabase("c:DUMARGESTDATAMARG.mdb")
Set dumtable = dumbase.TableDefs("ITKE")
For Each fld In dumtable.Fields If fld.Name = "MAT" Then 'MsgBox "pas de maj" Exit Function End If Next
With dumtable .Fields.Append .CreateField("MAT", dbText) .Fields.Append .CreateField("COUTMAT", dbDouble) .Fields.Append .CreateField("TpHA", dbDate) End With
dumbase.Close
2°/comment distribué DAO360.Dll dans le kit 97 et es ce legal ??
merci de vos reponses !!
desole, j'ai poster deux fois la question, croyant que la premiere fois elle n'etais pas passé !!
Tisane
Bonjour remdumdum,
Pourquoi tu reposes la question à une demi-heure d'intervalle ? Tu trouves que cela ne va pas assez vite ? Pour ta question sur l'extraction de caractères, tu as eu 3 réponses en moins de 10 minutes. Ce n'est pas une raison pour penser que ce sera chaque fois pareil ;-)
-- Tisane
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
1°/mon code ne veut pas crée un objet avec DAO 3.5, mais fonctionne sous DAO3.6...........arrrrrrrrrrrrrrrrrrrrrrgh !!
le voilà :
Dim dumbase As Database Dim dumtable As TableDef Dim fld As Field
Set dumbase = OpenDatabase("c:DUMARGESTDATAMARG.mdb")
Set dumtable = dumbase.TableDefs("ITKE")
For Each fld In dumtable.Fields If fld.Name = "MAT" Then 'MsgBox "pas de maj" Exit Function End If Next
With dumtable .Fields.Append .CreateField("MAT", dbText) .Fields.Append .CreateField("COUTMAT", dbDouble) .Fields.Append .CreateField("TpHA", dbDate) End With
dumbase.Close
2°/comment distribué DAO360.Dll dans le kit 97 et es ce legal ??
merci de vos reponses !!
Bonjour remdumdum,
Pourquoi tu reposes la question à une demi-heure d'intervalle ?
Tu trouves que cela ne va pas assez vite ?
Pour ta question sur l'extraction de caractères, tu as eu 3 réponses en
moins de 10 minutes.
Ce n'est pas une raison pour penser que ce sera chaque fois pareil ;-)
--
Tisane
mon kit de distribution 97 install la DAO3.51
mais mon mde ne fonctionne que sous DAO 3.6
1°/mon code ne veut pas crée un objet avec DAO 3.5, mais fonctionne
sous DAO3.6...........arrrrrrrrrrrrrrrrrrrrrrgh !!
le voilà :
Dim dumbase As Database
Dim dumtable As TableDef
Dim fld As Field
Set dumbase = OpenDatabase("c:DUMARGESTDATAMARG.mdb")
Set dumtable = dumbase.TableDefs("ITKE")
For Each fld In dumtable.Fields
If fld.Name = "MAT" Then
'MsgBox "pas de maj"
Exit Function
End If
Next
With dumtable
.Fields.Append .CreateField("MAT", dbText)
.Fields.Append .CreateField("COUTMAT", dbDouble)
.Fields.Append .CreateField("TpHA", dbDate)
End With
dumbase.Close
2°/comment distribué DAO360.Dll dans le kit 97
et es ce legal ??
Pourquoi tu reposes la question à une demi-heure d'intervalle ? Tu trouves que cela ne va pas assez vite ? Pour ta question sur l'extraction de caractères, tu as eu 3 réponses en moins de 10 minutes. Ce n'est pas une raison pour penser que ce sera chaque fois pareil ;-)
-- Tisane
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
1°/mon code ne veut pas crée un objet avec DAO 3.5, mais fonctionne sous DAO3.6...........arrrrrrrrrrrrrrrrrrrrrrgh !!
le voilà :
Dim dumbase As Database Dim dumtable As TableDef Dim fld As Field
Set dumbase = OpenDatabase("c:DUMARGESTDATAMARG.mdb")
Set dumtable = dumbase.TableDefs("ITKE")
For Each fld In dumtable.Fields If fld.Name = "MAT" Then 'MsgBox "pas de maj" Exit Function End If Next
With dumtable .Fields.Append .CreateField("MAT", dbText) .Fields.Append .CreateField("COUTMAT", dbDouble) .Fields.Append .CreateField("TpHA", dbDate) End With
dumbase.Close
2°/comment distribué DAO360.Dll dans le kit 97 et es ce legal ??
merci de vos reponses !!
Tisane
desole, j'ai poster deux fois la question, croyant que la premiere fois elle n'etais pas passé !!
Trop tard, j'ai déjà (mal) réagi ;-)) Sans rancune,
-- Tisane
wrote:
On 2 fév, 16:26, remdumdum wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
[...]
desole, j'ai poster deux fois la question, croyant que la premiere
fois elle n'etais pas passé !!
Trop tard, j'ai déjà (mal) réagi ;-))
Sans rancune,
--
Tisane
dumgest@gmail.com wrote:
On 2 fév, 16:26, remdumdum <remdum...@discussions.microsoft.com>
wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51
mais mon mde ne fonctionne que sous DAO 3.6
desole, j'ai poster deux fois la question, croyant que la premiere fois elle n'etais pas passé !!
Trop tard, j'ai déjà (mal) réagi ;-)) Sans rancune,
-- Tisane
wrote:
On 2 fév, 16:26, remdumdum wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
[...]
remdumdum
pas de probleme !!....ça peut servir à d'autres !! en fait, je n'arrive pas a remettre la recherche à zéro, sans fermer la page du forums, c'est pour cela que je ne voyais pas le premiere version de mon message !!
...........je vais prendre un café sans rancune... tisane !! ;-))
desole, j'ai poster deux fois la question, croyant que la premiere fois elle n'etais pas passé !!
Trop tard, j'ai déjà (mal) réagi ;-)) Sans rancune,
-- Tisane
wrote:
On 2 fév, 16:26, remdumdum wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
[...]
pas de probleme !!....ça peut servir à d'autres !!
en fait, je n'arrive pas a remettre la recherche à zéro, sans fermer la page
du forums, c'est pour cela que je ne voyais pas le premiere version de mon
message !!
...........je vais prendre un café
sans rancune... tisane !! ;-))
desole, j'ai poster deux fois la question, croyant que la premiere
fois elle n'etais pas passé !!
Trop tard, j'ai déjà (mal) réagi ;-))
Sans rancune,
--
Tisane
dumgest@gmail.com wrote:
On 2 fév, 16:26, remdumdum <remdum...@discussions.microsoft.com>
wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51
mais mon mde ne fonctionne que sous DAO 3.6
pas de probleme !!....ça peut servir à d'autres !! en fait, je n'arrive pas a remettre la recherche à zéro, sans fermer la page du forums, c'est pour cela que je ne voyais pas le premiere version de mon message !!
...........je vais prendre un café sans rancune... tisane !! ;-))
desole, j'ai poster deux fois la question, croyant que la premiere fois elle n'etais pas passé !!
Trop tard, j'ai déjà (mal) réagi ;-)) Sans rancune,
-- Tisane
wrote:
On 2 fév, 16:26, remdumdum wrote:
bonjour à tous
mon kit de distribution 97 install la DAO3.51 mais mon mde ne fonctionne que sous DAO 3.6
