probleme de if

Question

bonjour, j'ai un probleme (surement simple) en vb

voici mon code

If (jeu_count.Fields(0) = Null) Then
    jeu_count.Fields(0) = 1
End If

sachant que si jeu_count.fields(0) est null, ca plante...

c cette syntaxe qu'il faut utiliser???

merci d'avance pour vos reponses

cs_drahcir · Answer

Salut,

If jeu_count.Fields(0) is Nothing then....

@+

cs_DJtoph · Answer

merci du coup de main, mais ca ne donne rien...
meme plantage
t'as pas une autre id&#233;e?

cs_Yoyo2B · Answer

ou 
   if isnull(jeu_count.Fields(0)) then
      jeu_count.Fields(0) = 1
   end if

happy coding ...

cs_drahcir · Answer

Quel type d'erreur est-ce que &#231;a te renvoie?

cs_Creat · Answer

Si tu es en .NET, essaie  = "System.DBNull"

cs_DJtoph · Answer

yoyo, ta methode merche pas,il met
 "le jeu d'enregistrement suivant ne prend pas en charge la maj. il s'agit peut etre d'une limitation de fournisseur ou du type de verrou selectionn&#233;"

mais au moins il est rentr&#233; dans la boucle

drahcir
l'erreur precedente etait au niveau de mon update, vu que ca me renvoyait un pk null

creat
c koi .net?

cs_CanisLupus · Answer

Salut,

Je propose :

If isnull(jeu_count.Fields(0)) Then
    jeu_count.edit
    jeu_count.Fields(0) = 1
    jeu_count.update
End If

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_DJtoph · Answer

le il met met expression sur clic entr&#233;e.... (avec access) et  rien de plus, 
je pense l'id&#233;e bonne mais doit yavoir une erreur dedans non?

cs_Creat · Answer

la version de VB : VB.Net ou VB 6 que tu utilises?

cs_David_wklw · Answer

Hello, tu peux d&#233;crire ton object jeu_count ?

cs_DJtoph · Answer

creat 
c'est le version 6

david
voila:

Dim jeu_count As New ADODB.Recordset
Dim req_count As String
req_count = "select max(n_to) from type_ordinateur"
jeu_count.Open req_count, cnx, adOpenStatic
If IsNull(jeu_count.Fields(0)) Then
    jeu_count.edit
    jeu_count.Fields(0) = 1
    jeu_count.Update
End If

cs_DJtoph · Answer

merci du deplacement, g trouv&#233; la solution: g contourn&#233; le probleme

If IsNull(jeu_count.Fields(0)) Then
    Dim x As Integer
    x = 0
    jeu_typeO.AddNew
    jeu_typeO.Fields(0) = x + 1                   'n_to
    jeu_typeO.Fields(1) = jeu_n_m.Fields(0)       'n_m  equivalent au nom de la liste d&#233;roulante
    jeu_typeO.Fields(2) = jeu_n_cl.Fields(0)      'n_cl equivalent au nom de la liste d&#233;roulante
    jeu_typeO.Fields(3) = Me.nom
    jeu_typeO.Fields(4) = Me.description
    jeu_typeO.Fields(5) = Me.prix
    jeu_typeO.Update
    MsgBox ("L'enregistrement s'est bien effectu&#233;")
Else
    jeu_typeO.AddNew
    jeu_typeO.Fields(0) = jeu_count.Fields(0) + 1 'n_to
    jeu_typeO.Fields(1) = jeu_n_m.Fields(0)       'n_m  equivalent au nom de la liste d&#233;roulante
    jeu_typeO.Fields(2) = jeu_n_cl.Fields(0)      'n_cl equivalent au nom de la liste d&#233;roulante
    jeu_typeO.Fields(3) = Me.nom
    jeu_typeO.Fields(4) = Me.description
    jeu_typeO.Fields(5) = Me.prix
    jeu_typeO.Update
    MsgBox ("L'enregistrement s'est bien effectu&#233;")
End If

a la revoyure

BasicInstinct · Answer

essaie d'ouvrir ton recordset en dynamic

++

 BasicInstinct

Shuyah2004 · Answer

Bonjour,



Il fallait plut&#244;t faire:



if jeu_count is nothing then

Shuyah

cs_Yoyo2B · Answer

le pb, c t ta chaine de connection adOpenStatic... c statique ... voir le comm de "BasicInstinct "

sinon, tu pouvais lancer une requete "update" ("UPDATE matable SET monchamp=mavaleur where monchamprestrictif=moncrit&#232;re")
&#231;a pr&#233;sente l'avant&#233;ge de ne pas ouvrir de recordset, donc de ne pas bloquer l'acc&#232;s &#224; la table, et de na pas faire de boucle ki encombrent la m&#233;moire
Access g&#232;re mieux le sql (disons plus rapidement et + l&#233;g&#232;rement en fait) que les addnew et companie

voil&#224; ...

happy coding ...

Probleme de if

15 réponses

Discussions similaires