'------------------start----------------------- Function UlangUlang(ByVal NamaTabel As String, ByVal NamaKolom As String, ByVal NM As Integer) As Integer
HJB = DCount(NamaKolom, NamaTabel) If NM > HJB Then UlangUlang = HJB + 1 Else UlangUlang = (HJB + 1) Mod NM End If End Function '-------------------end------------------- ----- Original Message ----- From: sukarno To: [email protected] Sent: Tuesday, 25 September, 2007 08:39 Subject: [belajar-access] Nomer Urut yang berulang Para Master, Bagaimana cara membuat nomer urut yang berulang, misal setelah urut dari 1 sampai 50, kembali ke 1 lagi sampai 50 , kembali ke 1 lagi dan seterusnya... Terima kasih. sukarno **************************************************** Sukarno Design Engineering & IT Staff PT.SUMI INDO KABEL Tbk. Email : [EMAIL PROTECTED] Telp : 021-5922404 ext:201 *************************************************
