Bonjour,
j'ai d=E9velopper une base sous access XP (au format 2000)=20
en vue de la distribuer via le runtime d'office xp=20
developper sur des postes tournant sur win 98.
Dans mon appli j'ai un formulaire avec un liste modifiable=20
dont le code permet de cr=E9er l'enregistrement et de mettre=20
=E0 jour la liste.
code********************************
Private Sub RecherchePrt_AfterUpdate()
Dim rsP As Object
Set rsP =3D Me.Recordset.Clone
rsP.FindFirst "[Prt_code] =3D " & Str(Nz(Me!
[RecherchePrt], 0))
If Not rsP.EOF Then Me.Bookmark =3D rsP.Bookmark
=20
If Test_Prt =3D 1 Then
Call RefreshFrm_Prt
Test_Prt =3D 0
End If
=20
End Sub
Private Sub RecherchePrt_NotInList(NewData As String,=20
Response As Integer)
If MsgBox("L'enregistrement '" & NewData & "' n'existe=20
pas dans la base de donn=E9es." & Chr(10) & Chr(13)=20
& "Voulez-vous l'ajouter =E0 la liste ?", _
vbYesNo + vbQuestion, "Valeur inconnue") =3D vbYes=20
Then =20
CurrentDb.Execute "INSERT INTO Tbl_Prt(Prt_nom) "=20
& "SELECT """ & NewData & """ ;"
Response =3D acDataErrAdded
Test_Prt =3D 1
Else
Response =3D acDataErrContinue
Me!RecherchePrt.Undo =20
End If
End Sub
fin code*******************
Ma base fonctionne parfaitement sous access XP mais avec=20
le runtime sur win 98 j'ai un plantage des que je veux me=20
servir de cette liste.
Le message est le suivant :
**************
Cette application va etre arretee =E0 cause d'une erreur=20
d'execution. Elle ne peut pas continuer et va etre fermee.
**************
Puis, elle se ferme...
