Information générale
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Please help me with this one...
If I want to unlock the leden-table it doesn't work.... Can you please tell me what I am doing wrong here?
My code:
SET MULTILOCKS ON
SET REPROCESS TO AUTOMATIC
IF LOCK('leden')
UNLOCK IN leden
ENDIF
IF SEEK(ALLTRIM(ThisForm.txtlidnr.Value))
IF NOT(LOCK('leden'))
LOCK(RECNO(), 'leden')
ELSE
DO WHILE LOCK('leden')
MESSAGEBOX('Iemand anders veranderd op dit moment dit adres.' + CHR (13) + ;
'Klik op [OK], als deze melding verdwijnt is het adres weer vrij.', 64, 'Lid gegevens wijzigen...')
ENDDO
ENDIF
ENDIF
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement