Discussion :

[porci82]

Hello.
me revoici avec un autre problème.
quand je vais modifier une entrée dans une table, il me fait un bug que voici


j'utilise le même code pour enregistrer que pour modifier, et a l'enregistrement, aucun souci!

voici ce fameux code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Function saveData() As Boolean
 
  Dim orsSaveData     As ADODB.Recordset
  Dim strsqlSaveData  As String
 
  On Error GoTo saveData_Error
 
  'on part du principe que tout c'est bien déroulé
  saveData = True
 
  strsqlSaveData = "select * from TableCustomer "
 
  Set orsSaveData = New ADODB.Recordset
 
  With orsSaveData
    .Open strsqlSaveData, CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText
    If m_intBoutonPressed = enu_BtnPressed_Ajout Then .AddNew
      !ID_SAP_FL = (TxtFCustomerEditDetailSapFl)
      !STATUS = NullToEmptyString(TxtFCustomerEditDetailStatus)
      !CONTACT = NullToEmptyString(TxtFCustomerEditDetailContact)
      !Tel = NullToEmptyString(TxtFCustomerEditDetailTel)
      !FAX = NullToEmptyString(TxtFCustomerEditDetailFax)
      !IN_SERVICE_DATE = TxtFCustomerEditDetailInSDate
      !OUT_OF_SERVICE_DATE = TxtFCustomerEditDetailOoSDate
      !CONTRACT = NullToEmptyString(TxtFCustomerEditDetailContract)
      !CONTRACT_START = TxtFCustomerEditDetailContractStart
      !CONTRACT_END = TxtFCustomerEditDetailcontractEnd
      !COLLOCATION = NullToEmptyCheckBox(ChkFCustomerEditDetailCollo)
      !COLLO_TEXT = NullToEmptyString(TxtFCustomerEditDetailColloT)
      !TERRESTRIAL = NullToEmptyCheckBox(ChkFCustomerEditDetailTerre)
      !IP_BACKBONE = NullToEmptyCheckBox(ChkFCustomerEditDetailBackbone)
      !OUR_SPACE = NullToEmptyCheckBox(ChkFCustomerEditDetailOurSpace)
      !COMPANY = NullToEmptyString(TxtFCustomerEditDetailCompany)
      !MR = TxtFCustomerEditDetailMR
      !CURRENCY = NullToEmptyString(TxtFCustomerEditDetailCurrency)
      .Update
    .Close
  End With
  Set orsSaveData = Nothing
 
  Exit Function 'oRs
 
saveData_Error:
  'le sauvetage c'est mal déroulée
  saveData = False
 
  MsgBox Replace(g_cstrErrMesg, "@", "saveData") & vbCrLf & Err.Description, _
         vbCritical, "Erreur dans la fenêtre F_CustomerEditDetails"
 
End Function 'saveData

je comprend rien.
mon proffesseur m'a parlé d'une erreur pouvant provenir d'un antivirus, mais je l'ai désactivé, et ça fait encore¨

P.S. il faut que je recontrolle, mais il me semble que sur un autre PC, ça fonctionne

P.S.2 : je précise que je ne tente pas de modifier des éléments liés a d'autre table, ou autre, mais bien ceux qui sont tout simplement dans la table désirée

[AlainTech]

L'erreur signifie que tu essayes de créer un record dont un des champs risque de faire un doublon alors que la structure de la base l'interdit.