Access: Procedurë që njofton për plotësimin e një kushti

[hot_prinz]

ku na mbeti edspace me keto spjegime te mrekullueshme..

...

@PROGRAM

nuk e di taman se si po e mendon me ate propozimin ne rresht por nese e kerkon qe sipas kerkimit te barkodit te shfaqen artikulli dhe cmimi ne fusha te nje forme atehre:
- krijojme nje tabele me te disa fusha (Barkodi, Artikulli, Cmimi) dhe mbushim disa vlera:
- formojme nje formular me fushat (Barkodi, Artikulli, Cmimi):

Fusha e Barkodit ne formular eshte nje "ComboBox" dhe do e mbushim me vlerat e Barkodit ne tabele gjate procedures fillestare te formularit, perparsia eshte se mund te zgjidhen Barkodet nga ComboBoxi ose gjate shtypjes se Barkodit ne ComboBox qe nga shkronja/numri i pare do te sortohen barkodet qe fillojne me ate shkronje e keshtu me radhe per shkronjat tjera, nje ndihme e madhe per te mos patur nevoje te shtypet i gjithe barkodi.

Kodi ne vijim:

Option Compare Database

Private Sub Form_Load()

    Dim databaza As DAO.Database
    Dim rekordseti As DAO.Recordset
    Dim komandaSQL As String
    
    Set databaza = CurrentDb
    komandaSQL = "SELECT * FROM Tabelle1"
    Set rekordseti = databaza.OpenRecordset(komandaSQL)
    
    Do While Not rekordseti.EOF
        Me.cmbBarkodi.AddItem (rekordseti.Fields("Barkodi"))
        rekordseti.MoveNext
    Loop
    
    rekordseti.Close
    Set rekordseti = Nothing
    Set databaza = Nothing
    
End Sub

Private Sub cmbBarkodi_AfterUpdate()

    Me.lblBarkodi.Caption = ""

    On Error GoTo gabimi

    Dim databaza As DAO.Database
    Dim rekordseti As DAO.Recordset
    Dim komandaSQL As String

    Set databaza = CurrentDb
    komandaSQL = "SELECT * FROM Tabelle1 WHERE Barkodi = '" & Me.cmbBarkodi & "'"
    Set rekordseti = databaza.OpenRecordset(komandaSQL)
    
    Me.Artikulli = rekordseti.Fields("Artikulli")
    Me.Cmimi = rekordseti.Fields("Cmimi")
    
    rekordseti.Close
    Set rekordseti = Nothing
    Set databaza = Nothing
    
gabimi:
    If Err.Number = -2147352567 Then
        Me.lblBarkodi.Caption = "Barkodi nuk ekziston!"
        Me.Artikulli = ""
        Me.Cmimi = ""
    End If

End Sub 

Nese barkodi nuk gjindet ne databaze atehere shfaqet nje gabim ne nje Label.

[sarandioti_]

Ok por si behet i egzekutueshem ky kod qe une mos te shikoj databaze por programin?

[hot_prinz]

@sarandioti e ke fjalen per pergjigjen time kundrejt PROGRAMIT?

[valdetshala]

sarandioti as une nuk po te kuptoj ne kete pyetje tenden sidomos me nje sqarim aq te paster sikur ky i hot-prinz!!!!!!!

[sarandioti_]

Nefakt pyetja ime nuk ka te beje me sqarimin konkret te hot-prinz por me dicka tjeter.
Pak me larte tek Kodi PHP: tregohet nje liste e codeve ndersa me poshte tregohen disa foto, pyetja ime eshte: Si mund te bej qe nje databaze ta shikoj si ne foto dhe jo si cod PHP?
Nuk di sa jam shpjeguar por ajo qe dua te di eshte nese deshiroj nje tabel si ajo e pensionistave dhe kam nje cod per kete, a meduhet dicka tjeter per te bere qe ky kod te duket ne formen e nje tabele?

[valdetshala]

qe ky kod te duket ne tabele asgje tjeter nuk te duhet sepse ne kod jane te perfshira te gjitha, mundesite

[sarandioti_]

Ose une nuk ju kuptoj juve ase ju nuk po me kuptoni mua Ka shume mundesi te jet e para. (Eshte e vertet qe une nuk di shum gjera per Kompjuterin dhe aq me pak per Programimin.)

Por... po e zgjas edhe pak.
P.SH. kemi kodin

Option Compare Database 

Private Sub Form_Load() 

    Dim databaza As DAO.Database 
    Dim rekordseti As DAO.Recordset 
    Dim komandaSQL As String 
     
    Set databaza = CurrentDb 
    komandaSQL = "SELECT * FROM Tabelle1" 
    Set rekordseti = databaza.OpenRecordset(komandaSQL) 
     
    Do While Not rekordseti.EOF 
        Me.cmbBarkodi.AddItem (rekordseti.Fields("Barkodi")) 
        rekordseti.MoveNext 
    Loop 
     
    rekordseti.Close 
    Set rekordseti = Nothing 
    Set databaza = Nothing 
     
End Sub 

Private Sub cmbBarkodi_AfterUpdate() 

    Me.lblBarkodi.Caption = "" 

    On Error GoTo gabimi 

    Dim databaza As DAO.Database 
    Dim rekordseti As DAO.Recordset 
    Dim komandaSQL As String 

    Set databaza = CurrentDb 
    komandaSQL = "SELECT * FROM Tabelle1 WHERE Barkodi = '" & Me.cmbBarkodi & "'" 
    Set rekordseti = databaza.OpenRecordset(komandaSQL) 
     
    Me.Artikulli = rekordseti.Fields("Artikulli") 
    Me.Cmimi = rekordseti.Fields("Cmimi") 
     
    rekordseti.Close 
    Set rekordseti = Nothing 
    Set databaza = Nothing 
     
gabimi: 
    If Err.Number = -2147352567 Then 
        Me.lblBarkodi.Caption = "Barkodi nuk ekziston!" 
        Me.Artikulli = "" 
        Me.Cmimi = "" 
    End If 

End Sub

si mund ta shikoj kete jo si kod por si tabele?
KU duhet ta vendos ne pc, cfar me duhet tjeter, a me kuptuat?

Po pyes kaq shume per kete sepse une vat kam nje dyqan per rriparime elektro-shtepiake (nefakt e ka vellai im).
Por ne dyqan eshte nje rremuj e vertete dhe meqe ka bler nje kompjuter ne dyqan une doja ti vendosja nje program ku te beje hyrjen e mallit te per tu riparuar dhe vendosjen e nje numri qe kur klienti te vije, te mari shpejt dhe sakte mallin e tij.
Dy here klientit i eshte dhene nje hekur rrobash gabim ose qendrojne te pyesin dy ore per te kuptuar cfar klienti ka sjell 1muaj para.

[hot_prinz]

sarandioti_

per ta perdore kete kod te duhet programi i databazave Microsoft Access, nuk e di sa e njeh kete program, por njohurite elementare per te jane te doemosdoshme, si krijimi i nje tabele, krijimi i nje formulari, futja e kodit ne formular dhe ekzekutimi i formularit.

Nese e njeh gjuhen angleze ja nje link per te mesuar Access ne internet:
Learn Access Now