�ｶ�｢�｡縺ｧ繝ｩ繧ｯ縺励◆縺� �霸art 2��

蜑榊屓菴懈�縺励◆縲悟炎髯､縲阪�繧ｿ繝ｳ縺ｮ蜃ｦ逅�↓縺､縺�※縺ｯ縲√∪縺�闍･蟷ｲ縺ｮ菫ｮ豁｣蛟区園縺梧ｮ九＆繧後※縺�∪縺�(^^;)

縺頑ｰ励▼縺阪↓縺ｪ縺｣縺滓婿繧ゅ＞繧峨▲縺励ｃ繧九→諤昴＞縺ｾ縺吶′縲√←繧薙←繧灘炎髯､繧堤ｶ壹￠縺ｦ縺�￥縺ｨ縺励∪縺�↓縺ｯ隕句�縺�
繧貞炎髯､縺励◆縺ゅ￡縺上↓繧ｨ繝ｩ繝ｼ縺ｧ關ｽ縺｡縺溘ｊ縺励∪縺吶€�(( ((( 繝ｽ(;^^)繝�

縺薙�霎ｺ縺ｯ蜷�さ繝ｳ繝医Ο繝ｼ繝ｫ縺ｮ菴ｿ逕ｨ縺ｮ蜿ｯ荳榊庄繧貞�繧頑崛縺医ｋ縺薙→縺ｧ蟇ｾ蠢懊＠縺溘＞縺ｨ諤昴▲縺ｦ縺ｾ縺吶€�
縺後€√■繧�▲縺ｨ縺�縺大ｾ後↓蝗槭＠縺ｦ縺翫″縺ｾ縺吶�縲�

縺ｨ縺�≧縺ｮ縺ｯ蛻�ｊ譖ｿ縺医�繧ｿ繧､繝溘Φ繧ｰ縺｣縺ｦ謨ｰ邂�園縺ｮ繝励Ο繧ｷ繝ｼ繧ｸ繝｣縺ｧ陦後＞縺ｾ縺吶�縺ｧ縲∝�菴薙�蜍輔″繧偵ｂ縺�ｸ€
蠎ｦ遒ｺ隱阪＠縺ｦ縺九ｉ菫ｮ豁｣縺ｮ譁ｹ繧貞�繧後◆縺�→諤昴＞縺ｾ縺吶€�

���繝ｻ繝ｻ繧�▲縺ｱ縺励€∬｡後″蠖薙◆繧翫�縺｣縺溘ｊ豌怜袖縺ｮWebMasterﾏ�(^_^;)

縺ｨ縺�≧縺薙→縺ｧ縲∽ｻ雁屓縺ｯ縺ｾ縺�蜈ｨ縺乗焔繧偵▽縺代※縺�↑縺九▲縺溘€御ｿｮ豁｣縲阪�繧ｿ繝ｳ縺ｮ蜃ｦ逅�ｒ菴懊▲縺ｦ縺励∪縺�％縺ｨ縺ｫ
縺�◆縺励∪縺帙≧縲�

縺ｾ縺壹�莉墓ｧ倥�遒ｺ隱阪°繧�

笳�€御ｿｮ豁｣縲阪�繧ｿ繝ｳ 繧ｯ繝ｪ繝�け譎�
繝ｻ繝ｬ繧ｳ繝ｼ繝峨�迴ｾ蝨ｨ菴咲ｽｮ繧堤､ｺ縺吝､画焚縺ｮ蛟､繧貞盾辣ｧ縺吶ｋ
繝ｻ繝ｯ繝ｼ繧ｯ繧ｷ繝ｼ繝医�蟇ｾ雎｡陦御ｽ咲ｽｮ縺ｫ縲∫樟蝨ｨ陦ｨ遉ｺ荳ｭ縺ｮ繝ｬ繧ｳ繝ｼ繝峨ｒ荳頑嶌縺阪☆繧�
繝ｻ逕ｻ髱｢陦ｨ遉ｺ縺ｯ縺昴�縺ｾ縺ｾ縺ｨ縺吶ｋ

縺薙ｌ縺ｫ蝓ｺ縺･縺�※譖ｸ縺�※縺ｿ縺ｾ縺励ｇ縺�€�


Private Sub CmdUpdate_Click()

    '*** 繝��繧ｿ菫ｮ豁｣蜃ｦ逅� ***
    Cells(LngRecRow, cNameDataCol).Value = TxtName.Text
    Cells(LngRecRow, cMailDataCol).Value = TxtEmail.Text
    Cells(LngRecRow, cBirthDataCol).Value = TxtBirthday.Text

End Sub


縺ｪ繧薙°隕九◆縺薙→縺ゅｋ繧医≧縺ｪ繧ｳ繝ｼ繝峨＠縺区嶌縺�※縺ｾ縺帙ｓ縺�(( ((( 繝ｽ(;^^)繝弱せ繧ｿ繧ｳ繝ｩ繧ｵ繝�し

迴ｾ蝨ｨ謫堺ｽ懷ｯｾ雎｡縺ｨ縺ｪ縺｣縺ｦ縺�ｋ繝ｬ繧ｳ繝ｼ繝峨ｒ繝輔か繝ｼ繝�縺ｮ繝��繧ｿ縺ｧ鄂ｮ縺肴鋤縺医ｋ縺�縺代〒縺吶°繧峨€√％繧後□縺代〒
縺�＞縺ｨ縺�≧縺薙→縺ｯ縲√↑繧薙→縺ｪ縺上♀蛻�°繧翫＞縺溘□縺代ｋ縺ｨ諤昴＞縺ｾ縺�(^-^;A繧｢繧ｻ繧｢繧ｻ
��焔謚懊″縺ｧ繧上＃縺悶＞縺ｾ縺帙〓繝ｻ繝ｻ繝ｻ


縺薙％縺ｧ縺ｯ"逕ｻ髱｢陦ｨ遉ｺ縺ｯ縺昴�縺ｾ縺ｾ縺ｨ縺吶ｋ"縺ｨ縺�≧莉墓ｧ倥〒縺吶′縲√％繧後ｂ螂ｽ縺ｿ縺悟�縺九ｌ繧九→縺薙ｍ縺�縺ｨ諤昴＞縺ｾ
縺吶�縲ゅ€碁€｣邯壹＠縺ｦ菫ｮ豁｣縺励◆縺�°繧峨€∵ｬ｡縺ｮ繝ｬ繧ｳ繝ｼ繝峨ｒ陦ｨ遉ｺ縺吶ｋ繧医≧縺ｫ縺励※縺上ｌ縲阪▲縺ｦ險€繧上ｌ縺溘ｊ繧ゅ☆
繧九°繧ゅ＠繧後∪縺帙ｓ縺励�繝ｻ繝ｻ縲�

縺昴≧縺�≧蝣ｴ蜷医↓縺ｯ荳玖ｨ倥�繧医≧縺ｪ蜃ｦ逅�ｒ霑ｽ蜉�縺吶ｌ縺ｰ蟇ｾ蜃ｦ縺ｧ縺阪∪縺�


    '*** 迴ｾ蝨ｨ縺ｮ繝ｬ繧ｳ繝ｼ繝我ｽ咲ｽｮ繧医ｊ�代▽蠕� ***
    If LngRecRow < LngAllRecCnt + 1 Then
       LngRecRow = LngRecRow + 1
       
       '*** 繝ｬ繧ｳ繝ｼ繝芽｡ｨ遉ｺ蜃ｦ逅� ***
       TxtName.Text = Cells(LngRecRow, cNameDataCol).Value
       TxtEmail.Text = Cells(LngRecRow, cMailDataCol).Value
       TxtBirthday.Text = Cells(LngRecRow, cBirthDataCol).Value
       
       '*** 陦ｨ遉ｺ逕ｨ繝ｬ繧ｳ繝ｼ繝画焚繧貞､画焚縺ｫ繧ｻ繝�ヨ ***
       LngCurRecNumDsp = LngRecRow - 1  '迴ｾ蝨ｨ縺ｮ繝ｬ繧ｳ繝ｼ繝臥分蜿ｷ
       
       '*** 繝ｬ繧ｳ繝ｼ繝我ｻｶ謨ｰ陦ｨ遉ｺ ***
       LblRecCnt.Caption = LngCurRecNumDsp & "莉ｶ逶ｮ/蜈ｨ" & LngAllRecCntDsp & "莉ｶ"
       
    End If


縺ｻ縺ｨ繧薙←縺御ｽｿ縺�∪繧上＠迥ｶ諷九�繧ｳ繝ｼ繝峨↓縺ｪ縺｣縺ｦ縺翫ｊ縺ｾ縺吶�縺ｧ縲∬ｩｳ縺励＞隱ｬ譏弱�蜑ｲ諢帙＆縺帙※縺�◆縺�縺阪∪
縺吶�(^^;)

繝昴う繝ｳ繝医→縺励※縺ｯ縲∵ｬ｡縺ｮ繝ｬ繧ｳ繝ｼ繝峨↓遘ｻ蜍輔＠縺溘→縺阪�縺ｿ陦ｨ遉ｺ縺ｮ譖ｴ譁ｰ繧定｡後▲縺ｦ縺�ｋ縺ｨ縺薙ｍ縺上ｉ縺�〒縺励ｇ
縺�°縲�


縺｡繧�▲縺ｨ遏ｭ縺�〒縺吶′縲√く繝ｪ縺梧が縺��縺ｧ邯壹″縺ｯ谺｡蝗槭∈(( ((( 繝ｽ(;^^)繝弱せ繧ｿ繧ｳ繝ｩ繧ｵ繝�し