Standard Jet DBnb` Ugr@?~1y0̝cßFNi7v֜(8$`{6߱\fC=3y['|*| ٤j{f_Љ$g'DeFx -bT4.0dvNW2correo a cmqs@telepolis.com indicando su nombre, e-mail y el nombre de la aplicacin; e inmediatamente le ser remitida esta aplicacin totalmente abierta. Del mismo modo, si desea que las modificaciones que necesita sea yo el que se las haga, hgame llegar al mismo correo estos requerimientos y hablamos sobre el coste. S  * revisaletranifɤs h)aN?`GXGP(aN? lepplications"*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automationp*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#c:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 S><8BCGTKNIMOEXEZ_WRPNPW_PNZSCLC4;3e538542iForm_clientes< D,͜~,`59+ AccessGEndsub VBAWin16~Win32MacVBA6# CompruebaNif)DAOForm_CompruebaNif _Evaluate Form_Open-CancelMsgBoxRnif_AfterUpdategletrarTdomdb\rc^ Recordsetrev YS  Y   Y Y  Y Y  Y  DY  Y   Y  Y  Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        (2@k@ Xrevisaletranif HB@Bokh &$* P"V"XaAttribute VB_Name = "Form_client es" Bas0{CE6C9708-55F1-11D5-A4B8-0010B5A5B02C} |Global!SpacFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$Option Com2p@ DT  0 Thena DoCmd.'_`, #acReadOnly, acHiddA Right( , 1) <>Bjs!!:'jLN!.l 8NIF`@Ak$ctda,cu_boritmo. G_@fDNI ra: " &$s!!` Left(/, 8) + R.@eC@pr RGB(255, 0@9If u/Cie*/6  ` &H00000000 [Workspace] Form_clientes=22, 22, 470, 388, Z Form_clientesForm_clientes02=Bb c8)e ghi:jj,kSkX@ Revisa Letra NIF"[Event Procedure] Ariald2m45bg[`Detallem7U`a bQcnif"[Event Procedure]d5U`a bgcd Etiqueta1Nif: TahomaPROJECTwm,AcessVBADataForms HH0HHBlob HPropDataTypeInfoOYCSY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectId $# !"&%)'(*,+/-.Root Entryj@0VBAjjVBAProject jjVBAjjdirL__SRP_0 __SRP_1:__SRP_2 >~  !"#$%&'()*+,-./0123456789;<=?@ABCDEFGHIJKLMNOPQRSTUVWYZ\]^_`abcdefghijklmnopqrstuvwxyz{|}~H0* pHd Comprueb aNif<@ = v S>"<Vrstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automatio&n^gVB@IDE> VBIDE5C€CE1D57C5.3Cc:\Archivos de pr@ograma comunes\Microsoft Shared\(VBA6E6EXT.OLB#Visual Basic for Applicgs Extensibility. E]"<lForm_clientesG F_rm_Tcai@bn@ees@BCGTKNIMOEXEZ_WRPNPW_PNZSCLC28ACGTKNQMOQXZ WRPPFW@AZS L#AH@1ŒCE@,.<"B(B+B K*mrUA~~~~~~~~~~~Z I~,  A a I Form_clientes CompruebaNifFKC:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  1`J_N?=c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olbAccess 9 ap0FC:\WINDOWS\SYSTEM\stdole2.tlb Y S Y  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttributejjMSysDbRoot EntryDs79VBAjjVBAProject jDsVBA`sDs)'(*,+M-.2456%8:@;<=>9FABCD?NGHEJKLI&PROJECTwm,PROJECT{BCGTKNIMOEXEZ_WRPNPW_PNZSCLC: x __SRP_2on  !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnpqrstuvwxyz{|}~__SRP_3 l_VBA_PROJECT< __SRP_0  __SRP_1  -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipble en el .mdb, o sea en la aplicacin abierta). Tngase en cuenta que el control se llama NIF y el formulario Clientes (o se cambian estos nombres o se cambia el cdigo consecuentemente.)ͬlU,Detalled Etiqueta1d Etiqueta2d Etiqueta3mnif0=Bb ce ghXiJjk> z@revisaletranifrevisaletranif Ariald2e Ariale1bRcRf5bg1237bBlob &PropDataTypeInfoDirData<chbcg Ariali1ghj16ghk1bcl23:bc g[m4bg[ Arialn2cdh[ Arialo2ej[ Arialp5bczbci Arial{5bcJ e Arial`@@.EncabezadoDelFormulariot;a`rrDetallet;am7U`arbce letra letrat;ad5U`9arbcletra Etiqueta letraletra_Etiquetat;a`@@ PieDelFormulariot;aͬI~,EncabezadoDelFormularioDetallemletrad letra_Etiquetaletra EtiquetaPieDelFormulario revisaletranifclientesijCmdbarsjjModulesjjReportsjjScriptsjjPropDataDatabases!jj0 jjBlobYv1b N  : k & W  C t/Y Y `kDataID#$YAOIndexo abierto para seguir amplindolo, haga una transferencia por valor de 10 a la cuenta 2100 4149 75 2100105358 a favor de Carlos Querino, justifquela enviando un correo a cmqs@telepolis.com indicando su nombre, e-mail y el nombre de la aplicacin; e inmediatamente le ser remitida esta aplicacin totalmente abierta. Del mismo modo, si desea que las modificaciones que necesita sea yo el que se las haga, hgame llegar al mismo correo estos requerimientos y hablamos sobre el coste.A@o``*revisaletranif$F revisaletranif L N HB@JMsgBox ("La letra del NIF no es correcta, no cumple algoritmo. La letra correcta segn DNI sera: " & Forms!revisaletranif!letra) P"R"&$ P"V" P"R)&$@ P"R"&(2@k@ Xrevisaletranif HB@Bokh &$* P"V"XaAttribute VB_Name = "Form_client es" Bas0{CE6C9708-55F1-11D5-A4B8-0010B5A5B02C} |Global!SpacFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$Option Com2p@ DT  ?,-./012  !"#Root Entry` s9VBA` s` sVBAProject ` s` sVBA` s` s__SRP_0 __SRP_11__SRP_25n__SRP_3O  !"#$%&'()*+,-./02346789:;<=>?@ABCDEFGHIJKLMNPQSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~K*mrUA~~~~~~~~~~~Z I~,  a a I Form_clientes CompruebaNifFKC:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  1`J_N?=c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olbAccess 9 ap0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole YWFNc:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE a1I~,I~,lU,I~,AC7? Etiqueta3@C7?nif31?FormSC7?Detalle Etiqueta2 Form_Opennif_AfterUpdate PVBE6.DLL@ Esta aplicacin es gratuita y totalmente9  @                  @4Aaixxx@8rrrI@< @@)ppp@DAaAvvvdWp0+'''<:lN\\ 6\<0$ b \<l\'l%$ \(L]u5\k'%'(%'L%:l%8$ `8 `88! |Q8o\< <:L % :l%$ T $  L  $ aA) 6\<B :L%:l%8$ T8 $  L  $ Q o\<  <: %:(%$ T $  L  $ a%:%:%$ T $  L  $ ,)86\<^ i(% :L%:l%8$ T8 $  L  $  )8 :l%8$ `8 ,8l$ O L8 l @\ @xL @< P(%`%h%0h@@, @ @ @ FLNH&*P@ l @8\ @ L @< PX@P8 ge@8( @@ @h @ @ @ @ @ @ @ @( @X @ @p @ @ @ @ @X(`(hPS>$*\Rffff*4;3e538542*\R1*#a*\R0*#13*\R1*#39*\R1*#8f*\R1*#91*\R1*#92*\R0*#f*\R1*#25*\R1*#19*\R1*#10*\R1*#98*\R1*#99*\R0*#14*\R1*#98*\R1*#25*\R1*#92*\R1*#8f*\R1*#39x4r8<p@vD  e la aplicacin; e inmediatamente le ser remitida esta aplicacin totalmente abierta. Del mismo modo, si desea que las modificaciones que necesita sea yo el que se las haga, hgame llegar al mismo correo estos requerimientos y hablamos sobre el coste.A@o``*revisaletranif$F revisaletranif L N HB@JMsgBox ("La letra del NIF no es correcta, no cumple algoritmo. La letra correcta segn DNI sera: " & Forms!revisaletranif!letra) P"R"&$ P"V" P"R)&$@ P"R"&(2@k@ Xrevisaletranif HB@Bokh &$* P"V"XaAttribute VB_Name = "Form_client es" Bas0{CE6C9708-55F1-11D5-A4B8-0010B5A5B02C} |Global!SpacFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$Option Com2p@ DT  0 Thena DoCmd.'_`, #acReadOnly, acHiddA Right( , 1) <>Bjs!!:'jLN!.l 8NIF`@Ak$ctda,cu_boritmo. G_@fDNI ra: " &$s!!` Left(/, 8) + R.@eC@pr RGB(255, 0@9If u/Cie*/6  ` &H00000000 [Workspace] Form_clientes=22, 22, 470, 388, Z Form_clientesForm_clientes02=Bb c8)e ghi:jj,kSkX@ Revisa Letra NIF"[Event Procedure] Ariald2m45bg[`Detallem7U`a bQcnif"[Event Procedure]d5U`a bgcd Etiqueta1Nif: TahomaPROJECTwm,AcessVBADataForms jj0jjBlob PropDataTypeInfow1jj enta 2100 4149 75 2100105358 a favor de Carlos Querino, justifquela enviando un correo a cmqs@telepolis.com indicando su nombre, e-mail y el nombre de la aplicacin; e inmediatamente le ser remitida esta aplicacin totalmente abierta. Del mismo modo, si desea que las modificaciones que necesita sea yo el que se las haga, hgame llegar al mismo correo estos requerimientos y hablamos sobre el coste. S  * revisaletranifɤs h)aN?`GXGP(aN? letra]协N?tpY? clientes CIFForeColor k i  L  nifI~,hrU~~~~w  A  ( 8CancelarU 0 9aa)9@4Aaixxx@8rrrI@< @@)ppp@DAaAvvvdWp0+'''<:lN\\ 6\<0$ b \<l\'l%$ \(L]u5\k'%'(%'L%:l%8$ `8 `88! |Q8o\< <:L % :l%$ T $  L  $ aA) 6\<B :L%:l%8$ T8 $  L  $ Q o\<  <: %:(%$ T $  L  $ a%:%:%$ T $  L  $ ,)86\<^ i(% :L%:l%8$ T8 $  L  $  )8 :l%8$ `8 ,8l$ O L8 \<<8PrU P(`0&$A`nam  2*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\ARCHIVOS DE PROGRAM LC:x PROJECT {PROJECTwm,F99-101B-AF4E-00AA003F0F07}#9.0#0#c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automationp*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#c:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 S><8BCGTKNIMOEXEZ_WRPNPW_PNZSCLC4;3e538542iForm_clientes< D,͜~,`59+ AccessGEndsub VBAWin16~Win32MacVBA6# CompruebaNif)DAOForm_CompruebaNif _Evaluate Form_Open-CancelMsgBoxRnif_AfterUpdategletrarTdomdb\rc^ Recordsetrevnif7 IsNumeric$*Right  CurrentDbS OpenRecordset| MoveFirstN ForeColor(stdole`(VBIDEAFormDetalleL Etiqueta14 Etiqueta25 Etiqueta36 AfterUpdate _B_var_DAO?DCountDoCmdƧOpenFormacFormReadOnlylacHiddenFormsclientesCCIFd~revisaletranifSacForm GoToControl PItemzControlsK _B_var_Right9 _B_var_LeftQenfωCZ Form_clientes7_B_var_CH46i   (4 r << d _ Z g  ~ )   FPROJECTwm,AcessVBADataForms jj0jjID="{9CCD2C4A-7E00-11D6-A4BD-0010B5A5B02C}" DocClass=Form_clientes/&H00000000 Name="CompruebaNif" HelpContextID="0" VersionCompatible32="393222000" CMG="3436D57555D359D359D75DD75D" DPB="96947717BB1B1C1C1C1C1C" GC="F8FA19DA1ADA1A25" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_clientes=22, 22, 470, 388, Form_clientesForm_clientesrU~~~~w  A  ( 8CancelaK*mrUA~~~~~~~~~~~Z I~,  a a tes CIFForeColor k i  L  nifI~,ham   9qE@mqE@revisaletranifyB@ |@VJJ>>>>>>>< @vqE@vqE@MSysAccessObjectsyDDDDDDDDDDB VqE@ qE@calc_letranify@ HHH<<<<<<<: @ """qE@"""qE@revisaletranify>>>>>>>>>><  kX@8-pE@clientesy22222222220  q|X@q|X@UserDefinedy88888888886  q|X@q|X@SummaryInfoy@ DDD88888886 @ c=Z@m\qE@AccessLayouty4MR2KeepLocal T@zz:::::::8 @r|X@r|X@SysRely.........., r|X@r|X@Scriptsy0000000000. r|X@r|X@Reportsy0000000000. r|X@r|X@Modulesy0000000000. r|X@r|X@Formsy,,,,,,,,,,* 8-pE@8-pE@DataAccessPagesy@@@@@@@@@@> Ŧm|X@Ŧm|X@MSysRelationshipsxDDDDDDDDDDB Ŧm|X@Ŧm|X@MSysQueriesx88888888886 Ŧm|X@Ŧm|X@MSysACEsx22222222220 Ŧm|X@Ŧm|X@MSysObjectsx88888888886 Ŧm|X@G@qE@MSysDby@ :::......., @Ŧm|X@Ŧm|X@Relationshipsx<<<<<<<<<<: Ŧm|X@Ŧm|X@Databasesx44444444442 Ŧm|X@Ŧm|X@Tablesx.........., qY`KN Y iY  letrardo       copiar la tabla 'calc_letranif', la consulta y formulario 'revisaletranif' y copiar al control en cuestin el codigo del evento "Despus de actualizar" de este control NIF (ste cdigo slo disponible en el .mdb, o sea en la aplicacin abierta). Tngase en cuenta que el control se llama NIF y el formulario Clientes (o se cambian estos nombres o se cambia el cdigo consecuentemente.)PropDataTypeInfow1` s` sBlob &ͬlU,Detalled Etiqueta1d Etiqueta2d Etiqueta3mnif0=Bb ce ghXiJjk> z@revisaletranifrevisaletranif Ariald2e Ariale1bRcRf5bg1237bchbcg Ariali1ghj16ghk1bcl23:bc g[m4bg[ Arialn2cdh[ Arialo2ej[ Arialp5bczbci Arial{5bcJ e Arial`@@.EncabezadoDelFormulariot;a`rrDetallet;am7U`arbce letra letrat;ad5U`9arbcletra Etiqueta letraletra_Etiquetat;a`@@ PieDelFormulariot;aPropDataTypeInfoDirData<Cmdbars` s` sͬI~,EncabezadoDelFormularioDetallemletrad letra_Etiquetaletra EtiquetaPieDelFormulario revisaletranifclientesijMSysDbdvX:Z  DirDataCustomGroups"HHDataAccessPages HH !"&%)'(*,+-.Root EntryH0VBAHHVBAProject HHVBAHHdirL__SRP_0 __SRP_1:__SRP_2 >~  !"#$%&'()*+,-./0123456789;<=?@ABCDEFGHIJKLMNOPQRSTUVWYZ\]^_`abcdefghijklmnopqrstuvwxyz{|}~H0* pHd Comprueb aNif<@ = v S>"<Vrstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automatio&n^gVB@IDE> VBIDE5C€CE1D57C5.3Cc:\Archivos de pr@ograma comunes\Microsoft Shared\(VBA6E6EXT.OLB#Visual Basic for Applicgs Extensibility. E]"<lForm_clientesG F_rm_Tcai@bn@ees@BCGTKNIMOEXEZ_WRPNPW_PNZSCLC28ACGTKNQMOQXZ WRPPFW@AZS L#AH@1ŒCE@,.<"B(B+B K*mrUA~~~~~~~~~~~Z I~,  A a @ ' calc_letranif.rdo0 g v@ g calc_letranif.letra2 g calc_letranif.letra2 g calc_letranif+++   G  [forms]|pdXL@4( Y Y  letrardo    $% & ' ( ) * + @ A B6789345:;<=>?,-.2"C"D"E"F  !"###†7 l {tozgHҩd[) U{p {q Tx9>TP#AaU&Z!~e?L}i䘐} d"ۄ~SgSqq l {tozgHҩd[) U{p zq Txs}j6Ꝟ!~e?L}i䘐} d" ۘ†7 l {tozgHҩd[) U{p Tx9>TP#AaU&Z!~e?L}i䘐} d"ۄ~SgSqq l {tozgHҩd[) U{p zq xs}j6Ꝟ!~e?L}i䘐} d" ۘ†7 l {tozgHҩd[) U{p {q x9>TP#AaU&Z!~e?L}i䘐} d"ۄ~SgSqq l {tozgHҩd[) U{p zq {q x9>TP#AaU&Z!~e?L}i䘐} d"ۄ~SgSqq l { J"vqE@vqE@TempMSysAccessObjects֬LLLLLLLLLLJ  9qE@mqE@revisaletranif֬B@!|@ VJJ>>>>>>>< @VqE@ qE@calc_letranif֬@!HHH<<<<<<<: @ """qE@"""qE@rqE@qE@calc_letranif:::::::::::  qE@qE@revisaletranif<<<<<<<<<<<  qE@qE@clientes00000000000  qE@qE@UserDefined66666666666  qE@qE@SummaryInfo66666666666  qE@qE@AccessLayout88888888888 qE@qE@SysRel,,,,,,,,,,, qE@qE@Scripts........... qE@qE@Reports........... qE@qE@Modules........... qE@qE@Forms*********** qE@qE@DataAccessPages>>>>>>>>>>> qE@qE@MSysRelationshipsxDDDDDDDDDDB qE@qE@MSysQueriesx88888888886 qE@qE@MSysACEsx22222222220 qE@qE@MSysObjectsx88888888886 qE@qE@ZY XWVTTSRQP NMLK JHGFE DC BA YNY Y GWDataIDILWYAOIndex        Y.qE@ /qE@revisaletranif<<<<<<<<<<< ~*qE@+qE@MSysAccessObjects֬DDDDDDDDDDB VqE@ qE@calc_letranif֬@!HHH<<<<<<<: @ """qE@"""qE@revisaletranif֬>>>>>>>>>><  kX@8-pE@clientes֬22222222220  q|X@q|X@UserDefined֬88888888886  q|X@q|X@SummaryInfo֬@!DDD88888886 @ c=Z@m\qE@AccessLayout֬4MR2KeepLocal T@ zz:::::::8 @r|X@r|X@SysRel֬.........., r|X@r|X@Scripts֬0000000000. r|X@r|X@Reports֬0000000000. r|X@r|X@Modules֬0000000000. r|X@r|X@Forms֬,,,,,,,,,,* 8-pE@8-pE@DataAccessPages֬@@@@@@@@@@> Ŧm|X@Ŧm|X@MSysRelationships׮DDDDDDDDDDB Ŧm|X@Ŧm|X@MSysQueries׮88888888886 Ŧm|X@Ŧm|X@MSysACEs׮22222222220 Ŧm|X@Ŧm|X@MSysObjects׮88888888886 Ŧm|X@JAqE@MSysDb֬@!:::......., @Ŧm|X@Ŧm|X@Relationships׮<<<<<<<<<<: Ŧm|X@Ŧm|X@Databases׮44444444442 Ŧm|X@Ŧm|X@Tables׮.........., v1             ƣhqӆaǎbq=5U$23/oX wacS.?'Q@"\h#(ݢ}R  ! "$#%&'(Root Entry` s9VBA` s` sVBAProject ` s` sVBA` s` s__SRP_0 __SRP_11__SRP_25n__SRP_3O  !"#$%&'()*+,-./02346789:;<=>?@ABCDEFGHIJKLMNPQSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~K*mrUA~~~~~~~~~~~Z I~,  a a I Form_clientes CompruebaNifFKC:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  1`J_N?=c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olbAccess 9 ap0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole YWFNc:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE a1I~,I~,lU,I~,AC7? Etiqueta3@C7?nif31?FormSC7?Detalle Etiqueta2 Form_Opennif_AfterUpdate PVBE6.DLL@ Esta aplicacin es gratuita y totalmenteK[ operativa, pero No puede ser modificada. Si usted necesita retocar algn diseo o simplemente quiere el fichero abierto para seguir amplindolo, haga una transferencia por valor de 10 a la cuenta 2100 4149 75 2100105358 a favor de Carlos Querino, justifquela enviando un correo a cmqs@telepolis.com indicando su nombre, e-mail y el nombre de la aplicacin; e inmediatamente le ser remitida esta aplicacin totalmente abierta. Del mismo modo, si desea que las modificaciones que necesita sea yo el que se las haga, hgame llegar al mismo correo estos requerimientos y hablamos sobre el coste. S  * revisaletranifɤs h)aN?`GXGP(aN? letra]协N?tpY? clientes CIFForeColor k i  L  nifI~,hrU~~~~w  A  ( 8CancelarU 0 9aa)9@4Aaixxx@8rrrI@< @@)ppp@DAaAvvvdWp0+'''<:lN\\ 6\<0$ b \<l\'l%$ \(L]u5\k'%'(%'L%:l%8$ `8 `88! |Q8o\< <:L % :l%$ T $  L  $ aA) 6\<B :L%:l%8$ T8 $  L  $ Q o\<  <: %:(%$ T $  L  $ a%:%:%$ T $  L  $ ,)86\<^ i(% :L%:l%8$ T8 $  L  $  )8 :l%8$ `8 ,8l$ O L8 \<<8PrU P(`0&$A`nam  2*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\ARCHIVOS DE PROGRAMK[v1A\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications"*\G{4AFFC9A0-5_VBA_PROJECT R BCGTKNIMOEXEZ_WRPNPW_PNZSCLC:x PROJECT {PROJECTwm,F99-101B-AF4E-00AA003F0F07}#9.0#0#c:\Archivos de programa\Microsoft Office 2K\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automationp*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#c:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 S><8BCGTKNIMOEXEZ_WRPNPW_PNZSCLC4;3e538542iForm_clientes< D,͜~,`59+ AccessGEndsub VBAWin16~Win32MacVBA6# CompruebaNif)DAOForm_CompruebaNif _Evaluate Form_Open-CancelMsgBoxRnif_AfterUpdategletrarTdomdb\rc^ Recordsetrevnif7 IsNumeric$*Right  CurrentDbS OpenRecordset| MoveFirstN ForeColor(stdole`(VBIDEAFormDetalleL Etiqueta14 Etiqueta25 Etiqueta36 AfterUpdate _B_var_DAO?DCountDoCmdƧOpenFormacFormReadOnlylacHiddenFormsclientesCCIFd~revisaletranifSacForm GoToControl PItemzControlsK _B_var_Right9 _B_var_LeftQenfωCZ Form_clientes7_B_var_CH46i   (4 r <<K[LI~,lU,I~,xI~,I~,MEX@[LS S6LLLLLLLLLL<\<`$*\Rffff*4;3e538542*\R1*#a*\R0*#13*\R1*#39*\R1*#8f*\R1*#91*\R1*#92*\R0*#f*\R1*#25*\R1*#19*\R1*#10*\R1*#98*\R1*#99*\R0*#14*\R1*#98*\R1*#25*\R1*#92*\R1*#8f*\R1*#39x4r8<p@vDID="{9CCD2C4A-7E00-11D6-A4BD-0010B5A5B02C}" DocClass=Form_clientes/&H00000000 Name="CompruebaNif" HelpContextID="0" VersionCompatible32="393222000" CMG="3436D57555D359D359D75DD75D" DPB="96947717BB1B1C1C1C1C1C" GC="F8FA19DA1ADA1A25" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_clientes=22, 22, 470, 388, Form_clientesForm_clientesAcessVBADataForms ` s` s0` s` sBlob 02=Bb c8)e ghi:jj,kSkX@ Revisa Letra NIF"K[[Event Procedure] Ariald2m45bg[`Detallem7U`a bQcnif"[Event Procedure]d5U`a bgcd Etiqueta1Nif: Tahomad5U7`Ramb#cdEtiqueta2&Comprueba letra NIF Tahomad5U`abx%cEtiqueta3 Para conseguir comprobar la letra del NIF en cualquier formulario de Access basta con copiar la tabla 'calc_letranif', la consulta y formulario 'revisaletranif' y copiar al control en cuestin el codigo del evento "Despus de actualizar" de este control NIF (ste cdigo slo disponible en el .mdb, o sea en la aplicacin abierta). Tngase en cuenta que el control se llama NIF y el formulario Clientes (o se cambian estos nombres o se cambia el cdigo consecuentemente.)PropDataTypeInfow1` s` sBlob &ͬlU,Detalled Etiqueta1d Etiqueta2d Etiqueta3mnif0=Bb ce ghXiJjk> z@revisaletranifrevisaletranif Ariald2e Ariale1bRcRf5bg1237bchbcg Ariali1ghj16ghk1bcl23:bc g[m4bg[ Arialn2cdh[ Arialo2ej[ Arialp5bczbci Arial{5bcJ e Arial`@@.EncabezadoDelFormulariot;a`rrDetallet;am7U`arbce letra letrat;ad5U`9arbcletra Etiqueta letraletra_Etiquetat;a`@@ PieDelFormulariot;aPropDataTypeInfoDirData<Cmdbars` s` sͬI~,EncabezadoDelFormularioDetallemletrad letra_Etiquetaletra EtiquetaPieDelFormulario revisaletranifclientesijMSysDbK[Modules ` s` sReports` s` sScripts` s` sPropDataDatabases ` s` s0` s` sBlob DirDataCustomGroups!` s` sDataAccessPages ` s` si  L  nifI~,hrU~~~~w  A  ( 8CancelarU 0 9aa)9@4Aaixxx@8rrrI@< @@)ppp@DAaAvvvdWp0+'''<:lN\\ 6\<0$ b \<l\'l%$ \(L]u5\k'%'(%'L%:l%8$ `8 `88! |Q8o\< <:L % :l%$ T $  L  $ aA) 6\<B :L%:l%8$ T8 $  L  $ Q o\<  <: %:(%$ T $  L  $ a%:%:%$ T $  L  $ ,)86\<^ i(% :L%:l%8$ T8 $  L  $  )8 :l%8$ `8 ,8l$ O L8 \<<8PrU P(`0&$A`nam  2*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\ARCHIVOS DE PROGRAM  @eDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName          X:Z  @ ' calc_letranif.rdo0 g v@ g calc_letranif.letra2 g calc_letranif.letra2 g calc_letranif+++   G  [forms]![clientes]![cif]AAA O  G    G LVAL @       (((IIf((Len([forms]![clientes]![nif])=9 And IsNumeric(Right([forms]![clientes]![nif],1))=0 And IsNumeric(Left([forms]![clientes]![nif],8))=-1) Or (Len([forms]![clientes]![nif])=8 And IsNumeric(Left([forms]![clientes]![nif],8))=-1),Int(Left([forms]![clientes]![nif],8))-(Int(Left([forms]![clientes]![nif],8)/23)*23),25))=[rdo]))IIf((Len([forms]![clientes]![nif])=9 And IsNumeric(Right([forms]![clientes]![nif],1))=0 And IsNumeric(Left([forms]![clientes]![nif],8))=-1) Or (Len([forms]![clientes]![nif])=8 And IsNumeric(Left([forms]![clientes]![nif],8))=-1),Int(Left([forms]![clientes]![nif],8))-(Int(Left([forms]![clientes]![nif],8)/23)*23),25)?CvcP=*z @ -  } j C 0  m Z G p]I654!  p]Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute x  {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op  y x {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y x {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y @{I\Jm~~!ox"0h𑝙ٴ  _Ķ ¡ikch6yPdzRʲk"+੄'ӷSMd9+@Op x T{WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y T{I\Jm~~!ox"0h𑝙ٴ  _Ķ ¡ikch6yPdzRʲk"+੄'ӷSMd9+@Op T{WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y {I\Jm~~!ox"0h𑝙ٴ  _Ķ ¡ikch6yPdzRʲk"+੄'ӷSMd9+@Op x {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y x {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y  y  {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op  x  y  {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op  x x x {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op x y x {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y x x y {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op x x y {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op x x y {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op x x {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op y x x y {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op x x y {WQox"0h8a5yLN2L _Ķ ¡ikcĬn@ǗG ʲk"+੄'ӷSMd9+@Op x y x y {I\Jm~~!ox"0h𑝙ٴ  _Ķ ¡ikch6yPdzRʲk"+੄'ӷSMd9+@Op x LVAL> @ @ @ @     άPQM Scalc_letranifʾCrear una tabla en vista Diseorevisaletranifclientes|\2^3|LVAL =*z @ -  } j C 0  m Z G Y   Y Y  Y Y  Y  DY  Y   Y  Y  Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName         MR2ColumnWidthColumnHiddenRecordLocksODBCTimeoutMaxRecordsRecordsetType FilterOrderByOrderByOnReplicableOrientationGUID:  <    MR2OrderByOnColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControlDecimalPlacesDefaultValue S letra       mY rdo      0  mMR20 Title AuthorCompanyb CompruebaNif(  VELASCO HARO PSI PSIMR2AccessVersion BuildAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges$AllowBreakIntoCode AllowSpecialKeysAppIcon,StartupShortcutMenuBar6Track Name AutoCorrect Info0Perform Name AutoCorrectCpgConversionHijriCalendarMDEU 08.50  " Form.clientes            (  Revisa Letra NIFb ZC:\Mis documentos\Mis imgenes\Iconos\Acc.ico     ! T