Prikazi cijelu temu 27.12.2010 13:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Evo ispravi ovo ili kopiraj umjesto tvoje procedure:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command_Kalk_Click()
  2. On Error GoTo Err_Command_Kalk_Click
  3.  
  4.  If IsNull([txtKomada]) Or [txtKomada] = 0 Then
  5.         MsgBox "Niste upisali broj komada", vbCritical, "Nedostaju podaci"
  6.         Me![txtKomada].SetFocus
  7.         'GoTo Kraj
  8.    End If
  9.     CurrentDb.Execute "DELETE*FROM [ZbirnikKonacni]"
  10.  
  11. DoCmd.Hourglass True
  12.  
  13.              '-----------------------------------------------------------
  14.      Call Shema  'Poziva se Funkcija SHEMA u Deklaracijama
  15.             '------------------------------------------------------------
  16.            
  17.                
  18.         DoCmd.OpenQuery "ZbirnikQryApp", acNormal, acEdit     'Kopiranje iz ZbirnikQry u tablicu ZbirnikKonacni
  19.        DoCmd.OpenQuery "ZbirnikPNDQryApp", acNormal, acEdit  'Kopiranje iz ZbirnikPNDQry u tablicu ZbirnikKonacni
  20.        DoCmd.OpenQuery "ZbirnikStrojPNDQryApp", acNormal, acEdit
  21.                
  22.    
  23. DoCmd.Hourglass False
  24. Exit_Command_Kalk_Click:
  25.     Exit Sub
  26.  
  27. Err_Command_Kalk_Click:
  28.     MsgBox Err.Description
  29.     Resume Exit_Command_Kalk_Click
  30. DoCmd.Hourglass False
  31. End Sub

U funkciji Function Shema()
Ispravi samo ovo:
bilo je SELECT Case IDKategorije
A sada treba.
Select Case Val(Forms![IzborProizvoda]![SelectCategory]) 'ZXZ-ovdje ispravljeno

Ti si imao ovdje globalnu variablu ali netreba ti .

I pored ovoga meni prijavljuje gresku u stvar kaze da nedostaje neki Query.

Vjerovatno ovdje nije sve ili mozda sto si mijenjao polja id u string.

Probaj ovo napraviti pa mozemo dalje.
Vjerovatno kada bi ja znao sta se sve radi sa ove forme lakse bi dosli do rjesenja.
Ne ono sta ti sad radis nego sta se radi u praksi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.