Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » Logiranje u aplikaciju
pmiroslav 13.02.2011 13:47
Predmet:Re: Logiranje u aplikaciju

Evo uspio sam promjeniti 0 u 1 sa ovim:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Command32_Click()
  2. On Error GoTo Err_Command32_Click
  3.  
  4. Dim db As Database
  5.    Dim rs As Recordset
  6.    Dim mySQL As String
  7.    
  8.    Set db = CurrentDb()
  9.    mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  10.  
  11.    Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)
  12.  
  13.  
  14. rs.MoveFirst
  15. Do While Not rs.EOF
  16. Brisanje = rs.Fields(15)
  17.       With rs
  18.          .Edit
  19.          !Brisanje = 1
  20.          .Update
  21.       End With
  22.  
  23. rs.MoveNext
  24.  
  25. Loop
  26.  
  27.    rs.Close
  28.    db.Close
  29.    
  30.  
  31. Exit_Command32_Click:
  32.     Exit Sub
  33.  
  34. Err_Command32_Click:
  35.     MsgBox err.Description
  36.     Resume Exit_Command32_Click

Ali kod zatvaranja forme dobije se porika o greški "Write Conflict" prilig slika
Prilozi:
Image_Brisanje.jpg (Velicina datoteke:40.77 KB)

zxz 13.02.2011 15:41
Predmet:Re: Logiranje u aplikaciju

Dobro greska je u kodu vjerovatno a izbacje ti er. description.
Trebas ovo eliministati do ne proradi.
rem On Error GoTo Err_Command32_Click

Namece se tu drugo pitanje a to je dali ces da dozvolis brisanje vise redova odjednom ili samo po jedan.
Jednostavno polje brisanje napravi tip jes no i polje neka biude nevidljivo a kad hoces da brises neka bude vidljivo i u njemu direkt cekiras. onda samo negdje taster ili na meniju brisi a ispod kod samo refresh.

Ako ti ne ide napravit cu primjer.

pmiroslav 13.02.2011 16:52
Predmet:Re: Logiranje u aplikaciju

Napravio samt to
rem On Error GoTo Err_Command32_Click
i opet ta greška

zxz 13.02.2011 17:03
Predmet:Re: Logiranje u aplikaciju

PreuzmiIzvorni kôd (Visual Basic):
  1. Da ali sad vidis u kojem je redu greska to sam mislio.
  2. Private Sub Command32_Click()
  3. On Error GoTo Err_Command32_Click
  4. Dim db As Database
  5. Dim rs As Recordset
  6. Dim mySQL As String
  7.    
  8. Set db = CurrentDb()
  9. mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  10.  
  11. Set rs = db.OpenRecordset(mySQL)
  12. Do While Not rs.EOF
  13. Brisanje = rs.Fields(15)
  14.          rs.Edit
  15.          rs.Brisanje = 1
  16.          rs.Update
  17. rs.MoveNext
  18. Loop  
  19. rs.Close
  20. db.Close
  21. Exit_Command32_Click:
  22.  Exit Sub
  23.  
  24. Err_Command32_Click:
  25.     MsgBox err.Description
  26.     Resume Exit_Command32_Click

pmiroslav 13.02.2011 17:19
Predmet:Re: Logiranje u aplikaciju

Stavio sam tvoju proceduru i sada je nova greška
Prilozi:
Image_Brisanje_2.jpg (Velicina datoteke:34.18 KB)

zxz 13.02.2011 17:33
Predmet:Re: Logiranje u aplikaciju

Koji je tip polja brisanje i jeli mu dobro ime?
Provjeri!
Do While Not rs.EOF
Brisanje = rs.Fields(15)----> Ni ovaj red netreba
rs.Edit
rs.Brisanje = 1
rs.Update

pmiroslav 13.02.2011 20:10
Predmet:Re: Logiranje u aplikaciju

Tip polja je broj , ali opet neće.
Evo primjer
Prilozi:
Brisanje.rar (Velicina datoteke:16.78 KB)

zxz 13.02.2011 20:24
Predmet:Re: Logiranje u aplikaciju

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command33_Click()
  2. On Error GoTo Err_Command33_Click
  3. Dim db As Database
  4. Dim rs As Recordset
  5. Dim mySQL As String
  6.    
  7. Set db = CurrentDb()
  8. mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  9.  
  10. Set rs = db.OpenRecordset(mySQL)
  11. Do While Not rs.EOF
  12.          rs.Edit
  13.          rs!Brisanje = 1
  14.          rs.Update
  15. rs.MoveNext
  16. Loop
  17. rs.Close
  18. db.Close
  19. Me.RecordSource = Me.RecordSource
  20. Exit_Command33_Click:
  21.  Exit Sub
  22.  
  23. Err_Command33_Click:
  24.     MsgBox err.Description
  25.     Resume Exit_Command33_Click
  26.  
  27. End Sub

pmiroslav 13.02.2011 20:32
Predmet:Re: Logiranje u aplikaciju

Eto vidiÅ¡ Å¡to jedna točka napravi probleme.

pmiroslav 13.02.2011 20:41
Predmet:Re: Logiranje u aplikaciju

Pitao sam već prije, da li da ovakav način brisanja primjenjujem i kod ulaza i izlaza?