Private Sub CmdNew_Click()
Dim rst As Recordset
'misal property name dari subform adalah SubForm2
Set rst = Me.subForm2.Form.Recordset
For i = Me.AngkaAwal To Me.AngkaAkhir
strFind = "Kode = " & Me.Kode & " and Angka = " & i
rst.FindFirst strFind
If rst.EOF Then
rst.AddNew
rst.Fields("kode") = Me.Kode
rst.Fields("Angka") = i
rst.Update
End If
Next i
End Sub
--- In belajar-access@yahoogroups.com, Ahmad Satiri <satiri27@...> wrote:
>
> Master-master semua, sebelumnya salam kenal dan saya ucapkan banyak terima kasih atas infonya yang saya dapat setiap kali saya ada kesulitan pada program Access.
> Biasanya saya langsung cari dari hasil diskusi / komunikasi dari rekan - rekan yang mempunyai permasalahan yang sama.
> Tapi untuk saat ini dimana saya ingin membuat satu Form dengan 2 textbox dan 1 button dan satu subform saya belum menemukan jawabannya. Oleh karena itulah saya memberanikan diri untuk bertanya.
> 2 text itu adalah (textdari dan textsampai) apabila saya isi angka 1 pada textdari dan angka 10 pada textsampai lalu saya tekan button OK maka pada subform akan muncul angka 1,2,3.....10.
> Bagi master-master, saya mohon bantuannya secepatnya.
>
> Sebelum dan sesudahnya saya ucapkan terima kasih.
>
Tidak ada komentar:
Posting Komentar