suis pas trop doué en Access, mais je m'applique, si qqn pouvait m'aider
pour ce code??
je cherche à faire une fonction qui recherche l'exitence d'un champ dans une
table
je me suis basé sur une fonction existence de recherche de table
bien évidemment cela plante
Public Function ChampExist(strNomTable As String, strNomChamp As String) As
Boolean
'vérification de l'existence d'un champ dans une table
Dim tbl As DAO.Recordset
Dim f
ChampExist = False
For Each tbl In CurrentDb.TableDefs
'du deuxième au dernier champ
For f = 1 To tbl.Fields.Count
If tbl.Fields(f).Name = strNomChamp Then
ChampExist = True
exit function
End If
Next f
Next tbl
End Function
salut Eric, merci de ton aide t'en as pas vite marre toi!(tant mieux pour moi!) il faut pas aller loin dans le code, le test est effectué tout au début
Dim t1 As DAO.Recordset, t2 As DAO.Recordset Dim i As Long, j As Long, cptChamp As Integer, cptTotal As Integer, NbEnreg As Long Dim reponse As String, strsql As String Dim Table1 As String, Table2 As String
' récupérer le nom des tables choisie dans les combos Table1 = cboChoixTable1.Value Table2 = cboChoixTable2.Value 'passer en arguments les valeurs choisies Set t1 = CurrentDb.OpenRecordset(Table1) Set t2 = CurrentDb.OpenRecordset(Table2) 'ici l'appel à la fonction que tu m'as écrite If Not ChampExist( Table1, "sorti") Then MsgBox "champ n'existe pas)" 'ceci pour le test uniquement End If Stop
voilà rien d'extraordinaire
Pascal
"Eric" a écrit dans le message de news:
re, Donnes toute la procédure ici Eric
salut Eric,
merci de ton aide t'en as pas vite marre toi!(tant mieux pour moi!)
il faut pas aller loin dans le code, le test est effectué tout au début
Dim t1 As DAO.Recordset, t2 As DAO.Recordset
Dim i As Long, j As Long, cptChamp As Integer, cptTotal As Integer,
NbEnreg As Long
Dim reponse As String, strsql As String
Dim Table1 As String, Table2 As String
' récupérer le nom des tables choisie dans les combos
Table1 = cboChoixTable1.Value
Table2 = cboChoixTable2.Value
'passer en arguments les valeurs choisies
Set t1 = CurrentDb.OpenRecordset(Table1)
Set t2 = CurrentDb.OpenRecordset(Table2)
'ici l'appel à la fonction que tu m'as écrite
If Not ChampExist( Table1, "sorti") Then
MsgBox "champ n'existe pas)" 'ceci pour le test uniquement
End If
Stop
voilà rien d'extraordinaire
Pascal
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de
news:XnF95241B837C3AfframZZhotmailcom@207.46.248.16...
salut Eric, merci de ton aide t'en as pas vite marre toi!(tant mieux pour moi!) il faut pas aller loin dans le code, le test est effectué tout au début
Dim t1 As DAO.Recordset, t2 As DAO.Recordset Dim i As Long, j As Long, cptChamp As Integer, cptTotal As Integer, NbEnreg As Long Dim reponse As String, strsql As String Dim Table1 As String, Table2 As String
' récupérer le nom des tables choisie dans les combos Table1 = cboChoixTable1.Value Table2 = cboChoixTable2.Value 'passer en arguments les valeurs choisies Set t1 = CurrentDb.OpenRecordset(Table1) Set t2 = CurrentDb.OpenRecordset(Table2) 'ici l'appel à la fonction que tu m'as écrite If Not ChampExist( Table1, "sorti") Then MsgBox "champ n'existe pas)" 'ceci pour le test uniquement End If Stop
voilà rien d'extraordinaire
Pascal
"Eric" a écrit dans le message de news:
re, Donnes toute la procédure ici Eric
Eric
Et la déclaration Dim fld as Field dans la fonction c'est passé à la trappe ? Sinon, envoies moi les tables, le formulaire, la proc et la fonction à dans une bd zippée.
salut Eric, merci de ton aide t'en as pas vite marre toi!(tant mieux pour moi!) il faut pas aller loin dans le code, le test est effectué tout au début
Dim t1 As DAO.Recordset, t2 As DAO.Recordset Dim i As Long, j As Long, cptChamp As Integer, cptTotal As Integer, NbEnreg As Long Dim reponse As String, strsql As String Dim Table1 As String, Table2 As String
' récupérer le nom des tables choisie dans les combos Table1 = cboChoixTable1.Value Table2 = cboChoixTable2.Value 'passer en arguments les valeurs choisies Set t1 = CurrentDb.OpenRecordset(Table1) Set t2 = CurrentDb.OpenRecordset(Table2) 'ici l'appel à la fonction que tu m'as écrite If Not ChampExist( Table1, "sorti") Then MsgBox "champ n'existe pas)" 'ceci pour le test uniquement End If Stop
voilà rien d'extraordinaire
Pascal
"Eric" a écrit dans le message de news:
re, Donnes toute la procédure ici Eric
Et la déclaration Dim fld as Field dans la fonction c'est passé à la
trappe ?
Sinon, envoies moi les tables, le formulaire, la proc et la fonction à
eric.ronot@free.fr dans une bd zippée.
salut Eric,
merci de ton aide t'en as pas vite marre toi!(tant mieux pour moi!)
il faut pas aller loin dans le code, le test est effectué tout au début
Dim t1 As DAO.Recordset, t2 As DAO.Recordset
Dim i As Long, j As Long, cptChamp As Integer, cptTotal As Integer,
NbEnreg As Long
Dim reponse As String, strsql As String
Dim Table1 As String, Table2 As String
' récupérer le nom des tables choisie dans les combos
Table1 = cboChoixTable1.Value
Table2 = cboChoixTable2.Value
'passer en arguments les valeurs choisies
Set t1 = CurrentDb.OpenRecordset(Table1)
Set t2 = CurrentDb.OpenRecordset(Table2)
'ici l'appel à la fonction que tu m'as écrite
If Not ChampExist( Table1, "sorti") Then
MsgBox "champ n'existe pas)" 'ceci pour le test uniquement
End If
Stop
voilà rien d'extraordinaire
Pascal
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de
news:XnF95241B837C3AfframZZhotmailcom@207.46.248.16...
Et la déclaration Dim fld as Field dans la fonction c'est passé à la trappe ? Sinon, envoies moi les tables, le formulaire, la proc et la fonction à dans une bd zippée.
salut Eric, merci de ton aide t'en as pas vite marre toi!(tant mieux pour moi!) il faut pas aller loin dans le code, le test est effectué tout au début
Dim t1 As DAO.Recordset, t2 As DAO.Recordset Dim i As Long, j As Long, cptChamp As Integer, cptTotal As Integer, NbEnreg As Long Dim reponse As String, strsql As String Dim Table1 As String, Table2 As String
' récupérer le nom des tables choisie dans les combos Table1 = cboChoixTable1.Value Table2 = cboChoixTable2.Value 'passer en arguments les valeurs choisies Set t1 = CurrentDb.OpenRecordset(Table1) Set t2 = CurrentDb.OpenRecordset(Table2) 'ici l'appel à la fonction que tu m'as écrite If Not ChampExist( Table1, "sorti") Then MsgBox "champ n'existe pas)" 'ceci pour le test uniquement End If Stop
