Ini lebih sederhana tidak ya?
RA11.LOCKED=NZ(LA11)=0 RA12.LOCKED=NZ(LA12)=0 RA13.LOCKED=NZ(LA13)=0 RA14.LOCKED=NZ(LA14)=0 RA15.LOCKED=NZ(LA15)=0 RA16.LOCKED=NZ(LA16)=0 RA17.LOCKED=NZ(LA17)=0 RA18.LOCKED=NZ(LA18)=0 RA19.LOCKED=NZ(LA19)=0 RB21.LOCKED=NZ(LB21)=0 RB22.LOCKED=NZ(LB22)=0 RB23.LOCKED=NZ(LB23)=0 RB24.LOCKED=NZ(LB24)=0 RB25.LOCKED=NZ(LB25)=0 RD41.LOCKED=NZ(LD41)=0 RD42.LOCKED=NZ(LD42)=0 RD43.LOCKED=NZ(LD43)=0 RD44.LOCKED=NZ(LD44)=0 Salam, MBA -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of him mah Sent: Tuesday, March 09, 2010 11:27 AM To: belajar-access Subject: [belajar-access] menyederhanakan kode maaf mau tanya, kalau kode dibawah kira-kira bisa disederhanakan ngga? Sub TidakNol() If Nz(LA11) = 0 Then RA11.Locked = True Else RA11.Locked = False End If If Nz(LA12) = 0 Then RA12.Locked = True Else RA12.Locked = False End If If Nz(LA13) = 0 Then RA13.Locked = True Else RA13.Locked = False End If If Nz(LA14) = 0 Then RA14.Locked = True Else RA14.Locked = False End If If Nz(LA15) = 0 Then RA15.Locked = True Else RA15.Locked = False End If If Nz(LA16) = 0 Then RA16.Locked = True Else RA16.Locked = False End If If Nz(LA17) = 0 Then RA17.Locked = True Else RA17.Locked = False End If If Nz(LA18) = 0 Then RA18.Locked = True Else RA18.Locked = False End If If Nz(LA19) = 0 Then RA19.Locked = True Else RA19.Locked = False End If If Nz(LB21) = 0 Then RB21.Locked = True Else RB21.Locked = False End If If Nz(LB22) = 0 Then RB22.Locked = True Else RB22.Locked = False End If If Nz(LB23) = 0 Then RB23.Locked = True Else RB23.Locked = False End If If Nz(LB24) = 0 Then RB24.Locked = True Else RB24.Locked = False End If If Nz(LB25) = 0 Then RB25.Locked = True Else RB25.Locked = False End If If Nz(LD41) = 0 Then RD41.Locked = True Else RD41.Locked = False End If If Nz(LD42) = 0 Then RD42.Locked = True Else RD42.Locked = False End If If Nz(LD43) = 0 Then RD43.Locked = True Else RD43.Locked = False End If If Nz(LD44) = 0 Then RD44.Locked = True Else RD44.Locked = False End If End Sub ------------------------------------ SPAM IS PROHIBITEDYahoo! Groups Links No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.733 / Virus Database: 271.1.1/2731 - Release Date: 03/09/10 02:33:00
