Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

info déclaration variable

2 réponses
Avatar
Macgiver
bonjour si j'ai ce petit programme : de quelle type dois-je déclarer ma
variable Max (dim Max as ???)

Dim db As dao.Database
Dim myrst As dao.Recordset
Dim req As String
Dim Max As ?????

Set db = CurrentDb

req = "SELECT * FROM [aa] "
Set myrst = db.OpenRecordset(req)

Max = CurrentDb.TableDefs(aa).RecordCount
DoCmd.RunSQL "ALTER TABLE [aa] ADD ordre COUNTER"

Do While i <= Max
If IsNull(myrst) Then
DoCmd.RunSQL "update [aa] set [myrst] = 0;"
End If
i = i + 1
Loop


merci a tous

2 réponses

Avatar
Michel__D
Bonjour,

Macgiver a écrit :
bonjour si j'ai ce petit programme : de quelle type dois-je déclarer ma
variable Max (dim Max as ???)

Dim db As dao.Database
Dim myrst As dao.Recordset
Dim req As String
Dim Max As ?????

Set db = CurrentDb

req = "SELECT * FROM [aa] "
Set myrst = db.OpenRecordset(req)

Max = CurrentDb.TableDefs(aa).RecordCount
DoCmd.RunSQL "ALTER TABLE [aa] ADD ordre COUNTER"

Do While i <= Max
If IsNull(myrst) Then
DoCmd.RunSQL "update [aa] set [myrst] = 0;"
End If
i = i + 1
Loop


merci a tous



Qu'indique ce qui suit :

MsgBox TypeName(CurrentDb.TableDefs(aa).RecordCount)
Avatar
TopJB
Bonjour,

Je dirais que cela dépend de ton nombre d'enregistrement dans ta table [aa]


Le type Integer contient des nombres allant de –32,768 a 32,767
Le type Long contient des nombres allant de -2,147,483,648 a 2,147,483,647
Le type Double contient des nombres allant de –1.79769313486231E308 a
–4.94065645841247E–324 pour les valeurs négatives et de
1.79769313486231E308 a 4.94065645841247E–324 pour les valeurs positives.

Donc à toi de savoir combien tu as d'enregistrements et à faire en
conséquence.

ex : Si tu as 26000 enregistrements dans [aa], tu peux définir ta
variable Max en : Dim Max as Integer

Si tu as plus de 32768 enregistrements dans [aa], tu peux définir ta
variable Max en : Dim Max as Long

Cordialement

TopJB


Macgiver a écrit :
bonjour si j'ai ce petit programme : de quelle type dois-je déclarer ma
variable Max (dim Max as ???)

Dim db As dao.Database
Dim myrst As dao.Recordset
Dim req As String
Dim Max As ?????

Set db = CurrentDb

req = "SELECT * FROM [aa] "
Set myrst = db.OpenRecordset(req)

Max = CurrentDb.TableDefs(aa).RecordCount
DoCmd.RunSQL "ALTER TABLE [aa] ADD ordre COUNTER"

Do While i <= Max
If IsNull(myrst) Then
DoCmd.RunSQL "update [aa] set [myrst] = 0;"
End If
i = i + 1
Loop


merci a tous