Delete records in subform problem
situacija je sledeca.....
u formi imam subform datasheet koji sadrzi stavke prijemnice
prijemnica moze biti prijemnica nove robe , prijemnica robe vracene sa terena, prijemnica robe vracene sa terena pod drugacijim partNo ... to sam regulisao preko otpionbutton i chexbox i dugmica ...
izabemo recimo prijemnica nove robe....imam combo izaberem partno on napravi zapis u magacinID i u inputoutputTab
znaci ta stavkaprijemnice je spoj dve tabele inputOutputTab i magacinTab
ioID,magacinID,docID,tipDoc } inputOutputTab
magacinID,robaID,stanje,lokacija,altPartNo }magacinTab
kad pritisnem delete ide funkcija pronadjiID koja cita magacinID selektovanog rekorda i odradi sql delete i obrise taj rekord
ali problem je kad izaberem vise rekorda odjednom da obrise jer on onaj zadnji obrise iz inputoutput tabele kao i ostale ali samo njemu promeni stanje u magacintabeli u prethodno...evo kod mozda ce te me lakse razumeti tako ..
Dim sqlstring As String, Dim tmp As String , Dim tmpstanje As String , Dim tpmalt As String
Private Sub ComboNovaRoba_AfterUpdate()
procitajID
sqlstring = "UPDATE magacinTab SET magacinTab.stanje = 'OK' WHERE (((magacinTab.magacinID)= " + tmp + "));"
doSql
Me.ComboNovaRoba.SetFocus
Me.ComboNovaRoba.Requery
End Sub
-------------------------------------------------
Private Sub ComboPozajmljenaRoba_AfterUpdate()
procitajID
sqlstring = "UPDATE magacinTab SET magacinTab.stanje = 'NEISPRAVAN' WHERE (((magacinTab.magacinID)= " + tmp + "));"
doSql
Me.ComboPozajmljenaRoba.SetFocus
Me.ComboPozajmljenaRoba.Requery
End Sub
------------------------------------------------
Private Sub Form_AfterDelConfirm(Status As Integer)
' after delete confirm
If (tmpstanje = "OK") Then
sqlstring = "DELETE magacinTab.* FROM magacinTab WHERE (((magacinTab.magacinID)= " + tmp + "));"
doSql
MsgBox "odradio del"
ComboNovaRoba.SetFocus
Me.ComboNovaRoba.Requery
End If
If (tmpstanje = "NEISPRAVAN") Then
sqlstring = "UPDATE magacinTab SET magacinTab.stanje = 'POZAJMLJEN' WHERE (((magacinTab.magacinID)= " + tmp + "));"
doSql
ComboPozajmljenaRoba.SetFocus
Me.ComboPozajmljenaRoba.Requery
End If
End Sub
----------------------------------------
Private Sub Form_Delete(Cancel As Integer)
procitajID
End Sub
----------------------------------------
Public Sub doSql()
DoCmd.SetWarnings False
DoCmd.RunSQL (sqlstring)
DoCmd.SetWarnings True
End Sub
----------------------------------------
Public Sub procitajID()
inputOutputTab_magacinID.SetFocus
tmp = inputOutputTab_magacinID.Text
stanje.SetFocus
tmpstanje = stanje.Text
End Sub
----------------------------------------
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
' potiskuje accessov del dialog
Response = acDataErrContinue
' crta moj del dialog
If MsgBox("Da obrisem ovaj/ove record/e?", vbOKCancel, "Delete dialog") = vbCancel Then
Cancel = True
End If
End Sub
 |  |
 |
