Accueil
Dernières images
S'enregistrer
Connexion
NormanBishop- Nombre de messages : 1
Date d'inscription : 05/05/2014
System.Runtime.InteropServices.COMException avec VB.net
Lun 5 Mai 2014 - 12:47
S.V.P. m'aider avec cette probleme.
If ValidCo <> 0 Then
aError = Acomba.OpenCompany("q:\", "p:\CplusCourant")
If aError = 0 Then
Debug.Print("Company Found")
UserIndex.UsNumber = "supervisor"
Try
aError = Acomba.FindKey(UserIndex, 1) L'erreur ce produit ICI ******************
Catch ex As Exception
MsgBox(ex.Message)
aError = Acomba.CloseCompany
End Try
If ValidCo <> 0 Then
aError = Acomba.OpenCompany("q:\", "p:\CplusCourant")
If aError = 0 Then
Debug.Print("Company Found")
UserIndex.UsNumber = "supervisor"
Try
aError = Acomba.FindKey(UserIndex, 1) L'erreur ce produit ICI ******************
Catch ex As Exception
MsgBox(ex.Message)
aError = Acomba.CloseCompany
End Try
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum