This is my function Transfer(), which transfer some value from a Form1
to another Form2
(The bases are not linked)
It works EXCEPT when I ask to put the field [Transfer] to Yes (to
avoid a 2nd transfer of value) lines 45 > 49
It looks like if the link with the Form1 is lost at that time !!!
Which is the right code at the right place, pls ? Thks
Public Function Transfert()
Dim strBase As String
Dim strForm As String
Dim acc As Access.Application
strBase = "D:\1_Database_Devlt\Mini_D_ASDEV.mdb"
strForm = "002_CREDIT"
' Ouvrir une instance d'Access et la rendre visible
Set acc = CreateObject(strBase)
With acc
.Visible = True
' Activer Access en plein écran
.DoCmd.RunCommand acCmdAppMaximize
' Open Form 002_CREDIT in Add screen
.DoCmd.OpenForm "002_CREDIT", acNormal, "", "", acAdd, acNormal
.DoCmd.Maximize
.DoCmd.GoToRecord , , acNewRec
'Transfert des données de Forms("Invoice_Transfert") dans
Forms("002_credit")
'("LastName") entre dans la ComboxBox CR_NAME / Control
CREDNAME
.Forms("002_credit").Controls("CREDNAME") =
Forms("Invoice_Transfert").Controls("LastName")
'Entree de la default value "ZPORT" dans ("PORT")
.Forms("002_credit").Controls("PORT") = "ZPORT"
'Entree de la default value "1_Varius Vessels" dans ("VESSEL")
.Forms("002_credit").Controls("VESSEL") = "1_Various Vessels"
.Forms("002_credit").Controls("DATCHECK") =
Forms("Invoice_Transfert").Controls("InvoiceDate")
.Forms("002_credit").Controls("SERVICE") =
Forms("Invoice_Transfert").Controls("InvoiceId")
.Forms("002_credit").Controls("CREDITEM") =
Forms("Invoice_Transfert").Controls("Field")
.Forms("002_credit").Controls("REMARK1") =
Forms("Invoice_Transfert").Controls("AgtItem")
'("CUR_CODE") entre dans la ComboBox P_CURR1 - Control P_CURR
.Forms("002_credit").Controls("P_CURR") =
Forms("Invoice_Transfert").Controls("CUR_CODE")
.Forms("002_credit").Controls("CREDRQST") =
Forms("Invoice_Transfert").Controls("Amount")
'Entrée de ("Amount") conditionné a la monnaie de facturation
("CUR_CODE")
If Forms("Invoice_Transfert").Controls("CUR_CODE") Like
"US$" Then
.Forms("002_credit").Controls("CREDRQST_US") =
Forms("Invoice_Transfert").Controls("Amount")
End If
.DoCmd.RunCommand acCmdSaveRecord
'ALL IS RUNNING EXCEPT THIS FOLL. LINE
????????????????????????????????????
'Forms("Invoice_Transfert").Controls("Transfer") is not recognized
???????
' The Yes/No field [Transfer] should be put to "YES"
.Forms("Invoice_Transfert").Controls("Transfer") = -1
' foll. command doesn't work too ????????????
Me.Transfer = -1
'prévoir un bouton fin de transfert avec:
'.Docmd.close du formulaire2 app.close set = nothing de tous les
objets de la base 2
End With
End Function