-
����λ�ã���ҳ���������������ݿ���ժ�� 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���ݿ�
�鿴����0������>>