Új hozzászólás Aktív témák

• #757 Oly őstag Oly #756

  Új Válasz 2010-10-26 14:03:15 #757

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Oly

  őstag

  válasz Oly #756 üzenetére

  Sziasztok

  Private Sub Command21_Click()
  If Lista12.Value > 0 Then
  On Error GoTo Err_Command21_Click
  
  Dim stDocName As String
  Dim stLinkCriteria As String
  
  stDocName = "data Lekérdezés"
  
  stLinkCriteria = "[BillDay]=" & "#" & Me![Lista12] & "#"
  DoCmd.OpenForm stDocName, , , stLinkCriteria
  
  Exit_Command21_Click:
  Exit Sub
  
  Err_Command21_Click:
  MsgBox Err.Description
  Resume Exit_Command21_Click
  Else
  MsgBox "Válassz dátumot!"
  End If
  End Sub

  A fenti kódra Syntax errort kapok.
  Az lehet azért, mert a mező dátum formátumú, a Lista elem pedig 2010.10.10.-es formátumbad adja vissza az értéket?
  Szám formátumú mezőkkel simán működik a dolog.

Új hozzászólás Aktív témák