Prikazi cijelu temu 26.01.2012 23:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Baza za proizvodnju
Gresku ti javlja pri unosu novog zbog toga sto nemas polje GID da unes a relacijski je vezana kodna tabela sa tabelom artikli i samim tim obavezan je unos.
Jednostavno dodaj jedan combo i na njemu control source Gid.
evo ti kod za ispravku u list2:
Zamijeni ga sa postojecim
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Text14_Change()
  2. Dim SQL As String
  3. Dim GID
  4. Dim Str As String
  5. Dim UslovStr As String
  6.  
  7.  
  8. GID = Me.Combo21
  9. If GID = 1 Then
  10. SQL = "SELECT SifraArt, ImeArtikla,JM,PCena " _
  11.       & "FROM K_Artikli "
  12. ElseIf GID = 2 Then
  13. SQL = "SELECT SifraArt, ImeArtikla,JM,NCena " _
  14.       & "FROM K_Artikli "
  15. End If
  16. Me.Combo21.SetFocus
  17. Str = Format$(Me.Text14)
  18. Me.Text14.SetFocus
  19. Me.Text14.SelStart = Me.Text14.SelLength
  20. UslovStr = "WHERE GID=" & GID & " AND imeartikla Like'" & Str & "*'"
  21. SQL = SQL & UslovStr
  22. Me.List2.RowSource = SQL
  23. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.