add Recordeset

[izzusan]

Ciao Riga ho un problemone e non so neanche come spiegarvelo..

io devo fare degli inserimenti su dei recordset conun campo chiamato prgRiga dove ho una funzione che mi calcola il max il problema che nn mi fa un tubo io pigio sul mio pulsante aggiungi mi cancella il record precedente e me ne aggiunge uno vuoto ( io invece gli passo dei parametri)
lA mia form e' strutturata da na maschera Form_frmOrdiniR e da una sotto form
FORM_sfrmOrddiniD

passo i miei parametri da OrdiniR a OrdiniD

con questo codice...





Option Compare Database
Option Explicit

Public plngPrgOrdine As Long
Public pstrCodArticolo As String
Public pstrCodSerie As String

Public Sub subModeAdd(blnMode As Boolean)
On Error GoTo Err_cmdOk_Click

cmdArticolo.Enabled = blnMode
CodArticolo.Enabled = blnMode
CodSerie.Enabled = blnMode

Exit_cmdOk_Click:
Exit Sub

Err_cmdOk_Click:
MsgBox Err.Description
Resume Exit_cmdOk_Click

End Sub
Private Sub cmdOk_Click()
On Error GoTo Err_cmdOk_Click
Dim stDocName As String
Dim stLinkCriteria As String

DoCmd.Close

stDocName = "frmOrdiniT"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Form_sfrmOrdiniR.DesArticolo = DesArticolo
Form_sfrmOrdiniR.CodArticolo = CodArticolo
Form_sfrmOrdiniR.PrzCostoUni = PrzCostoUni
Exit_cmdOk_Click:
Exit Sub

Err_cmdOk_Click:
MsgBox Err.Description
Resume Exit_cmdOk_Click

End Sub
Private Sub cmdAggiungi_Click()
On Error GoTo Err_cmdAggiungi_Click
Dim intPrgOrdine As Long
Dim strSigTipoTaglia As String
Dim strCodArticolo As String
Dim strDesArticolo As String
Dim curPrzCostoUni As Currency
Dim strSigColore As String
Dim intCodSerie As String
Dim strClassiMerce As String
Dim strSottoClassiMerce As String
Dim strArticoloAggiunt As String

subModeAdd True
With Form_sfrmOrdiniD
.Filter = "PrgOrdine = " & PrgOrdine & " AND CodArticolo = '" & CodArticolo & "' AND CodSerie = '" & CodSerie & "'"
.FilterOn = True

.AllowAdditions = True

DoCmd.GoToRecord , , acNewRec
.PrgOrdine = Form_frmOrdiniR.PrgOrdine
.CodArticolo = Form_frmOrdiniR.CodArticolo
.CodSerie = Form_frmOrdiniR.CodSerie
.PrgRiga = funMaxPrgRiga(Form_frmOrdiniR.PrgOrdine)
DoCmd.Save
.AllowAdditions = False
.Requery
.Refresh

End With
Exit_cmdAggiungi_Click:
Exit Sub

Err_cmdAggiungi_Click:
MsgBox Err.Description
Resume Exit_cmdAggiungi_Click

End Sub

Private Function funMaxPrgRiga(lngPrgOrdine As Long) As Long
On Error GoTo Err_funMaxPrgRiga
Dim dbs As Database
Dim rst As DAO.Recordset
Dim strSql As String

strSql = "SELECT MAX(PrgRiga) as Val FROM [OrdiniR] WHERE PrgOrdine = " & lngPrgOrdine '
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strSql)
funMaxPrgRiga = Nz(rst!Val, 0) + 1
rst.Close
dbs.Close
Exit_funMaxPrgRiga:
Exit Function

Err_funMaxPrgRiga:
MsgBox Err.Description
End Function

Private Sub cmdArticolo_Click()
On Error GoTo Err_cmdArticolo_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmArticoli_List"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdArticolo_Click:
Exit Sub

Err_cmdArticolo_Click:
MsgBox Err.Description
Resume Exit_cmdArticolo_Click

End Sub



MA NON FUNZIONA AAAAAAAAAIIIIIIIIUUUUUUTTTTTOOOOOOOOO

lo so che nn e' spiegato in italiano ma.... nn so come spiegarlo

[izzusan]

aiutoooooooooo

[IKON]

Invece di postare tutto quel codice.... cerca di spiegarti meglio e magari uno di noi ti potrebbe aiutare a trovare la soluzione; altrimenti dubito che qualcuno possa aiutarti.


Ciao

[izzusan]

io devo fare degli inserimenti su dei recordset di un tatabase tramite una query, con un campo chiamato prgRiga dove ho una funzione che mi calcola il max. il problema che nn mi fa un tubo io pigio sul mio pulsante aggiungi e mi cancella il record precedente e me ne aggiunge uno vuoto ( io invece gli passo dei parametri)
lA mia form e' strutturata da na maschera Form_frmOrdiniR e da una sotto form
FORM_sfrmOrddiniD

passo i miei parametri da OrdiniR a OrdiniD

es prgriga 1 articolo prova taglia Xl

pigio aggiungi
prgriga 2 articolo prova2 taglia l

[izzusan]

help