Centar za edukaciju-BiH


Stranice (6):1,2,3,4,5,6

#31 23.11.2010 16:25
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
e ovde imam jedan mali problem na ovoj liniji mi javlja grešku Type mismatch ( a podatak je STRING ime korisnika)

Set Vork = Me.Worksheets(Rs!imeprezime)

kako da prevaziđem ovaj problem?
Pozdav,

Nedim
↑  ↓

#32 23.11.2010 17:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Set Vork = Me.Worksheets(Rs!imeprezime)

Sta to znaci:
Setujes sit u exelu sa imenom i access rekordseta (iz kojege redea rs neznam) ali iz kolone Imeprezime.
Njavjerovatnije nemas to Sheeta.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#33 23.11.2010 19:25
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Ma htjeo sam da napravim vise shit-ova u exelu po imenima korisnika sa evidencijom o mjesecnom radu po vrstama posla,grupi i nazivu posla , a kad dođem na ovu varijablu on mi pokaže prvo ime u rekordstu ali kad treba da ga upiÅ¡e javlja geÅ¡ku u obliku podatka.
Ustvari radim po ovom tvom primjeru odavde,ali polako. Ustvari trebam za seficu napraviti neki pregled poslova za svakog uposlenika, a podatke imam u access-u a nije mi neka frka pa hoću da probam ovo Å¡to si pokazao.
Pozdav,

Nedim
↑  ↓

#34 23.11.2010 20:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Probaj sa ovim:
Set Vork = Sheets.Add(after:=Sheets(Sheets.Count))
Vork.Name = "Mujo od doboja"
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#35 24.11.2010 12:36
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Prijatelju uspio sam ubaciti imena u sheet-ove, mućim se ali polako idem red po red (neću da kažem da je jako zeznuto ali polako naućit ću)

PreuzmiIzvorni kôd (vbnet):
  1.  Private Sub Workbook_Open()
  2.      Dim db As database
  3.      Dim Rs As Recordset
  4.      Dim sh As Sheets
  5.      Dim Dokument As Document
  6.      Dim Vork As Worksheet
  7.      Dim Putanja As String
  8.      Dim I As Integer, N As Integer, M As Integer, J As Integer, Iip     As Integer
  9.      Dim Podatak, SifraImePrezime() As String, SifraArt As String, SQL As String
  10.      Putanja = Me.Path
  11.      SQL = "SELECT ImePrezime FROM AUposleni " _
  12.            & "GROUP BY AUposleni.ImePrezime " _
  13.            & "ORDER BY AUposleni.imePrezime"
  14.      Set db = OpenDatabase(Putanja & "\Du_novi.mdb")
  15.      Set Rs = db.OpenRecordset(SQL)
  16.     Rs.MoveFirst
  17.     Do While Not Rs.EOF()
  18.     Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
  19.     Vork.Name = Rs!imeprezime
  20.     Rs.MoveNext
  21.     Loop

Sad idem dalje unos podataka u sheet-ove
Pozdav,

Nedim
↑  ↓

#36 24.11.2010 13:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Svaka cast samo ne prekidaj bar pola godine sa kodom i imat ces ono sto si htio da imas.
Ako nesto stvarno zapne onda napisi pa cemo pogurati malo.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#37 24.11.2010 14:04
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Uh, ti pretjera sa ovo pola godine, ja to mislim za nekoliko dana, do mjesec da napravim, ako bog da i uz tvoju pomoć Wink
Å alim se naravno, ja ću ovo probati sam, ali ako zapnem znam gdje ću se obratiti i ko će mi uvjek ako zna pomoći to je naÅ¡ forum
Pozdav,

Nedim
↑  ↓

#38 24.11.2010 16:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Ja sam mislio na trebing koda. Moras bar pola godine dalamit da steknes rutinu.
Smatram da si dovoljno naucio da razmisljas o tome kao o alatu koji ti moze pomoci u radu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#39 26.11.2010 15:33
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
E uradio sam dosta posla, i sve mi upisuje kako treba ali ima par sitnica sa kojim nisam zadovoljan.
Recimo stalno mi pokuÅ¡ava upisati novi sheet i ako već postoji moram to pokuÅ¡ati rjeÅ¡iti
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Workbook_Open()
  2.      Dim db As database
  3.      Dim Rs As Recordset
  4.      Dim sh As Sheets
  5.      Dim Dokument As Document
  6.      Dim Vork As Worksheet
  7.      Dim Putanja As String
  8.      Dim I As Integer, N As Integer, M As Integer, J As Integer, Iip     As Integer
  9.      Dim Podatak, SifraImePrezime() As String, Sifravrstaposla As String, SQL As String
  10.      Dim sifGrupaPosla As String, nsifNazivPosla As String, SQL1 As String, rs1 As Recordset
  11.      Putanja = Me.Path
  12.      SQL = "SELECT ImePrezime FROM AUposleni " _
  13.            & "GROUP BY AUposleni.ImePrezime " _
  14.            & "ORDER BY AUposleni.imePrezime"
  15.      Set db = OpenDatabase(Putanja & "\Du_novi.mdb")
  16.      Set Rs = db.OpenRecordset(SQL)
  17.      M = Rs.RecordCount
  18.     Rs.MoveFirst
  19.     Do While Not Rs.EOF()
  20.        'Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
  21.       Set Vork = Sheets.Add
  22.        Vork.Name = Rs!imeprezime
  23.        Vork.Cells(1, 1) = "Vrsta posla"
  24.        Vork.Cells(1, 2) = "Grpa Posla"
  25.        Vork.Cells(1, 3) = "Naziv Posla"
  26.        Vork.Cells(1, 4) = "Broj Unosa"
  27.        SQL1 = "Select * from ex where imeprezime = '" & Rs!imeprezime & "'"
  28.        Set rs1 = db.OpenRecordset(SQL1)
  29.        N = rs1.RecordCount
  30.        Do While Not rs1.EOF()
  31.          For I = 1 To N
  32.             Podatak = rs1.Fields(1)
  33.             Vork.Cells(I + 1, 1) = Podatak
  34.             Podatak = rs1.Fields(2)
  35.             Vork.Cells(I + 1, 2) = Podatak
  36.             Podatak = rs1.Fields(3)
  37.             Vork.Cells(I + 1, 3) = Podatak
  38.             Podatak = rs1.Fields(4)
  39.             Vork.Cells(I + 1, 4) = Podatak
  40.             rs1.MoveNext
  41.          Next I
  42.       Loop
  43.        Rs.MoveNext
  44.     Loop
  45.     Rs.Close
  46.     rs1.Close
  47.     Set Rs = db.OpenRecordset(SQL)
  48.     Rs.MoveFirst
  49.     End Sub

Pozdav,

Nedim
Ovaj post je ureden 2 puta. Posljednja izmjena 26.11.2010 18:37 od strane zxz. ↑  ↓

#40 26.11.2010 16:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Cekaj imas ovdje dvije procedure.
Koja je vazeca?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (6):1,2,3,4,5,6


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 13 pm.