Prikazi cijelu temu 21.12.2010 09:43
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Autonumber se ponavlja
Upomoć, ja nikako na zelenu granu i ponovnno problemi.
Sada se mućim sa ovim
PreuzmiIzvorni kôd (vbnet):
  1.  Dim stDocName As String
  2.     Dim stLinkCriteria As String
  3.     stDocName = "PitaIzdatnicu"
  4.     stLinkCriteria = "IDPoz=" & CStr(Me.txtIDpoz)  [color=#FF0000]'IDpoz je bio broj, a sada je string[/color]
  5.  
  6.     If Not IsNull(DLookup("IDPoz", "qryNalog", "IDPoz=" & CStr(Me.txtIDpoz))) Then
  7.         DoCmd.OpenForm FormName:=stDocName, OpenArgs:=Me.txtIDpoz
  8.     Else
  9.     DoCmd.OpenForm FormName:=stDocName _
  10.                     , datamode:=acFormAdd _
  11.                     , WhereCondition:=stLinkCriteria _
  12.                     , OpenArgs:=Me.txtIDpoz
  13. End If
Pozdrav