Aide pr un pov bricoleur en Access !! Please

Le
JeanSe
Hello

je suis entrain de develloper un une db access pour un
certain nombre de users de maniere a ce qu'il ne puisse
pas toucher aux tables et seulement travailler par le
biais de formulaire, qui sont de consultation, update et
add new.
Sur le form d'update un des champs est un calcul en
fonction de deux autres champs du meme formulaire.
En apuyant sur l'icone Update qui lance la macro (ci
jointe) il ne me garde pas la valeur du champ calcul, il
passe completement a cote et me mets un mesage d'erreur.

COMMENT DOIS JE ADAPTER MA MACRO OU LA PROPRIETE DU
CHAMP 'txtRecupTax'. Pour info j'ai mis la formule ds le
Control Source des `proprietes du champ.

Merci beaucoup de votre aide

Private Sub cmdUpdateTAX_Click()
Dim lrsData As Recordset
Dim lsSql As String
Dim lsText As String
Dim liReturn As Integer

''''''''''''''''''''
On Error GoTo hError
''''''''''''''''''''

Set gdbBase = CurrentDb()

'
' validating data
'
If Not MFbValidationClient Then
Exit Sub
End If
'
'lookup if tax reclaim payment exists
'
'
lsSql = ""
lsSql = lsSql & "SELECT * "
lsSql = lsSql & "FROM TaxReclaim "
lsSql = lsSql & "WHERE REFERENCE = " & "'" &
[cboRef] & "'"
Set lrsData = gdbBase.OpenRecordset(lsSql)


If lrsData.RecordCount = 0 Then
MsgBox "Reclaim " & cboRef & " doesn't exists on
TaxReclaim table.", vbExclamation, "TAX"
Exit Sub
End If


'
'Confirmation action
'
'
lsText = lsText & "Tax Reclaim Reference..: " & cboRef &
vbCrLf & vbCrLf
lsText = lsText & "Isin code..: " & txtISIN &
vbCrLf & vbCrLf
lsText = lsText & "Do you want to update existing Tax
Reclaim ?"
liReturn = MsgBox(lsText, vbYesNo + vbQuestion +
vbDefaultButton1, "TAX")
If liReturn = vbNo Then
MsgBox "Operation cancelled.", vbInformation, "TAX"
cmdClear_Click
Exit Sub

'
'Saving Datas
'

Else

With lrsData
.Edit
!REFERENCE = cboRef
!STATUS = cboStatus
!EXDATE = txtEx
!PAYDATE = txtPay
!SHS = txtSHS
!GUNITPRICE = txtGUP
!NUNITPRICE = txtNUP
!TOTGROSS = txtTGP
!TOTNET = txtTNP
!FGNTAXPCT = txtFgnTax
!RECUPPCT = txtRecupTax
If IsDate(txtBreakSent) Then
!BREAKSENT = txtBreakSent
End If
If IsDate(txtRecFormParis) Then
!RECFORMPARIS = txtRecFormParis
End If
If IsDate(txtSentFormClient) Then
!SENTFORMCLT = txtSentFormClient
End If
If IsDate(txtRecFormClient) Then
!RECFORMCLT = txtRecFormClient
End If
If IsDate(txtSentFormParis) Then
!SENTFORMPARIS = txtSentFormParis
End If
If IsDate(txtReclaimDate) Then
!PAYDATERECUP = txtReclaimDate
End If
!FOREX = txtFX
If IsDate(txtReclaimValue) Then
!VALUEDATERECUP = txtReclaimValue
End If
!FINALAMOUNT = txtFinalAmount


.Update
End With
cboRef.SetFocus


End If


MsgBox "Reclaim " & cboRef & " Updated successfully.",
vbInformation, "TAX"

cmdClear_Click

lrsData.Close

Exit Sub

hError:
MsgBox Err.Number & "-" & Err.Description,
vbCritical, "TAX"

End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Maxence HUBICHE
Le #4836761
euh ... ahem,

c'est quoi le message d'erreur ?
Après tout, si Microsoft s'est donné le mal de faire apparaitre un message,
c'est peut-être qu'il sert un peu à quelque chose, comme nous donner des
indications pour comprendre ce qui se passe :)

--
======================================== Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ Access de
developpez.com
"JeanSe" news: 639701c4013c$4d84c970$
Hello

je suis entrain de develloper un une db access pour un
certain nombre de users de maniere a ce qu'il ne puisse
pas toucher aux tables et seulement travailler par le
biais de formulaire, qui sont de consultation, update et
add new.
Sur le form d'update un des champs est un calcul en
fonction de deux autres champs du meme formulaire.
En apuyant sur l'icone Update qui lance la macro (ci
jointe) il ne me garde pas la valeur du champ calculé, il
passe completement a cote et me mets un mesage d'erreur.

COMMENT DOIS JE ADAPTER MA MACRO OU LA PROPRIETE DU
CHAMP 'txtRecupTax'. Pour info j'ai mis la formule ds le
Control Source des `proprietes du champ.

Merci beaucoup de votre aide

Private Sub cmdUpdateTAX_Click()
Dim lrsData As Recordset
Dim lsSql As String
Dim lsText As String
Dim liReturn As Integer

''''''''''''''''''''
On Error GoTo hError
''''''''''''''''''''

Set gdbBase = CurrentDb()

'
' validating data...
'
If Not MFbValidationClient Then
Exit Sub
End If
'
'lookup if tax reclaim payment exists
'
'
lsSql = ""
lsSql = lsSql & "SELECT * "
lsSql = lsSql & "FROM TaxReclaim "
lsSql = lsSql & "WHERE REFERENCE = " & "'" &
[cboRef] & "'"
Set lrsData = gdbBase.OpenRecordset(lsSql)


If lrsData.RecordCount = 0 Then
MsgBox "Reclaim " & cboRef & " doesn't exists on
TaxReclaim table.", vbExclamation, "TAX"
Exit Sub
End If


'
'Confirmation action
'
'
lsText = lsText & "Tax Reclaim Reference..: " & cboRef &
vbCrLf & vbCrLf
lsText = lsText & "Isin code..............: " & txtISIN &
vbCrLf & vbCrLf
lsText = lsText & "Do you want to update existing Tax
Reclaim ?"
liReturn = MsgBox(lsText, vbYesNo + vbQuestion +
vbDefaultButton1, "TAX")
If liReturn = vbNo Then
MsgBox "Operation cancelled.", vbInformation, "TAX"
cmdClear_Click
Exit Sub

'
'Saving Datas
'

Else

With lrsData
.Edit
!REFERENCE = cboRef
!STATUS = cboStatus
!EXDATE = txtEx
!PAYDATE = txtPay
!SHS = txtSHS
!GUNITPRICE = txtGUP
!NUNITPRICE = txtNUP
!TOTGROSS = txtTGP
!TOTNET = txtTNP
!FGNTAXPCT = txtFgnTax
!RECUPPCT = txtRecupTax
If IsDate(txtBreakSent) Then
!BREAKSENT = txtBreakSent
End If
If IsDate(txtRecFormParis) Then
!RECFORMPARIS = txtRecFormParis
End If
If IsDate(txtSentFormClient) Then
!SENTFORMCLT = txtSentFormClient
End If
If IsDate(txtRecFormClient) Then
!RECFORMCLT = txtRecFormClient
End If
If IsDate(txtSentFormParis) Then
!SENTFORMPARIS = txtSentFormParis
End If
If IsDate(txtReclaimDate) Then
!PAYDATERECUP = txtReclaimDate
End If
!FOREX = txtFX
If IsDate(txtReclaimValue) Then
!VALUEDATERECUP = txtReclaimValue
End If
!FINALAMOUNT = txtFinalAmount


.Update
End With
cboRef.SetFocus


End If


MsgBox "Reclaim " & cboRef & " Updated successfully.",
vbInformation, "TAX"

cmdClear_Click

lrsData.Close

Exit Sub

hError:
MsgBox Err.Number & "-" & Err.Description,
vbCritical, "TAX"

End Sub
JeanSe
Le #4835911
fausse alerte, le message d'erreur oublie ds mon 1er
message 'hic' ne provenait pas de cette macro, mais d'une
autre.
J'ai repere le probleme et palie.

merci tout de meme pr le derangement
A+
-----Message d'origine-----
euh ... ahem,

c'est quoi le message d'erreur ?
Après tout, si Microsoft s'est donné le mal de faire
apparaitre un message,

c'est peut-être qu'il sert un peu à quelque chose, comme
nous donner des

indications pour comprendre ce qui se passe :)

--
======================== =================
Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ
Access de

developpez.com
"JeanSe" dans le message de

news: 639701c4013c$4d84c970$
Hello

je suis entrain de develloper un une db access pour un
certain nombre de users de maniere a ce qu'il ne puisse
pas toucher aux tables et seulement travailler par le
biais de formulaire, qui sont de consultation, update et
add new.
Sur le form d'update un des champs est un calcul en
fonction de deux autres champs du meme formulaire.
En apuyant sur l'icone Update qui lance la macro (ci
jointe) il ne me garde pas la valeur du champ calculé, il
passe completement a cote et me mets un mesage d'erreur.

COMMENT DOIS JE ADAPTER MA MACRO OU LA PROPRIETE DU
CHAMP 'txtRecupTax'. Pour info j'ai mis la formule ds le
Control Source des `proprietes du champ.

Merci beaucoup de votre aide

Private Sub cmdUpdateTAX_Click()
Dim lrsData As Recordset
Dim lsSql As String
Dim lsText As String
Dim liReturn As Integer

''''''''''''''''''''
On Error GoTo hError
''''''''''''''''''''

Set gdbBase = CurrentDb()

'
' validating data...
'
If Not MFbValidationClient Then
Exit Sub
End If
'
'lookup if tax reclaim payment exists
'
'
lsSql = ""
lsSql = lsSql & "SELECT * "
lsSql = lsSql & "FROM TaxReclaim "
lsSql = lsSql & "WHERE REFERENCE = " & "'" &
[cboRef] & "'"
Set lrsData = gdbBase.OpenRecordset(lsSql)


If lrsData.RecordCount = 0 Then
MsgBox "Reclaim " & cboRef & " doesn't exists on
TaxReclaim table.", vbExclamation, "TAX"
Exit Sub
End If


'
'Confirmation action
'
'
lsText = lsText & "Tax Reclaim Reference..: " & cboRef &
vbCrLf & vbCrLf
lsText = lsText & "Isin code..............: " & txtISIN &
vbCrLf & vbCrLf
lsText = lsText & "Do you want to update existing Tax
Reclaim ?"
liReturn = MsgBox(lsText, vbYesNo + vbQuestion +
vbDefaultButton1, "TAX")
If liReturn = vbNo Then
MsgBox "Operation cancelled.", vbInformation, "TAX"
cmdClear_Click
Exit Sub

'
'Saving Datas
'

Else

With lrsData
.Edit
!REFERENCE = cboRef
!STATUS = cboStatus
!EXDATE = txtEx
!PAYDATE = txtPay
!SHS = txtSHS
!GUNITPRICE = txtGUP
!NUNITPRICE = txtNUP
!TOTGROSS = txtTGP
!TOTNET = txtTNP
!FGNTAXPCT = txtFgnTax
!RECUPPCT = txtRecupTax
If IsDate(txtBreakSent) Then
!BREAKSENT = txtBreakSent
End If
If IsDate(txtRecFormParis) Then
!RECFORMPARIS = txtRecFormParis
End If
If IsDate(txtSentFormClient) Then
!SENTFORMCLT = txtSentFormClient
End If
If IsDate(txtRecFormClient) Then
!RECFORMCLT = txtRecFormClient
End If
If IsDate(txtSentFormParis) Then
!SENTFORMPARIS = txtSentFormParis
End If
If IsDate(txtReclaimDate) Then
!PAYDATERECUP = txtReclaimDate
End If
!FOREX = txtFX
If IsDate(txtReclaimValue) Then
!VALUEDATERECUP = txtReclaimValue
End If
!FINALAMOUNT = txtFinalAmount


.Update
End With
cboRef.SetFocus


End If


MsgBox "Reclaim " & cboRef & " Updated successfully.",
vbInformation, "TAX"

cmdClear_Click

lrsData.Close

Exit Sub

hError:
MsgBox Err.Number & "-" & Err.Description,
vbCritical, "TAX"

End Sub


.



Publicité
Poster une réponse
Anonyme