Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 2.331 pregleda

Najnovija ↓

Upis proizvoda u polje subforme ? 09.11.2010. u 11:12 · pre 194 meseca
izmenjeno 2 puta, poslednji put darkog 10.11.2010. u 14:05
  1. darkog10.11.2010. u 14:05zapis iz teksta poruke
  2. darkog09.11.2010. u 13:48zapis iz teksta poruke
#1
Zdravo,
nisam odavno radio access ali nadam se da cu uspeti objasniti problem

prilikom izrade otpremnice trebam popunjavati subformu "detalji otpremnice" tako da se u polje proizvod moze upisati predefinisan zapis iz tabele proizvodi ali i novi zapis koji ne postoji u istoj tabeli (limit to list = NO). Nesto kao usluge koje ne bih predhodno unosio ni u jednu tabelu vec bi se smestale recimo u istu tabelu sa proizvodiuma prilikom popunjavanje subforme "detalji otpremnice".
Kako imam jednu slicnu aplikaciju sad bih da iskoristim sto vise od nje.

Kod stare aplikacije biram prizvod iz combo box-a koji ima 4 kolone (ID proizvoda, naziv, sifra, lager stanje). Bound kolona je ID proizvoda, a sirina prve kolone je 0 kako bi se u polje upisivao naziv prizvoda i time omogucilo lako biranje prizvoda prepoznavanjem pocetnih slova.

Problem je u tome sto ako je sirina kolone ID proizvoda = 0 access nece da prihvati parametar lilmit to list = NO jer je tada prva vidljina kolona "naziv proizvoda" i ona nije jednaka bound koloni koja je "ID proizvoda".

E sad ukoliko bih za bound kolonu definisao "naziv proizvoda" tada parametar "limit to list" moze biti =0 ali prilikom odabiranja postojecih proizvoda iz tabele polja kao sto su jedinica mere i cena se ne popunjavaju automatski kao sto su definisani u tabeli za izbrani proizvod.

Mozda mi je koncept potpuno pogresan i mozda bih trebao sve ponovo, mozda bih trebao zaobici combo box a umesto njega postavio text polje uz malo koda ?

Ukoliko nisam dobro objasnio okacicu primer.

Evo okacio sam primer kako izgleda.
Znaci hteo bih na podformi otpremadetalji u combo boxu za biranje proizvoda omoguciti da korisnik moze kucati nesto cega nema definisanog u tabeli proizvodi i da ga zapamti u istoj tabeli. I za isti artikal (uslugu) da unese cenu i jedinicu mere. Ako to resim na pod
Re: Upis proizvoda u polje subforme ? 10.11.2010. u 18:22 · pre 194 meseca #5
Mislim da sam resio dodavanjem ovog koda na event not on list

Code:


Private Sub cboProizvodID2_NotInList(NewData As String, Response As Integer)
On Error GoTo cboProizvodID2_NotInList_Err

    
    Dim intAnswer As Integer
    Dim strSQL As String
    intAnswer = MsgBox("Artikal " & Chr(34) & NewData & _
        Chr(34) & " se ne nalazi na listi." & vbCrLf & _
        "Da li zelite da ga dodate u listu? " & vbCrLf & "" _
        & "Ukoliko se artikal vodi kao usluga " & vbCrLf & "" _
        & "ne zaboravite da ga oznacite kao uslugu! " _
        , vbQuestion + vbYesNo, "AAA")
    If intAnswer = vbYes Then
        strSQL = "INSERT INTO tblProizvodi([naziv_proizv]) " & _
                 "VALUES ('" & NewData & "');"
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
        MsgBox "Novi artikal je dodat u listu." _
            , vbInformation, "AAA"
        Response = acDataErrAdded
    Else
        MsgBox "Molim odaberite artikal sa liste." _
            , vbInformation, "AAA"
        Response = acDataErrContinue
    End If
cboProizvodID2_NotInList_Exit:
    Exit Sub
cboProizvodID2_NotInList_Err:
    MsgBox Err.Description, vbCritical, "Error"
    Resume cboProizvodID2_NotInList_Exit
End Sub

Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme