Prikazi cijelu temu 20.12.2010 12:51
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Autonumber se ponavlja
Prepravljam upravo ovu moju bazu i sada imam problem u jednoj funkciji, najvjerovatnije to Å¡to je prije ID bio Broj a sada je string

kada pokrenem funkciju dobijem poruku:
"Data type mismatch in criteria expression"
PreuzmiIzvorni kôd (vbnet):
  1. Function Slozi()
  2.     Dim Baza As Database                              
  3.     Dim Sl_Table1  As Recordset
  4.     Dim Sl_Table2  As Recordset
  5.     Dim Usl_Poz   As String
  6.     Dim Sl_Poz   As Recordset
  7.     Dim Stroj As String
  8.     Dim Sklop   As String
  9.     Dim Podsklop  As String
  10.     Dim Cvor As String
  11.     Dim tekuciStroj As String
  12.     Dim tekuciSklop As String
  13.     Dim tekuciPodsklop   As String
  14.     Dim tekuciCvor As String
  15.     Dim stDocName As String
  16.  
  17. [color=#FF0033]  'problem je neÅ¡to u ovome ?[/color]
  18.  Usl_Poz = "SELECT * FROM [QryShema] WHERE IDStr  = " & Stroj _
  19.                                                & "And IDSkl  = " & Sklop _
  20.                                                & "And IDPskl = " & Podsklop _
  21.                                                & "And ID v   = " & Cvor
  22.            
  23.            
  24.             Set Sl_Poz = Baza.OpenRecordset(Usl_Poz, dbOpenDynaset)  [color=#FF0033] ' Procedura stane na ovome
  25.             [/color]
  26.             If Sl_Poz.RecordCount > 0 Then
  27.               Sl_Poz.MoveFirst
  28.               While Not Sl_Poz.EOF   ' dodaje slogove za Pozicije'''
  29.                   With Sl_Table2
  30.                   If Not IsNull(Sl_Table1![IDPoz]) Then
  31.                       .AddNew
  32.                       ![IDStroja] = Sl_Table1![IDKombinacija]
  33.                       ![Nivo] = 4
  34.                       ![KomStr] = Sl_Table1![KomStr]
  35.                       ![Index] = Sl_Table1![IndexPoz]
  36.                       ![IDdijela] = Sl_Poz![IDPoz]
  37.                       ![BrKomada] = Sl_Poz![KomPoz]
  38.                       ![BrKomadaSum] = Sl_Poz![KomPoz] * Sl_Table1![Kom v] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]
  39.                       .Update
  40.                       End If
  41.                   End With
  42.                   Sl_Poz.MoveNext
  43.               Wend
Pozdrav