����λ�ã���ҳ���������������ݿ���ժ�� Microsoft Access���ܡ����ɺ�����

Microsoft Access���ܡ����ɺ�����

ʱ�䣺2004/12/2 1:58:00��Դ����վ�������ߣ�������Ҫ����(0)

Microsoft Access���ܡ����ɺ�����



������C.��������



ϵͳ֧�ֹ���ʦ��Microsoft Access Basic



ժҪ



������ƪ���¸����˵�ʹ��Microsoft Access ʱ��ͨ��ʹ��Access Basic��������Ӧ�ó����ִ���ٶȣ����ٱ�������ͬʱҲ������ΪMicrosoft WindowsӦ�ó���ӿڱ��ʱ���ڿ���Ӧ�ó���������������ļ�����������ʹ�ñ���������ռ�õĴ洢�ռ�����Ч�ؼ���һ��Ӧ�ó��������ĵ���Դ��ͬʱҲȫ��������������ܡ�



��������ȷ�ص���WindowsӦ�ó���ӿڿ��ܻ����һЩ���벻���ĸ����ã��Լ�DZ�ڵض�һ��Ӧ�ó���Ĵ��뼰���ݶε��ƻ�����ȷ��ʹ��һ���յ�32λָ����Microsoft Access ����ʮ�ֱ�Ҫ�ġ�



�������Ա��ͱ�����в���ʱ��Microsoft Access��һ������ʽ�ı������ԡ�������������������Ӵ�����sheet window�н��й��̵��ã����õķ���ʱͬʱ����shift��F2����



����



����Microsoft Access Basic�ṩ��һ���ḻ�Ŀ�������������������������㹻������ԺͶ�Microsoft WindowsӦ�ó���ӿڵĿ��ƣ�ͬʱ������ʹ�������ø߼���ͼ����Կ�����������ʱ�������ĸ����鷳������������Ż�����Ч���ݺ�ģ�黯����ֻ����Ӧ�ó�������߲���ʹ�á�������Ӧ�����ڽ�����ʹ���㷨������һ��ij�����Ƹ������һЩ�ر�Ĵ洢�ռ�Ĺ���������ȷʹ����Щ�����������Ӧ�ó����ִ���ٶȣ�����Ӧ�ó�����Ҫ�õĴ洢��Դ��



����ٶȺͼ��ٴ�����



����������ü��ּ����������ı����ٶȣ�����ȴ�Ҳ�����Ч���㷨������ߡ��������ļ��㽨����������ı����ٶ�ͬʱ�ּ������Ӧ�ó������ĵĴ洢�ռ䡣



ʹ�������������ͽ�����ѧ����



������ʹMicrosoft Access ��ʹ��һ�����ϴ�������������������������������Ҳ����Ҫ��һЩ������ļ��㲻����С��������ʹ�����ͻ����Ͷ����DZ�����˫���͡����ͳ���ͬ��ҲҪ�ȸ������Ҫ�졣��ʹ������һЩ��Ч����������ʱ�ᾯ�棺û���κζ��������滻��Ч�����㷨��



����ʹ�ù��̵���



����������ѭ������ʹ���ӳ���������á�ÿһ�ε��ö������Ĺ�����ʱ��������������˸�����ÿһ�ε��ö�Ҫ��Ѻ����ľֲ������Ͳ���ѹջ����ջ�Ĵ�С�ǹ̶��ģ��������Ӵ���ͬʱ��Ҫ��Microsoft Access����



����ʹ�ò�������������



�������������������ṩ�˸��������ԣ�����˵������ȷ�����ֵ���Զ�������������������������ͱȴ�ͳ����������Ҫ�����ĸ���Ĵ洢�ռ䡣ǰ�滹�����ᵽ�����������������͵ı�������ѧ�����бȽ�����



�ñ�����ž���ʹ�õ�����



�����Ա������в��Һ����ö��ȶ����Խ�����Щ����Ҫ�졣�����Ҫ�õ������һ������ֵ���Σ���ô��������Է����һ����������������������������ԣ���ô��Ĵ��뽫Ҫ���п�öࡣ���磬��һ��ѭ���У������ij����е�һ�����Ƶ����ԣ���ô��ѭ��������Է����һ��������Ȼ����ѭ�����ò�ѯһ���������������һ�����Եķ���Ҫ�ȽϿ졣



Ԥ�ر��



���������Ӧ�ó����������Ұ����ǵĿɼ���������λ��false��ʱ������㰲װ�������еı����ô���Ӧ�ó�������ܻ�����о�ͦ�졣������Ҫ��ʾһ�����ʱ����ֻ��Ҫ�Ѹñ��Ŀɼ���������Ϊ��true������Ҫ�Ȱ�װһ�����Ҫ��öࡣ��Ҫ��ס���ǣ�Ϊ�㰲װ��ÿ������㶼Ҫ��Ӧ�ó����ȫ�ֶ������Ĵ洢�ռ䡣



Access Basic�����



������Access Basic�о��������������ǶԶ�̬���ӿ⣨DLLS���е��ⲿ���̵ĵ��á������ṩ���������û��������ⲿ��̬���ӿ�ʱ������ʹ�þ��棻�����㽫�õ�һ��������Ϣ����ͼ����ͬ�ĺ������尲װģ�顣



ʹ��Ψһ�ı���



������Access Basic�У������֪����ڵ㣨��̬���ӿ��к��������֣�������Ե��ö�̬���ӿ��е��ⲿ������������ʹ����һ������������������ֻ�������ⲿ����һ�Ρ�����㰲װ�˵��������ģ����õ���ͬ��WindowsӦ�ó���ӿڣ��㲻��õ�һ����Ϊ����֪�Ĵ�����ͼ����ͬ�ĺ������尲װģ�顣



�����㳢�԰�װ��ģ��Ҫô�ǰ�������ͬ�ĺ�������Ҫô�ǰ������Ѵ��ڵ�ģ�����еĹ�������ɾ����Щ���̣���EDIT�˵���ʹ��FIND�����ҵ��ظ��Ĺ�������Ҫ�����һ���⣬����Ҫʹ��һ�ֽ���������ʹ�á��ļ��������ּ������������Ĺ���һ����һ�޶������֡����ǣ���ѡ��ı���Ҳ�п��ܲ��Ƕ�һ�޶��ģ�����Ҫʹ��ȡ������Ψһ��������ó�ʼֵ���»����������������дӶ�̬���ӿ��е��õĹ��̣����磬����getActiveWindowΪ��



����Declare bcb_GetActiveWindow Lib "Kernel" Alias "GetActiveWindow" () As Integer.



��δ���һ����ָ�����̬���ӿ�



����һ���յ�32λָ������Ч�Ļ���ΪһЩ��̬���ӿ�Ҫ����в�����Ҫָ��һ����ֵ��ʹ��0&������ĺ�������һ�����̲�����һ�����ʽ0&����&��ָ��һ��32λ�Ŀ�ָ�룬�ں��������У�һ��AS ANY����ָʾAccess Basic���Ǹ��������������ͼ�飬ͬʱ��ֵ���ݵ������õĺ�����



��������ı���ʾ����һ����ȷ�ķ������������������һ������̬���ӿ��еĹ��̴���һ����ָ�������Access Basic���������������WriteProfileStringӦ�ó���ӿں�������������������ⲿWindows��̬���ӿ⡰kernel����



Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpString As Any)



�����������ĺ���������һ���ⲿ���̣�λÿ������ָ��һ����ֵ���⽫ʹWriteProfileString���������ڲ����ٻ�����������WIN.INI���κα仯д�������ϡ�



��Ҫ��



�����������������ȷ��ʹ�û�����һ���Եı������ϻ��޸����WIN.INI�ļ���



Function nFlushIniCache()

����nFlushIniCache = WriteProfileString (0&, 0&, 0&)

End Function



��δӶ�̬���ӿ��д��ݺͽ����޷���������



��������������һ�������Ҫ���ⲿ��̬���ӿ���õĹ����з���һ�������ֽڳ����޷�����������Ȼ��Access Basic��֧�������������͡���ȷ�ؼ�����������������Ҫ������һ���޷���������ת����Access Basic���������͡�



����Access Basic�������ķ�Χʹ��-32768��32767��һ���޷����������ķ�Χ�Ǵ�0��65535��Access Basic�������Ե�һλ��������ֵ�ķ���λ�����Ե���ֵ����32767����16λ�����óɸ������š�Ҫ����һ���޷�����������������˹�������16λ��



�������޷���������ת����Access Basic�����������Access Basic�ij�����ת�����޷��������������ַ�������һ�ַ����õ������������ѧ���㣨65535���޷�������ֵ�ӻ�������ڶ��ַ���ʹ��Bitwise������ʵ���ϣ�����������Bitwise������������Ч��һ����ֻ�����������������ܿɶ��Ը�ǿһЩ����Bitwise������ִ��ʱ���ܸ���һЩ��



��������



���������lArithUintToInt (nUint)��lArithIntToUnint(lBytes)����ʾ�������ʹ��ת���޷�����������������������һ����������һ���޷���������ͬʱ����һ���Ѿ�ת��λ�����͵�ֵ���ڶ�����������һ��������ֵ��Ȼ��һ��ת����޷������͵�ֵ��



Function lArithUintToInt (nUint As Integer)

����If nUint < 0 Then

��������lArithUintToInt = nUint + 65536

����Else

��������lArithUintToInt = nUint

����End If

End Function



Function nArithIntToUnint (lBytes As Long)

����If lBytes > 32767 Then

��������nArithIntToUnint = lBytes - 65536

����Else

��������nArithIntToUnint = lBytes

����End If

End Function



���������



���������nBWUintToInt(lBytes) �� lBWIntToUint(nUint)����ʾ�������ʹ��Bitwise����ת���޷�������������һ����������һ���޷�����������Ȼ��һ���Ѿ�ת���ɳ����͵�ֵ���ڶ�����������һ��������ֵ��Ȼ��һ���Ѿ�ת�����޷�������ֵ���ڶ���������ʹ������ʾ��������Ϊ�˷�ֹ�����ݵ�������ֵ����64KBʱ����������Ϣ��



��������1010001111100000 (-23584)

����AND 1111111111111111 (FFFF&)

��������----------------

��������1010001111100000 (41952)



The functions follow:



Function lBWIntToUint(nUint As Integer)

����lBWIntToUint = nUint And &HFFFF&

End Function



Function nBWUintToInt(lBytes As Long)

����Dim nTemp As Integer



����If lBytes > 65535 Then

��������MsgBox "You passed a value larger than 65535"

��������Exit Function

����End If



����nTemp = lBytes And &H7FFF

����nBWUintToInt = nTemp Or -(lBytes And &H8000)

End Function



ע�⣺&HFFFF&Ҫ��&����16��������ĩβ�������ܱ�֤32λ��16������ͨ��16λ��ֵ��ʾ������



Access Basic�еļ���



������Microsoft Access ����һЩ��ǰ����ʽ�ı������ԣ�����������ָ�����̣���������Ǵ�һ��from��report�����Թ������е��õġ�Ҫ������С���ڣ�ֻ��Ҫͬʱ����SHIFT��F2����



BUILDER FORM����



���������һ��ģ����һ�������Ķ������ԡ�Builderr Form����ʼͬʱ����һ��������Onclose���Ի��¼���ʶ��������SHIFT��F2���Ϳ��Ե���������̡����磬������һ��form����ƴ����У�����ǰ�Ĺ���������Դ����е�Onclose�¼��ı༭�����ϣ�����SHIFT��F2�����ܵ���BuilderFormOnclose��������ʹ����form��reports�Ĵ����Ժ������¼�������Ĵ��뽫˵�������ĸ�ʽ��



Function BuilderFormOnClose (szFormName As String, szControlName As String, szCurrentValue As String, szReserved As String)



If szCurrentValue = "" Then

����DoCmd SelectObject A_MACRO, "", True

����SendKeys "%n%fs" & "New Macro" & "{Enter}"

����Forms(szFormName).OnClose = "New Macro"



Else

����DoCmd SelectObject A_MACRO, szCurrentValue, True

����SendKeys "%d"



End If End Function



����szFormName, szControlName, szCurrentValue, �� szReserved������������ʹ��Ӳ�ʹ�����ǡ�����ĺ���������ʱ����Щ��������Ҫ�����ݵġ��������û�б���������ôMicrosoft Access�����������ĺ����������һ�����������䵽Onclose�¼��ϣ���ôǰ��Ĺ��̽���һ���꣬����༭�����ǿգ���ô�������һ����Ϊ��New Macro�����º꣬ͬʱ�ѱ༭����ֵ����Ϊ��New Macro������Ȼ��ǰ������Ӳ����Ƿdz�������������ȷ˵����Ҫ����һ����������Ч�ij����������������

����Ķ�Windows��������ȫ Windows��������ѯ����windows��ʲô��Mac QQ��Windows QQ�����¼��ô�ϲ� Mac QQ��Windows QQ�����¼Windows 10�Զ�������ô�ر� ��ιر�Windows 10�Զ�����windows 10 rs4����Ԥ����17017���ش�������Win10�^�����߸���16291������ʲô win10 16291��������windows10�^�����߸���ʱ�� windows10�^�����߸�������kb3150513����������ʲô Windows 10����kb3150513��ʲô

��������
��������

��������û�в�ѯ���κμ�¼��

��������û�в�ѯ���κμ�¼��Oracle������SQLִ��Ч��Oracleͳ����Ϣ���ӷ���Ϊʲô�����ݿ�Ҫ��DISTINCTOracle SQL �������ⷽ��(һ)

��������SQLˮ������洢����Ϊʲô�����ݿ�Ҫ��DISTINCTOracle������SQLִ��Ч��MySQL�Ӻ��Ž���ҵ�г��������ݿ�ϵͳ֮�Ƚ� - Oracle���ݿ��������ݿ�ϵͳ֮�Ƚ� - SYBASE �� SQL SER��wu-ftpd����FTP�������������ݿ�ϵͳ֮�Ƚ� - DB2���ݿ�