액세스 예

아무런 기록도 보이지 않도록한다면 오픈 양식을 예방하는 방법?

2009년 5월 2일 (토요일) |

때로는 그것이 쿼리를하고 어떠한 등록이 필요하지 않을 경우 예를 들어, 표시하는 레코드가있는 경우 열려있는 양식을 방지하기 위해 필요하다, 우리가 표시하는 데이터가 필요 없기 때문에 개방 형태가 될 필요가 없습니다. 그래서 우리가 점검해야 할 것은 표시할 레코드가 있는지 여부이며,이 경우에는 메시지를 표시하지 않고 양식이 열려 방해. 어떻게?

단지 '여는'이벤트에서 양식 속성에 아래 코드를 넣어 쉽게 :

= 0 그렇다면 Form.RecordsetClone.RecordCount
MsgBox "은 어떤 기록을 찾을 수 없습니다."VbExclamation, "오류!"
DoCmd.Close acForm는 "데이터를 찾을 수"
하위 메뉴를 종료합니다
END IF

예제를 보려면 다운로드 : 양식은 오픈 방지

에서 배치하는 예 , 폼 , 모듈 | 2 코멘트»

키에 동작을 할당하는 방법?

2008년 12월 11일 (목요일) |

me.keypreview = true를 : - 1 구조와 이벤트의 주문 양식 만들기 양식의 등록 정보에서 '클릭하면'다음을 입력
아니면이 키보드 이벤트는 첫 번째 양식에받은 만들려고합니다.

2 - 양식 등록 정보에서 행사 '버튼을 클릭하면 아래의 방법'에 다음 코드를 넣어 :

비공개 하위 Form_KeyDown (정수로 KeyCode, 정수로 시프트)
사례 KeyCode를 선택
사례 vbKeyF2
DoCmd.OpenForm "Form1에"
사례 vbKeyF3
DoCmd.OpenForm "Form2"
사례 vbKeyF4
DoCmd.OpenForm "formulario3"
사례 vbKeyF5
더블 낮추기 계산기로
계산기 = 쉘 ( "calc.exe", vbNormalFocus)
사례 vbKeyF6
DoCmd.Close
아니면 케이스
선택 종료
최종 하위

이게 않는 것은 다음과 같습니다
- F2 키를 눌러 Form1을 엽니다
- F3 키를 누르면 Form2를 엽니다
- F4 키를 눌러 formulário3 열립니다
- F5 키를 눌러 윈도우 계산기를 엽니다
- F6 키를 눌러 양식을 닫습니다

기능 키 F1을뿐만 아니라, F2 ... 등, 우리는 또한 기능을 수행하기 위해 다른 버튼을 사용할 수 있지만 염두에두고 우리가 필드에 데이터를 쓰는 데 사용되는 키를 사용하기 적합하지 양식에 데이터를 입력할 경우.
또 한가지는 오직 귀하가 위의 코드를 넣어 양식에서만 작동한다는 것입니다.

다운로드 : 키

에서 배치하는 예 , 폼 , 모듈 | 1 코멘트»

사용자 지정 메뉴

2008년 9월 20일 (토요일) |

이것은 우리가이 메뉴 방금 오픈 양식을 필요로 이후, 오픈 형태의 측면에서 시간, 코드의 라인과 더 나은 배열을 저장할 수있는 메뉴의 종류입니다. 열린 형태의 수를 감소뿐만 아니라 또한 각 양식을 열 수있는 메뉴 버튼의 수를 감소시킵니다.
메뉴의이 유형은 확실히 그 얼마 동안 존재했으며 Access의 많은 사용자들이 이미 사용됩니다.
그래서이 메뉴는 어디에 있나요?
자, 우리가 그것을 열 계획하는 모든 형태를 포함하는 콤보 상자를 사용하여 메뉴를 작성하자. 당신이 콤보 상자에서 옵션을 선택하면 신청서가 하위 폼 내에 표시됩니다. 그럼 우리가 단계별로 메뉴 단계를 시작합니다.

1 -가 우리가 각 양식 열립니다 양식의 이름을 지정하려는 이름을 저장할 테이블을 작성하자. 예제에서 나는 다음 필드가있는 테이블 'tblmenu'을 만든 :
필드 유형
Nomedomenu 텍스트 - 메뉴에 보여줄 것입니다> 이름 (콤보 박스)
텍스트를 형성 - 열 양식의> 이름을

예제에 소개된 자료들은 후 :

NomedoMenu 양식

계정 Form1에
보증금 Form2
움직임 formulario3
계정 - 박스 formulario4
계정 - 계정 formulario5
formulario6의 압축을 풉니다

2 - 그럼 우리가 이전 테이블에서 쿼리를 만들려면 :
Tblmenu는 테이블을 선택하고 우리가 메뉴에게 우리가 양식을 열려는 꽤 여러 번 찾을 쉬울하는 정렬 nomedomenu 오름차순 위해 선택하는 두 필드를 선택합니다. 이 쿼리에 대한 전 'CsMenu'이라고.

3 -가 양식 '메뉴'를 만들 수 있도록, 즉 디자인보기에서 새 양식을 선택합니다. 그럼 우리가 콤보 상자를 만들려면 다음과 같은 속성을 변경합니다 :
- 컬럼의 수 : 2
- 열 너비 : 1cm, 0cm;
- 라인의 유래 : csmenu (이전 단락에서 만든 쿼리의 이름입니다)

4 - 같은 양식에서 우리는 (나는 menuquadro라는 예에서) 언바운드 메인 폼의 하위 폼이 만들어집니다. 그것은 형태의 각 메뉴 (콤보 박스)에서 선택하여 열 예정이 양식입니다.

5 - 이제 우리는 하위 폼의 콤보 상자에서 선택한 메뉴를 열 수있는 모듈을 만듭니다.
우리는 모듈을 만든 (저는 'abrirmenu'라고도 함) 다음 코드를 붙여 :

공공 기능 AtivarMenu (Combmenu 콤보 상자를 subabrir 하위 폼)
문자열 낮추기으로 Abrirform
= (1) Combmenu.Column abrirform
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
최종 기능

ativarmenu = ([메뉴], [menuquadro]) '메뉴'콤보 상자의 이름과 'menuquadro'이라는 :​​ 양식 메뉴에서 콤보 상자의 속성 및 업데이트 이벤트 후 생성된 함수를 넣어가는 후에 하위 폼의 이름입니다.

그리고 마지막으로 메뉴를 사용할 수 있습니다. 그냥 긴장을 사용합니다. 난 당신이 제보를 즐길 바랍니다.
다운로드 : 메뉴

메뉴의 사진 아래.

에서 배치하는 예 , 폼 , 모듈 | 12 코멘트»

관리 혜택의 예

2008년 5월 6일 (화요일) |

이 예제는 지불의 제공을위한 방법 관리 시스템 보여줍니다.

예를 들면 이것이 버튼을 클릭으로 만들고 자동적 않는 것을 보여주고, 데이터를 통해 판매 계약의 장점 들어갔다. 즉, 우리는 계약 시작 날짜와 총 금액 지급에 고객의 이름을 소개합니다. 그렇다면 단순히 그것이 자동으로 분할의 개수를 생성하고 각각에 표시된 가치를 분할하고 각 분할의 날짜를 (한달에 하나씩) 계산 "계산 지급"을 클릭하십시오. 이것은 또한 당신이 버튼을 클릭하면 각각의 이익을 위해 레코드를 추가하기 때문에 한 번에 여러 레코드를 추가하는 방법을 보여줍니다 예입니다.

다운로드 : 여러 개의 레코드를 삽입

에 게시 날짜 , 샘플 , 폼 , 모듈 , 성적 | 17 코멘트»

동물 보호소에 칩

2008년 3월 29일 (토요일) |

이것은 소니아 독자 동물의 데이터베이스 레코드 데이터를 대상으로하는 응용 분야의 예입니다. 그것은 동물의 사진과 데이터 입력을위한 단지 형태로 간단한 데이터베이스입니다.

다운로드 : 동물 보호소

모든 변화는 여기서 언급.

서면 양식 , 사진 , 모듈 , 레코드 , 테이블 | 11 코멘트»

독립을 통해 레코드 필드를 입력

2008년 2월 20일 (수요일) |

이 레코드를 입력하는 방법에는 여러 가지가 있으며, 가장 일반적인이 테이블에 바인딩된 양식을 통해 얻을 것입니다. 이 작업을 수행하는 다른 방법은 테이블에 독립적으로 관련이없는 분야로 양식을 사용하여 즉, 관련없는 필드를 통해서입니다. 에
우리가 다음과 같이이 예제의 경우에 코드에 의해 즉 '레코드'를, 사용하는 데이터를 입력 :

데이터베이스와 같은 희미한 dB
레코드 집합으로 희미한 RS

MsgBox은 ( "당신이 쓰고 싶으세요?"VbYesNoCancel를, "옵션") = 그렇다면 vbYes 경우
"누르면 코드가 끝날 때까지 계속 이렇게하면 레코드를 저장하거나하지 여부를 묻는다
세트 dB = CurrentDb ()
세트 RS = db.OpenRecordset ( "데이터", dbOpenTable)
'데이터 등록 삽입하는 테이블을 엽니다

rs.AddNew
RS ( "이름") = 저요! INome
RS ( "주소") = 저요! Imorada
RS ( "세") = 저요! Iidade
rs.Update '는 테이블에 데이터를 보냅니다
rs.Close '지우기 데이터 및이 레코드를 닫습니다
RS = 아무것도 설정하지
dB = 아무것도 설정하지

Me.INome = NULL을 '은 형태로 필드를 지웁니다
Me.Imorada = NULL을
Me.Iidade = NULL을
MsgBox "저장된 기록", vbInformation는 '표시 확인 메시지가 "완료"를
Me.INome.SetFocus '은 첫 번째 필드로 커서를 이동
다른 사람 : 출구 서브
END IF

다운로드 : 독립 장소

에서 배치하는 예 , 폼 , 모듈 , 레코드 , 테이블 | 아니오 코멘트»

시간으로 계산

2008년 2월 19일 (화요일) |

이 예제는 시간에 대한 계산을 수행하는 방법을 보여줍니다. 그것은 얼마나 많은 시간이 시작 시간과 종료 시간 사이의 경과 알아야하는 사람들을위한 유용합니다. 그것은 시작 시간 종료 시간의 뺄셈을 할 충분하지 않습니다, 종료 시간이 다음 계정 한 날부터 이동하는 경우 때문에 더이상 올바른 예 :

23시 0분 0초 : 시작 시간

종료 시간 : 2시 0분 0초

종료 시간 - 시작 시간 = 2시 0분 0초부터 23시 0분 0초까지 = -21:00:00

분명히 그것은 그때 때문에 대신 잘못 -21 시간 거예요 올바른 결과로 세 시간 데로, 시간 작업이 너무 단순하지 않습니다.

매일 매일에 우리는 종료 시간은 둘 중 큰 시작 시간보다 큰 경우 먼저 확인 해가는이 기간 해결할하려면 다음 계산은 다음과 같습니다 : 종료 시간 - 시작 시간.

그런 다음 아래의 경우 우리는, 즉 계산을 다른 방법으로 할 수있다 :

23시 0분 0초 : 시작 시간

종료 시간 : 2시 0분 0초

총 시간 : 23시 59분 59초

조회 : 0시 0분 1초

기본적으로 우리가 할 것은 우리에게 올바른 세 시간주고 24:00:00 뺄셈의 가치에 추가됩니다. 그건은 다음과 같습니다 :

종료 시간 - 시작 시간 + 총 시간 + 쳐 = 2시 0분 0초에서 23시 0분 0초까지 + 23시 59분 59초 + 0시 0분 1초 = 24:00:00 = 03 + -21:00:00 : 00:00

다운로드 : 시간과 미적분

에서 배치하는 예 , 양식 , 영업 시간 , 모듈 | 20 코멘트»

팝업 달력

2008년 2월 6일 (수요일) |

이 예제는 팝업 달력을 통해 날짜를 선택하는 방법을 보여줍니다. 그래서 모듈로,이며이 일정이므로 선택 날짜를 형성할 수 있습니다. 예제에서는 날짜 필드 옆의 버튼을 클릭하거나 날짜 필드에서 마우스의 오른쪽 버튼을 클릭하여 날짜를 선택할 수 있습니다. 그것이 우리 캘린더를보고하고 원하는 최고의 날짜를 선택할 수 있기 때문에 날짜를 입력하려면이 방법은 매우 실용적이다.

다운로드 : 팝업 캘린더

에 게시 날짜 , 샘플 , 폼 , 모듈 | 1 코멘트»

마우스 휠 (가운데 버튼)를 사용하지 않음

2008년 1월 27일 (일요일) |

보통 우리가 양식에서 마우스 가운데 버튼을 실행하면 액세스 로그를 변경합니다. 어떤 상황에서는 그런 일이 일어나지 유용할 수 있습니다.
이 예제는 사용자가 스크롤 마우스를 사용하여 레코드를 탐색 방지하기 위해,로드 양식의 이벤트에 모듈을 사용합니다. 우리가 등록을 변경하지 않는 볼 (가운데 버튼) 마우스 휠을 사용하여 테스트합니다.

여기 다운로드 : 휠 마우스

에서 배치하는 예 , 폼 , 모듈 , 마우스 , 레코드 | 아니오 코멘트»

액세스 윈도우를 조작

2008년 1월 21일 (월요일) |

이 예제는 폼의 윈도우가 보이지 떠나, Microsoft Access를 메인 윈도우를 숨길 모듈을 사용합니다.
통화 fsetAccessWindow (SW_HIDE) : 우리가 양식의 오프닝 행사에서 다음 명령을 사용해야하는이 모듈을 사용하십시오.

예제의 방식으로 확인하려면 downloa을 수행 창 Acces을 속여라

에서 배치하는 예 , 폼 , 모듈 | 8 개의 댓글»