Buonasera,
chiedo il Vostro aiuto perché aprendo una maschera su altro DB tramite un comando, nel DB di destinazione si creano due nuovi record anziché uno (uno dei due nuovi record viene creato sempre nel primo record della tabella - la tabella dove devo scrivere il nuovo record è una tabella collegata alla principale esempio: principale testata sub dettaglio) come correttamente dovrebbe funzionare, dove sbaglio ? il codice è il seguente:
Function OpenRemoteForm(strMDB As String, strForm As String) As Boolean
Dim Msg, Style, Title, Response
Dim objAccess As New Access.Application
Dim lngRet As Long
Dim str As String
Dim numt As Long
Dim numm As Long
Dim it As Long
Dim im As Long
Dim vart As Long
Dim varm As Long
Dim rstT As New ADODB.Recordset
Dim rstM As New ADODB.Recordset
str = Right(DLookup("EsercizioF", "TblEsercizio"), 4)
strMDB = "C:\Users\fabrizio.nistri\Desktop\GESTIONE_AGRICOLTURA\GESTIONE_AGRICOLTURA_" & str & "\moM.accdb"
'trattori
tr:
strForm = "TRATTORI"
If Len(Dir(strMDB)) > 0 Then
Set objAccess = New Access.Application
With objAccess
lngRet = apiSetForegroundWindow(.hWndAccessApp)
lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL)
lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL)
.OpenCurrentDatabase strMDB
vart = DLookup("[IdTrattore]", "Trattori", "[IdTrattore] =" & Form_FRM_SUBORE.Mezzo.Column(0))
rstT.Open "Select * From Trattori ORDER BY IdTrattore", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
numt = rstT.RecordCount
For it = 1 To numt
If vart = rstT!IdTrattore Then
Exit For
End If
rstT.MoveNext
Next it
.DoCmd.OpenForm strForm, acNormal, , , acFormEdit, acWindowNormal
.DoCmd.GoToRecord acDataForm, strForm, acGoTo, it
.Forms.Item(SUB_TRATTORI).TR_ENTRY_EST = "S"
.Forms.Item(strForm).appoData = Form_FRM_RILEVAZIONI.Data
.Forms.Item(strForm).appoDIPE = Form_FRM_RILEVAZIONI.Dipendente
.DoCmd.GoToControl "SDIT"
End With
rstT.Close
GoTo OpenRemoteForm_Exit:
End If
grazie mille per la Vostra collaborazione
cordiali saluti
Fabrizio Nistri
chiedo il Vostro aiuto perché aprendo una maschera su altro DB tramite un comando, nel DB di destinazione si creano due nuovi record anziché uno (uno dei due nuovi record viene creato sempre nel primo record della tabella - la tabella dove devo scrivere il nuovo record è una tabella collegata alla principale esempio: principale testata sub dettaglio) come correttamente dovrebbe funzionare, dove sbaglio ? il codice è il seguente:
Function OpenRemoteForm(strMDB As String, strForm As String) As Boolean
Dim Msg, Style, Title, Response
Dim objAccess As New Access.Application
Dim lngRet As Long
Dim str As String
Dim numt As Long
Dim numm As Long
Dim it As Long
Dim im As Long
Dim vart As Long
Dim varm As Long
Dim rstT As New ADODB.Recordset
Dim rstM As New ADODB.Recordset
str = Right(DLookup("EsercizioF", "TblEsercizio"), 4)
strMDB = "C:\Users\fabrizio.nistri\Desktop\GESTIONE_AGRICOLTURA\GESTIONE_AGRICOLTURA_" & str & "\moM.accdb"
'trattori
tr:
strForm = "TRATTORI"
If Len(Dir(strMDB)) > 0 Then
Set objAccess = New Access.Application
With objAccess
lngRet = apiSetForegroundWindow(.hWndAccessApp)
lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL)
lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL)
.OpenCurrentDatabase strMDB
vart = DLookup("[IdTrattore]", "Trattori", "[IdTrattore] =" & Form_FRM_SUBORE.Mezzo.Column(0))
rstT.Open "Select * From Trattori ORDER BY IdTrattore", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
numt = rstT.RecordCount
For it = 1 To numt
If vart = rstT!IdTrattore Then
Exit For
End If
rstT.MoveNext
Next it
.DoCmd.OpenForm strForm, acNormal, , , acFormEdit, acWindowNormal
.DoCmd.GoToRecord acDataForm, strForm, acGoTo, it
.Forms.Item(SUB_TRATTORI).TR_ENTRY_EST = "S"
.Forms.Item(strForm).appoData = Form_FRM_RILEVAZIONI.Data
.Forms.Item(strForm).appoDIPE = Form_FRM_RILEVAZIONI.Dipendente
.DoCmd.GoToControl "SDIT"
End With
rstT.Close
GoTo OpenRemoteForm_Exit:
End If
grazie mille per la Vostra collaborazione
cordiali saluti
Fabrizio Nistri