Informatika és tudomány

Ms Access
  • rushman
    #48
    egyébként a tajszám ellenőrző utasítás valahogy így nézne ki:

    Private Sub tajszammező_AfterUpdate()

    Dim db As Database, rst As Recordset, adat as Long

    Set db = CurrentDb
    Set rst= db.OpenRecordset("ideírdaTAJTábládnevét", dbOpenTable)
    ' tábla típusú rekordhalmaz megnyitása

    adat = ide írd a TAJszám mező elérési útját, utána .Value pl: Me.Tajszam.Value
    ' adat változóban tároljuk a felh. bevitt értéket, később ezt hasonlítjuk össze a rekordhalmaz elemeivel

    rst.Seek "=", adat
    If rst.NoMatch Then
    Exit Sub 'nincs egyezés, ezért kilépés
    Else
    MsgBox"Van már ilyen TAJszám!"
    DoCmd.GoToControl Tajszam beviteli mező neve
    End If

    rst = Nothing
    db = Nothing
    ' Kiürítés

    End Sub

    Viszont az van ezzel, hogy nálam nem akar működni, csak access98-on. Ennyire jutottam...