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

• #1920 Petya25 őstag

  Új Válasz 2013-09-13 12:12:26 #1920

  Ú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

  

  Petya25

  őstag

  MS Access VB-ben kéne segítség.
  Már korábban nekifutottam, csak akkor félretettem...

  Azt kéne levizsgálnom, hogy egy beviteli mezőbe írt dátum benne van-e a tíltott dátumok (hónapok) között és jelezni. A táblában a hónapok 2013.08 formában felsorolva és ahol kell a tíltott jelzővel ellátva.
  Ezzel próbálkozok:

  Dim RstCon As ADODB.Connection
  Dim Rst As New ADODB.Recordset
  Dim lekerdezes As String
  Dim vizsgaltnap As String

  Set RstCon = CurrentProject.Connection
  Rst.ActiveConnection = RstCon

  vizsgaltnap = Left(Me.datum, 7)
  lekerdezes = "SELECT * FROM honapok WHERE ho = " + "'" + vizsgaltnap + "'" + " and lezarva = 1"

  Rst.Open Source:=lekerdezes , ActiveConnection:=RstCon

  Eddig minden ok, a lekérdezésben szépen bent van a select.
  Azt kéne vizsgálnom, hogy van-e benne találat/rekordszám.
  Na ez nem megy sajna mindig 0-át ír RecordCuntra. Mást kéne vizsgálnom?

  If Rst.RecordCount > 0 Then
  MsgBox "Erre a dátumra nem rögzíthet!", vbInformation
  End if

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