Search results

Private Sub cborentals_AfterUpdate() Dim who As String Me.cbostudent.Value = cborentals.Column(1) Me.Fname.Value = cborentals.Column(5) Me.Lname.Value = cborentals.Column(6) Me.sgrade.Value = cborentals.Column(7) Me.CLASS.Value = cborentals.Column(8) Me.cbobookid.Value = cborentals.Column(2)...

Private Sub loginbtn_Click() Dim dbs As Database Dim rstUserPwrd As Recordset Dim bfoundMatch As Boolean Dim utype As String Set dbs = CurrentDb Set rstUserPwrd = dbs.OpenRecordset("qryUserPwd") bfoundMatch = False If rstUserPwrd.RecordCount > 0 Then rstUserPwrd.MoveFirst ' check...

yeah i kno ... one error at a time ... if you look above i posted the entire access file im working with.

tried this also ... trying suggestions on different versions on different pcs ... getting different errors now Error 1: and Error 2: i know the names of my menu forms are not Main and Main2 but instead, Menu and Menu2

Here is the file ... having issues with the login form. Login1

sigh ... can i post the access file, specify the form im having issue with and someone help ??

sorted out the top 2 lines ... now i understand using Office 2013

below is the error im getting after including Option Explicit. below are my references

im helping a friend with a project, he copied my login screen, users table and password query. it works fine on my pc, and fine on 3 other mates' computers but for this fourth friend, he is getting errors. i think ive tried all the suggestions found in forums: but to no avail, including making...

thanks

thanks alot. worked like a charm. thanks for the pointer on the encapsulation and tutorial on how to use DLookup.

so i have a simple select query which selects one value from a table. how do i then pass the one value to a variable ? the query in question is highlighted.

frmPartnerDraws.Requery frmPartnerPayments.Requery i put these in the AfterUpdate event and they work just fine

i tried none. so how would i do this ? would i just use formname.requery in the OnChange of the combobox ?

can i refresh a subform from OnChange of combobox ? if so, how can i achieve that ? please and thanks

no i havent tried it as yet ... if it doesthe same thing as my noob code, id replace it with yours .... im all about learning. trying to maximise my vba learning experience.

No worries guys, i found out the problem. i had copied the module, and given it another name but did not change the name of the function in the module .... no worries

Public Function MaxRID() As String Dim rental As String Dim newR As Integer rental = DMax("RentalId", "Rentals") 'R-001 'MsgBox (rental) newR = Mid(rental, 3) + 1 If newR < 10 Then MaxRID = "R-00" & newR ElseIf newR >= 10 And newR < 100 Then MaxRID = "R-0" & newR Else MaxRID = "R-" & newR...

Can u explain to me what this does please ?

Public Function MaxRID() As String Dim rental As String Dim newR As Integer rental = DMax("RentalId", "Rentals") 'R-001 'MsgBox (rental) newR = Mid(rental, 3) + 1 If newR < 10 Then MaxRID = "R-00" & newR ElseIf newR == 10 MaxRID = "R-0" & newR ElseIf newR > 10 And newR < 100 Then MaxRID =...