Új hozzászólás Aktív témák
-
Petya25
addikt
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 StringSet RstCon = CurrentProject.Connection
Rst.ActiveConnection = RstConvizsgaltnap = 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 ifAntonio Coimbra de la Coronilla y Azevedo, bizony!
Új hozzászólás Aktív témák
- Politika
- Autós topik látogatók beszélgetős, offolós topikja
- macOS PC-re
- Kertészet, mezőgazdaság topik
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- OLED TV topic
- Futás, futópályák
- Mini-ITX
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Xiaomi Mi 10T Pro - a házon belüli ellenfél
- További aktív témák...
- Lenovo 4. generációs i3-4130 sff pc, 16GB vagy 32GB rammal
- Új Bontatlan Univerzális monitorállvány, 17-27'' , VESA 100x100/75x75 UNOXAR UX-MDS-10
- HP pro 6300 SFF i5-3470 16GB vagy 32GB Rammal
- Hófehér Toshiba 15,6"HD,4magosIntel!4x2,2Ghz,IntelHDVga,SSD,szép állapot
- ThinkPad 13,3" FullHd IPS,10.gen.core i5(8x4,2Ghz),Vil.bill.8GB DDR4,512GB SSD,Jó akku, jó állapot
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest