Prikazi cijelu temu 09.12.2010 19:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Poruka o završetku printanja, dali može?
PreuzmiIzvorni kôd (Visual Basic):
  1. Function DioP(DioN As String) As String
  2. Dim Br As Integer
  3. Dim DioK As String
  4.  
  5. DioN = DioN & ","
  6. For Br = 1 To Len(DioN)
  7.      DioK = Left(DioN, Br)
  8.      If Right(DioK, 1) = "=" Then
  9.          DioP = Left(DioN, Br - 1) & "," & Right(DioN, Len(DioN) - Br)
  10.          GoTo Kraj:
  11.      End If
  12. Next Br
  13. Kraj:
  14. End Function

PreuzmiIzvorni kôd (Visual Basic):
  1. Function SetPrt(NazivI As String) As Boolean
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5. Dim NazivP As String
  6.  
  7. Set Db = CurrentDb()
  8. SQL = "SELECT * FROM Izvjestaji WHERE (((Izvjestaji.IzvjN)='" & NazivI & "'));"
  9. Set Rs = Db.OpenRecordset(SQL)
  10. NazivP = Rs.Fields(0)
  11. Rs.Close
  12. SQL = "SELECT * FROM Stampaci WHERE (((Stampaci.BrST)=" & NazivP & "));"
  13. Set Rs = Db.OpenRecordset(SQL)
  14. NazivP = Rs.Fields(1) & "," & Rs.Fields(2) & "," & Rs.Fields(3)
  15. SetPrt = (aht_apiWriteProfileString("Windows", _
  16.     "Device", NazivP) <> 0)
  17.  
  18. End Function

Napravi jednu tabelu sa 4 polja i daj joj ime Stampaci.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.