ããã«ã¡ã¯ããªãããã§ãã
Accessã䜿ã£ãŠããŠãå
¥åããã£ãšã©ã¯ã«ãããããéžæè¢ããéžã¶ããã«ãããããšæã£ãããšã¯ãããŸãããïŒ
ãããªãšãã«å€§æŽ»èºããã®ããããããããŠã³ãªã¹ãïŒã³ã³ãããã¯ã¹ïŒã§ãã
ãã®èšäºã§ã¯ãAccessåå¿è ã§ãè¿·ãã䜿ããããã«ãã³ã³ãããã¯ã¹ã®åºæ¬ããå®è·µçãªäœ¿ãæ¹ããããããã¹ãŸã§äžå¯§ã«ã玹ä»ããŸãã
ð°ã³ã³ãããã¯ã¹ã£ãŠãªã«ïŒ
ã³ã³ãããã¯ã¹ã¯ãéžæè¢ã®äžãã1ã€ãéžã¹ãå ¥åæ¬ã§ãããªã¹ãããéžã¶ããšã§ãå ¥åãã¹ãé²ãã ããäœæ¥ã®å¹çåãã§ããŸãã
ããšãã°ã以äžã®ãããªå Žé¢ã§äœ¿ãããŸãïŒ
- éœéåºçã®éžæ
- 顧客ãã¹ã¿ããã®äŒç€Ÿåéžæ
- ã«ããŽãªãéå®ããããŒã¿å ¥å
ð ã³ã³ãããã¯ã¹ã®äœãæ¹
â ãã©ãŒã ã«è¿œå ãã
- ãã©ãŒã ã®ãã¶ã€ã³ãã¥ãŒãéããŸãã
- ããŒã«ããã¯ã¹ãããã³ã³ãããã¯ã¹ããéžã³ããã©ãŒã äžã«é 眮ããŸãã
- ãŠã£ã¶ãŒããéããããçšéã«å¿ããŠä»¥äžãéžæïŒ
- ããŒãã«ãã¯ãšãªã®å€ã䜿ãïŒãã¹ã¿é£æºãªã©ïŒ
- èªåã§å€ãå ¥åïŒåºå®ãªã¹ããªã©ïŒ
â¡ããããã£èšå®
ã³ã³ãããã¯ã¹ãéžæããç¶æ ã§ãããããã£ã·ãŒãã確èªããŸãã
- Row SourceïŒè¡ãœãŒã¹ïŒïŒè¡šç€ºããéžæè¢ïŒSQLæãŸãã¯ããŒãã«åïŒ
- Bound ColumnïŒé£çµåïŒïŒä¿åãããå€ïŒäŸïŒIDïŒ
- Column CountïŒåæ°ïŒïŒè¡šç€ºããåã®æ°
ð¡å®çšäŸïŒé¡§å®¢åãã³ã³ãããã¯ã¹ã§éžæ
ãµã³ãã«æ§æ
- ããŒãã«åïŒT_顧客
- ãã£ãŒã«ãïŒé¡§å®¢IDïŒäž»ããŒïŒã顧客å
- ãã©ãŒã ïŒF_åæ³šå ¥å
èšå®äŸ
Row SourceïŒ
SELECT 顧客ID, 顧客å FROM T_顧客 ORDER BY 顧客å;
Bound ColumnïŒ
1ïŒâä¿åãããã®ã¯é¡§å®¢IDïŒ
Column CountïŒ
2ïŒâ衚瀺çšã«é¡§å®¢åã䜿ãïŒ
ãã®èšå®ã䜿ãã°ãèŠãç®ã¯ã顧客åãã ãã©ãå éšã§ã¯ã顧客IDããä¿åããããšãã圢ã«ãªããŸããéåžžã«äŸ¿å©ã§ããïŒ
â ãããããã¹ãšæ³šæç¹
- é£çµåãæå³ããåã«ãªã£ãŠããªã â Bound Columnã®èšå®ã確èªïŒ
- åå¹ ã0ã§èŠããªã â Column Widthsã調æŽããã
- SQLæã®ãšã©ãŒ â ãã£ãŒã«ãåã®ã¹ãã«ãã¹ãããŒãã«åã«æ³šæ
ðå¿çšãã€ã³ãïŒäžçŽè åãïŒ
ã»VBAã§åçã«ãªã¹ãã倿Žãã
Me.cboåå.RowSource = "SELECT ååID, ååå FROM T_åå WHERE åšåº«æ° > 0"
æ¡ä»¶ä»ãã§ãªã¹ããåãæ¿ããããšã§ãããã¹ããŒããªéçšãå¯èœã«ãªããŸãã
ã»NotInListã€ãã³ãã§æ°èŠå€ã远å ãã
Private Sub cbo顧客_NotInList(NewData As String, Response As Integer)
If MsgBox(NewData & " ã远å ããŸããïŒ", vbYesNo) = vbYes Then
CurrentDb.Execute "INSERT INTO T_顧客 (顧客å) VALUES ('" & NewData & "')"
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
ããã䜿ãã°ããªã¹ãã«ãªãå€ããã®å Žã§è¿œå ã§ããããã«ãªããŸãã
â ãŸãšã
ä»åã¯ãAccessã§ã®ã³ã³ãããã¯ã¹ïŒããããããŠã³ãªã¹ãïŒã®äœ¿ãæ¹ã«ã€ããŠè§£èª¬ããŸããã
- å ¥åãç°¡åã«ããã¹ãªãè¡ãããã®éèŠããŒã
- ããŒãã«é£æºãVBAã«ããæ¡åŒµãå¯èœ
- äžçŽè åãã®ãã¯ããã¯ã§ããã«æ¥åå¹çã¢ãã
Accessã®ãã©ãŒã éçºã§ã¯æ¬ ãããªãæ©èœã§ãããã²äžåºŠãèªåã®ããŒã¿ããŒã¹ã§äœ¿ã£ãŠã¿ãŠãã ãããïŒ
次åã¯ããªã¹ãããã¯ã¹ãšã®éããããè€æ°åã®è¡šç€ºãšéžæãã«ã€ããŠãã玹ä»äºå®ã§ãããæ¥œãã¿ã«ïŒ
