Ada ide lain sbb:
Ntar kalo mau nambah kontrolnya tinggal edit / tambah varListKontrolnya.
List Kontrol itu hanya ngambil digit namanya aja.
Sub Nol()
On Error Resume Next
varListKontrol=
"A11,A12,A13,A14,A15,A16,A17,A18,A19,B21,B22,B23,B24,B25,D41,D42,D43,D44"
x = Split(varListKontrol, ",")
For i = 0 To UBound(x)
Controls("R" & x(i)).Locked = Nz(Controls("L" & x(i))) = 0
Next
End Sub
_____
From: [email protected] [mailto:[email protected]]
On Behalf Of Aksan Kurdin
Sent: Tuesday, March 09, 2010 11:45 AM
To: [email protected]
Subject: Re: [belajar-access] menyederhanakan kode
Cakep ....
ini udah bahasa programmer .....
aksan kurdin
On 3/9/2010 11:46 AM, MBA wrote:
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: belajar-access@ <mailto:belajar-access%40yahoogroups.com>
yahoogroups.com [mailto:belajar-access@
<mailto:belajar-access%40yahoogroups.com> yahoogroups.com]
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
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
