Search results

hi, forms record will show data when select on listbox When i select data on listbox record will show on forms.

TQ for the reply.

hai i have problem sometime my print preview report will print form not a report. print preview show report but it will print forms not report (sometime will print report but sometime will print forms).. can i know what the problem ? any wrong setting ? report call via button from forms button...

thanks for the help

sory2 wrong calculation ? can i ask question about Public Function AgeFromGovID(ByVal pID As String) As Integer Dim dt As Date pID = pID & "" If Len(p) = 0 Then Exit Function End If dt = DateSerial(Left$(pID, 2), Mid$(pID, 3, 2), Mid$(pID, 5, 2)) AgeFromGovID = AgeYears(dt) End Function...

HI, got issue when born year = 2000 Private Sub Report_Load() umor1 = DateDiff("yyyy", DateSerial(Left([TGuruIPS.NoKP], 2), Mid([TGuruIPS.NoKP], 3, 2), Mid([TGuruIPS.NoKP], 5, 2)), Date) End Sub 031118-04-0350 the code show (19) real age is 29 03 = year born 2003 (my gov id 03) 11 = month...

Private Sub listsemuaguru_DblClick(Cancel As Integer) Dim clnpusatini As Integer, RESPON As String Dim db As Database Dim rec As Recordset Set db = CurrentDb Set rec = db.OpenRecordset("SELECT * FROM TGuruIPS WHERE NamaGuru='" & Forms![FkemaskiniPG]![listsemuaguru] & "'")...

Dim db As Database Dim rec As Recordset Set db = CurrentDb Set rec = db.OpenRecordset("Select * from TGuruIPS") rec.Edit rec("KodInstitusi") = Me.textkodips rec("JenisInstitusi") = Me.textjenisips rec("Institusi") = Me.textnamaips...

Why save institution code and other institution info - why not just save the institution code? other are info are not connector so need to insert other info

yes post #6 is answer for post #5 i dont know using the DAO Dim MyDB As DAO.Database, MyTable As DAO.Recordset Set MyDB = CurrentDb Set MyTable = MyDB.OpenRecordset("SELECT * FROM TGuruIPS WHERE NamaGuru='" & Forms![FkemaskiniPG]![listsemuaguru] & "'") MyTable.MoveLast MyTable.MoveFirst If...

i rename my database i got error Run-time Error 3021, No Current Record on yellow .edit

sorry i am new in access and my english is not good enough

this is my project and what i want to do.. i want to edit and update few fields just double click the listbox

i am not sure.. i just create this project..

error point here : Dim MyDB As Database, MyTable As Recordset

I HAVE TWO LIST 1 is all teacher 2 is filter by school name. so i want to transfer 1 teacher to another school when i double click on all list teacher. it will update the school name

Private Sub listsemuaguru_DblClick(Cancel As Integer) Dim clnpusatini As Integer, RESPON As String Dim MyDB As Database, MyTable As Recordset Dim JWBCONFIRM As String Set MyDB = DBEngine.Workspaces(0).Databases(0) Set MyTable = MyDB.OpenRecordset("TGuruIPS", DB_OPEN_TABLE)...

hi. i want to edit and update some field via vba . i write some code but it as some error Private Sub listsemuaguru_DblClick(Cancel As Integer) Me![listgurufilterips].Requery Dim tguru As Integer, RESPON As String Dim MyDB As DAO.Database, MyTable As DAO.Recordset Dim JWBCONFIRM As String...

yes it working.. tq for the guide thanks