Close
Duke shfaqur rezultatin -9 deri 0 prej 8
  1. #1
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243

    Aceess - Ndihme ne krijim e nje Query

    Pershendetje te nderuar,

    Kam nje Table ne Access ku me Disa te dhena, ajo qfar deshiroj une eshte krijimi i nje Pyetsori(Query) qe t'me tregoj se sa Fatura(IssueTickets) dhe sa artikuj(Ln) jan bere dalje, te grupuara sipas Dates.

    Pra po bashkangjes Tabelen me te dhena, dhe po e bashkangjes Querin qe une po kerkoj, ndoshta munde ta kuptoni me leht Problemin..

    Faleminderit Paraprakisht!
    Fotografitė e Bashkėngjitura Fotografitė e Bashkėngjitura   

  2. #2
    i/e regjistruar Maska e nince_tutes
    Anėtarėsuar
    17-12-2007
    Postime
    216
    Citim Postuar mė parė nga little-boy Lexo Postimin
    Pershendetje te nderuar,

    Kam nje Table ne Access ku me Disa te dhena, ajo qfar deshiroj une eshte krijimi i nje Pyetsori(Query) qe t'me tregoj se sa Fatura(IssueTickets) dhe sa artikuj(Ln) jan bere dalje, te grupuara sipas Dates.

    Pra po bashkangjes Tabelen me te dhena, dhe po e bashkangjes Querin qe une po kerkoj, ndoshta munde ta kuptoni me leht Problemin..

    Faleminderit Paraprakisht!
    Po tek foto e dyte, duket sikur e ke zgjidhur.
    Nese jo, kur t besh query, tek Data, zgjidh "Group By", kurse per Nr e faturave dhe per artikujt zgjidh "Count"
    Provo njehere keshtu dhe na thuaj.

  3. #3
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    Citim Postuar mė parė nga nince_tutes Lexo Postimin
    Po tek foto e dyte, duket sikur e ke zgjidhur.
    Nese jo, kur t besh query, tek Data, zgjidh "Group By", kurse per Nr e faturave dhe per artikujt zgjidh "Count"
    Provo njehere keshtu dhe na thuaj.
    Jo foton e dyte e kam krijuar Manualisht, vetem per Ilustrim...

    Kam Provuar kete, Mirpo nuk po me funksionon ,... ben Numrimin e Faturave per cdo rekord...

    Faleminderit!

  4. #4
    i/e regjistruar Maska e nince_tutes
    Anėtarėsuar
    17-12-2007
    Postime
    216
    Si ta kuptojme kete: ... ben Numrimin e Faturave per cdo rekord???
    cilit rekord i referohesh?? ty t intereson q t'i shfaqe sipas dates, apo jo.
    Sa per artikujt, mos do sasine e tyre?? nese po, eshte dicka tjeter nga artikujt, psh ti mund t besh dalje nje artikull me sasi 10, nje tjeter me sasi 1. Keto jane ndryshe.

  5. #5
    i/e regjistruar Maska e hot_prinz
    Anėtarėsuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    little_boy,


    nese po te kuptoj mire, po don me e kriju nje statistike te IssueTickets duke i llogaritur numrin e IssueTickets te nje date, propozimi im do te ishte:

    Perdor nje array per daten, duke e lexuar cdo rresht deri ne fund te tabeles tbl_transactions, nese nuk gjindet ne array fut daten ne array me numrin e lines dhe issuetickets, kurse nese gjidnet data ne array vetem e inkrementon lines dhe issuetickets.

    Ne fund do te krijohet nje array me te dhena ashtu siq e ke krijuar tabelen e dyte manualisht. Atehere me ate array mund te krijosh nje tabele te re ose query.

  6. #6
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    Hot_Prinz, kjo do te ishte ideja si po thu ti, mirpo une nuk pata mundesi ta kodoja kete.

    Me fjale te tjera une po mundohet me beje nje nje SQL keshtu dishka, mirpo nuk po me funksionon....

    SELECT Count (Distinct tbl_transactions.IssueTicket), count (tbl_transactions.ln)
    FROM tbl_transactions
    GROUP By tbl_transactions.Date;
    Faleminderit per ndihmet deri tani

    Nince & Hot_Prinz

  7. #7
    i/e regjistruar Maska e hot_prinz
    Anėtarėsuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    little_boy,


    ja zgjidhja ime, krijo nje Buton ne nje forme, vendose emrin e tabeles tblTransactions ne tblTabela = "tblTransactions ". Kur shtyp ate buton do te krijohet dhe do te shfaqet nje tabele me emrin [Statistika] me ato vlera qe i ke bere ti manualisht. Tabela [Statistika] eshte dinamike, fshihet dhe krijohet sa here qe shtyp butonin:

    Kodi:
    Option Compare Database
    
    Private Sub cmdStat_Click()
    
        'deklarojme variablen e Databazes
        Dim databaza As DAO.Database
        'deklarojme variablen e rekordsetit
        Dim rekordseti As DAO.Recordset
        'deklarojme nje variabel string qe mban komande SQL
        Dim komandaSQL As String
    
        'inicializo variablen e databazes
        Set databaza = CurrentDb
        
        'variabla me emrin e tabeles ku gjinden te dhenat p.sh. tblTransactions
        tblTabela = "Tabela"
        'variabla me emrin e tabeles se statistikes qe do te krijohet
        tblEmri = "Statistika"
        'emri i kolones ne tabelen tblTransactions qe mban IssueTickets
        strIssueTicket = "IssueTicket"
        'emri i kolones ne tabelen tblTransactions qe mban Daten
        strData = "Data"
        'emri i kolones ne tabelen tblTransactions qe mban Ln
        strLn = "Ln"
        
        'procedura per fshirjen e tabeles se statistikes, nese ajo ekziston
        fshij_tabelen databaza, tblEmri
        
        'procedura per krijimin e tabeles se statistikes
        krijo_tabelen databaza, tblEmri, strIssueTicket, strData, strLn
        
        'inicializojme komanden SQL ne nje string variabel
        komandaSQL = "SELECT * FROM " & tblTabela & ""
        
        'permes komandes SQL lexojme te gjitha rekordet e tabeles
        Set rekordseti = databaza.OpenRecordset(komandaSQL)
          
        'duke i iteruar te gjithe rekordsetet ne tabele
        Do While Not rekordseti.EOF
            'per secilin rresht vazhdojme me kete procedure
            krijo_statistiken rekordseti.Fields("IssueTicket"), rekordseti.Fields("Data"), _
                rekordseti.Fields("Ln"), databaza, tblEmri, strIssueTicket, strData, strLn
            'kalo tek rreshti tjeter
            rekordseti.MoveNext
        Loop
        
        'perfundo rekordsetin
        rekordseti.Close
        'fshij variablat nga memorja
        Set rekordseti = Nothing
        Set databaza = Nothing
        
        'shfaqe tabelen e statistikes
        DoCmd.OpenTable tblEmri, acViewNormal, acEdit
    
    End Sub
    
    Private Sub krijo_statistiken(a As Integer, b As String, c As Integer, _
            databaza, tblEmri, strIssueTicket, strData, strLn)
        
        'deklarojme rekordsetin
        Dim rekordseti As DAO.Recordset
        'deklarojme variabel per SQL komande
        Dim komandaSQL As String
        'deklarojme variablen boolean qe do mban statusin e dates
        Dim gjindet As Boolean
        'inicializojme gjindet me false
        gjindet = False
        'deklarojme 3 variabla qe do mbajne vlerat e fushave
        Dim tA, tB, tC
        
        'inicializojme databazen
        Set databaza = CurrentDb
        
        'inicializojme komanden SQL ne nje string variabel
        komandaSQL = "SELECT * FROM " & tblEmri & ""
        'permes komandes SQL lexojme te gjitha rekordet e tabeles
        Set rekordseti = databaza.OpenRecordset(komandaSQL)
          
        'shiqojme se a ekziston nje rresht me daten aktuale ne tabelen e statistikes
        Do While Not rekordseti.EOF
            If rekordseti.Fields("Data") = b Then
                'nese ekziston ruajme statusin dhe vlerat e fushave
                gjindet = True
                tA = rekordseti.Fields("IssueTicket")
                tC = rekordseti.Fields("Ln")
            Else
                gjindet = False
            End If
            rekordseti.MoveNext
        Loop
        
        'ne baze te statusit
        If gjindet = False Then
            'nese vlera e dates aktuale nuk gjindet ne nje rresht te tabeles se statistikes krijo nje rresht te ri
            fute_ne_databaze a, b, c, databaza, tblEmri, strIssueTicket, strData, strLn
        Else
            'nese vlera e dates aktuale gjindet ne nje rresht te tabeles se statistikes aktualizo rrezhtin
            bej_update_databazes a, b, c, databaza, tblEmri, tA, tC, strIssueTicket, strData, strLn
        End If
    
    End Sub
    
    Private Sub fute_ne_databaze(a As Integer, b As String, c As Integer, _
            databaza, tblEmri, strIssueTicket, strData, strLn)
    
        Dim rekordseti As DAO.Recordset
        Set databaza = CurrentDb
        Set rekordseti = databaza.OpenRecordset(tblEmri)
        
        With rekordseti
            .AddNew
                !IssueTicket = 1
                !Data = b
                !Ln = c
            .Update
            .Bookmark = .LastModified
        End With
    
    End Sub
    
    Private Sub bej_update_databazes(a As Integer, b As String, c As Integer, databaza, d, _
        ByVal tA As Integer, ByVal tC As Integer, strIssueTicket, strData, strLn)
    
        Dim komandaSQL As String
    
        Set databaza = CurrentDb
    
        komandaSQL = "UPDATE " & d & _
            " SET " & strIssueTicket & "='" & tA + 1 & "'" & _
            "," & strLn & "='" & tC + c & "'" & _
            " WHERE " & strData & "='" & b & "'"
            
        databaza.Execute (komandaSQL)
    
    
    End Sub
    
    Public Sub krijo_tabelen(ByRef databaza, tblEmri, a, b, c)
        
        'inicializojme nje tabele te re te statistikes
        Set tabela = databaza.CreateTableDef(tblEmri)
        
        With tabela
            'inicializojme kolonen e pare
            Set Feld1 = .CreateField(a, dbInteger)
            'inicializojme kolonen e dyte
            Set Feld2 = .CreateField(b, dbText, 20)
            'inicializojme kolonen e trete
            Set Feld3 = .CreateField(c, dbInteger)
                'tabeles i bashkangjitet kolona e pare
                .Fields.Append Feld1
                'tabeles i bashkangjitet kolona e dyte
                .Fields.Append Feld2
                'tabeles i bashkangjitet kolona e trete
                .Fields.Append Feld3
        End With
        
        'databazes i bashkangjitet tabela e re
        databaza.TableDefs.Append tabela
    
    End Sub
    
    Public Sub fshij_tabelen(ByRef databaza, tblEmri)
        
        'deklarojme variblen iteruese
        Dim i
        'iterojme te gjitha tabelat ekzistuese ne databaze
        For i = 0 To databaza.TableDefs.Count - 1
            'nese tabela aktuale ka emrin e njejte me tabelen e statistikes
            If databaza.TableDefs(i).Name = tblEmri Then
                'fshije kete tabele
                databaza.TableDefs.Delete tblEmri
                'perfundo proceduren
                Exit Sub
            End If
        Next i
        
    End Sub
    Skedarėt e Bashkėngjitur Skedarėt e Bashkėngjitur

  8. #8
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    Te Lumte Hot_Prinz!

    Kjo eshte ajo qe po kerkoja,

    Tema Mbyllet

    Faleminderi!

Regullat e Postimit

  • Ju nuk mund tė hapni tema tė reja.
  • Ju nuk mund tė postoni nė tema.
  • Ju nuk mund tė bashkėngjitni skedarė.
  • Ju nuk mund tė ndryshoni postimet tuaja.
  •