Prikazi cijelu temu 02.07.2015 11:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Prebacivanje sa access forme u excel.
Evo ovako:
Gore na vru tog modula stavi ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Dim UndoN() As Integer
  3. Dim N As Integer
Znaci na vrhu modula od forme.

Na taster za brisanje na on klik stavi ovaj kod ili ispravi stari

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim R
  2. R = MsgBox("BriÅ¡eÅ¡ ovaj red podataka?  ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2, "NAPOMENA")
  3.  
  4. If R = vbYes Then
  5. N = N + 1
  6. ReDim Preserve UndoN(N) As Integer
  7. Me.Brisanje = 1
  8. UndoN(N) =[color=#FF0000] ImeTvogPoljaPrimarnogKljuca[/color]
  9. Me.RecordSource = Me.RecordSource
  10. End If

Na tater uno na on klik stavi ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Db As DAO.Database
  2. Dim Rs As DAO.Recordset
  3. Dim SQL As String
  4. If N = 0 Then GoTo Kraj:
  5. SQL = "SELECT Brisanje FROM Artilkli WHERE [color=#FF0000]ImeTVogPOljaPrimarnogJluca[/color]=" & UndoN(N)
  6. Set Db = CurrentDb()
  7. Set Rs = Db.OpenRecordset(SQL)
  8.  
  9. Rs.Edit
  10. Rs.Fields(0) = 0
  11. Rs.Update
  12. N = N - 1
  13. Me.RecordSource = Me.RecordSource
  14. Kraj:
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.