Si te shtoj me butona artikullin ne subforme

[nince_tutes]

pershendetje!
kam krijuar nje db te vogel ne Access2007.
Dua qe te shtoj dhe te heq artikujt ne subforme.
Dua gjithashtu, qe kur te klikoj tek kategoria, dua qe lista e artikujve te popullohet vetem me artikujt qe i perkasin kategorise qe kam selketuar.
shpresoj qe te jem i qarte.
bashkangjitur nje foto dhe db ne access.
flm

[nince_tutes]

S'kane cunat ndonje sugjerim????
Sa keq
Jam ne pritje gjithsesi.

[hot_prinz]

Krijon nje Metode ne event te klikimit te listes se kategorise dhe per cdo element qe klikon ne listen e kategorise, i zgjedh vetem artikujt e asaj kategorie dhe i popullon ne listen artikujt.

[nince_tutes]

Krijon nje Metode ne event te klikimit te listes se kategorise dhe per cdo element qe klikon ne listen e kategorise, i zgjedh vetem artikujt e asaj kategorie dhe i popullon ne listen artikujt.

Hot_Prinz!
Si behet kjo? nuk e con dot shembulli im?
ne pritje jam, kam besim te plote.
klm

[hot_prinz]

Tani te funksionon,

pergjigja e kesaj pyetje:

Dua gjithashtu, qe kur te klikoj tek kategoria, dua qe lista e artikujve te popullohet vetem me artikujt qe i perkasin kategorise qe kam selketuar.

por mi shkaterroi nervat Accessi me gjith BullSh.. VBA-ne.

Listboxi List9 (Listboxi i artikujve) kishte dy kolona, kurse gjersia e kolones se pare e kishte gjeresine 0 (zero), pasi qe edhe Listboxi i kategorive ne kolonen e pare kishte gjeresine 0(zero), duhet te jete Accessi qe automatikisht ne krijim te Listboxit e vendos gjersine e kolones se pare ne 0(zero).

Une i aktualizoja Artikujt ne Listbox por nuk shifja emrin e Artikullit ne texetbox, e shifja vetem se futej nje rresht pa emer, e implementova nje metode ne klick te ketij rreshti te padukshem dhe e paraqiste emrin e duhur, kerko neper internet poshte e larte nese dikush ka nje problem te tille, implemento refresh e paint te formes, gjitha pa sukses derisa e gjeta kete BS te kolones me gjeresine 0 (zero).

Option Compare Database

Private Sub List7_Click()

Dim x As Integer
For x = List9.ListCount - 1 To 0 Step -1
    List9.RemoveItem (x)
Next

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

Dim val As Integer
val = CInt(Me.List7.Value)
strSQL = "SELECT T_Artikulli.Artikulli, T_Artikulli.Kategoria FROM T_Artikulli WHERE T_Artikulli.Kategoria=" & val & ""

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

Me.List9.RowSource = rs(0)
Me.List9.Requery

rs.Close:
Set rs = Nothing
Set db = Nothing

End Sub 

[hot_prinz]

Tani te funksionon dhe futja dhe fshirja e Artikujve nga subforma.
Por Controllin e artikullt duhej ta nderroja nga Combobox ne textbox.

Option Compare Database

Private Sub Command11_Click()
    
    Dim db As Database

    Set db = CurrentDb
    
    db.Execute " INSERT INTO T_FaturaArtikulli " _
        & "(FaturaID, ArtikulliID) VALUES " _
        & "('" & Me.FaturaID.Value & "', '" & Me.List9.Value & "');"
        
    db.Close
    
    Me.T_FaturaArtikulli_Subform.Requery
    
End Sub

Private Sub Command12_Click()
    
    With Me.[T_FaturaArtikulli Subform].Form
        If .NewRecord Then
            Beep
        Else
            .RecordsetClone.Bookmark = .Bookmark
            .RecordsetClone.Delete
        End If
    End With

End Sub

Private Sub List7_Click()

    Dim x As Integer
    
    For x = List9.ListCount - 1 To 0 Step -1
        List9.RemoveItem (x)
    Next
    
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    Dim val As Integer
    val = CInt(Me.List7.Value)
    
    strSQL = "SELECT T_Artikulli.Artikulli, " & _
        "T_Artikulli.Kategoria FROM T_Artikulli " & _
        "WHERE T_Artikulli.Kategoria=" & val & ""
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    Me.List9.RowSource = rs(0)
    Me.List9.Requery
    
    rs.Close:
    Set rs = Nothing
    Set db = Nothing

End Sub 

[nince_tutes]

THjesht je i madh. FLM.

Kam nje tjeter sugjerim dhe kerkese:

Nqs artikulli existon ne subforme, dhe klikojme tek butoni "SHTO NE FATURE", krijohet nje rresht i ri, me perseri te njejtin artikull (pra eshte anormale qe i njeti artikull te jete dy here ne subforme).

Do desha qe kur artikulli shtohet per here te pare ne subform, te shtohet automatikisht edhe sasia 1.
nqs klikojme perseri tek "SHTO NE FATURE", atehere sasia e tij te shkoj 2, nese klikojme perseri, sasia te behet 3 e keshtu me radhe.

E njejta gje te behet edhe me butonin hiq, nese sasia eshte 4, nqs klikojme tek "HIQ NGA FATURA", te zbrese vleren ne 3, 2, 1 pastaj ta zhduke fare nga fatura.

Shpresoj te jemi qarte.

Edhe nje here faleminderit per ndihmen.

[hot_prinz]

Ska perse, je i mireseardhur.

Ja tani dhe sugjerimet dhe kerkesat tjera.

Me butonin e futjes, nese nje artikull nuk ekziston e fut ne subforme me sasine 1 dhe nese ekziston e ngrite sasine per 1. Kurse me butonin e largimit, nese artikulli nuk ekziston jep nje beep, kurse nese ekziston e zvogelon sasine per 1, perderisa sasia mbetet 1, e nese atehere shtyp butonin largo atehere ai arikull largohet nga subforma.

Artikulli duhet te selektohet ne listen e artikujve per te procesuar, sepse se pari detektohet rekordi i artikullit ne subforme qe eshte detektuar ne baze te listes se artikujve.

Implementova dy metoda/funksione te reja, njera qe detekton artikullin e selektuar nga lista e artikujve dhe tjetra qe lexon sasine e artikullit nga databaza para se te zvogelohet dhe nese sasia eshte me e vogel se 2 atehere e fshin rekordin e artikullit.

Option Compare Database

Private Sub Command11_Click()
    
    Dim recordNr As Integer
    recordNr = RecordNumber(Me.List9.value)
    
    Dim db As Database
    Set db = CurrentDb
    
    If recordNr = 0 Then
        db.Execute " INSERT INTO T_FaturaArtikulli " _
            & "(FaturaID, ArtikulliID, Sasia) VALUES " _
            & "('" & Me.FaturaID.value & "', '" & Me.List9.value & "', 1);"
    Else
        db.Execute " UPDATE T_FaturaArtikulli " _
            & "SET Sasia=Sasia+1 " _
            & "WHERE FaturaArtikullID =" & recordNr & ";"
    End If
    
    db.Close
    Me.T_FaturaArtikulli_Subform.Requery
    
End Sub

Private Function RecordNumber(value As String) As Integer

    Dim crit As String
    Dim rsArtikulli As Recordset
    crit = "ArtikulliID = '" & value & "'"
    Set rsArtikulli = Me.T_FaturaArtikulli_Subform.Form.RecordsetClone
    rsArtikulli.FindFirst crit

    If rsArtikulli.NoMatch Then
        RecordNumber = 0
    Else
        Me.T_FaturaArtikulli_Subform.Form.Bookmark = rsArtikulli.Bookmark
        RecordNumber = (rsArtikulli.Fields(0))
    End If
    
End Function

Private Function sasiaInt(value As Integer) As Integer

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    strSQL = "SELECT Sasia " & _
        "FROM T_FaturaArtikulli " & _
        "WHERE FaturaArtikullID=" & value & ""
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    sasiaInt = rs(0)
    
    rs.Close:
    Set rs = Nothing
    Set db = Nothing

End Function

Private Sub Command12_Click()
    
    Dim recordNr As Integer
    recordNr = RecordNumber(Me.List9.value)
    
    If recordNr = 0 Then
        Beep
    Else
    
        Dim Sasia As Integer
        Sasia = sasiaInt(recordNr)
        
        Dim db As Database
        Set db = CurrentDb
        
        If Sasia > 1 Then
            db.Execute " UPDATE T_FaturaArtikulli " _
                & "SET Sasia=Sasia-1 " _
                & "WHERE FaturaArtikullID =" & recordNr & ";"
        Else
            db.Execute " DELETE FaturaArtikullID " _
                & "FROM T_FaturaArtikulli " _
                & "WHERE FaturaArtikullID =" & recordNr & ";"
        End If
        
        db.Close
        Me.T_FaturaArtikulli_Subform.Requery
        
    End If

End Sub

Private Sub List7_Click()

    Dim x As Integer
    For x = List9.ListCount - 1 To 0 Step -1
        List9.RemoveItem (x)
    Next
    
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    strSQL = "SELECT T_Artikulli.Artikulli, " & _
        "T_Artikulli.Kategoria FROM T_Artikulli " & _
        "WHERE T_Artikulli.Kategoria=" & CInt(Me.List7.value) & ""
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    Me.List9.RowSource = rs(0)
    Me.List9.Requery
    
    rs.Close:
    Set rs = Nothing
    Set db = Nothing

End Sub 

[nince_tutes]

Si t'i ruaj gjendjen ne magazine produktit, kur kam flete hyrje dhe fletedalje? per cdo fletehyrje, te rritet sasia ne magazine, per cdo flete-dalje te ulet sasia ne magazine?

Mos duhet te krijoje nje tabele tjeter ku te mbaj sasia per cdo produkt?
bashkangjitur db (ndyshoji praprashtesen nga .pdf ne .accdb) dhe nje foto.
Faleminderit.

[hot_prinz]

Mundesh, por kjo tabela FleteDalje cfare do te thote?

Merren produktet nga magazina me fletedalje, e pastaj shiten me fatura?
Nese eshte keshtu atehere me duket se duhet te mbahen dy magazina!

Magazina me shumice FleteDalja dhe inventari ne lokal ku shiten arikujt me fatura me pakice?