投稿日 | : 2007/03/15(Thu) 10:07 |
投稿者 | : くっく |
Eメール | : |
URL | : |
タイトル | : 【初心者です】削除と修正ができません。 |
はじめまして
VB6.0
os XP
PKが1つしかない画面に、PKをもつひとつ増やした所、最初のPKしか削除や更新を
認識しません。
2つ入力して初めて削除、修正ができるようになるのですが、
どうすればよろしいでしょうか??
Select Case GrekTORM_REC.Index
Case "PrimaryKey" ' PrimaryKey
If ReadCmd = CL_GTEQ Then
If Segno < 1 Then GrekTORM.jyucd = DAO_GetLowValue(CL_DBTEXT, 7)
If Segno < 1 Then GrekTORM.FromYMD = DAO_GetLowValue(CL_DBDATE, 8)
ElseIf ReadCmd = CL_LTEQ Then
If Segno < 1 Then GrekTORM.jyucd = DAO_GetHighValue(CL_DBTEXT, 7)
If Segno < 1 Then GrekTORM.FromYMD = DAO_GetHighValue(CL_DBDATE, 8)
End If
GrekTORM_REC.Seek cmd, GrekTORM.jyucd And GrekTORM_FromYMD
Case Else
MsgBox "インデックス名が未登録です。", vbExclamation + vbOKOnly, GrekTORM_TableName
End