helllo
i have a DB with mdi form
after login the mdi dosnt show
it passes by to the next form
i have a DB with mdi form
after login the mdi dosnt show
it passes by to the next form
Code:
Private Sub Form_Activate()
ULog = NextID("LogID", "Logs")
CN.Execute "INSERT INTO Logs (LogID, LogName, LogIN, LogOUT) VALUES (" & _
ULog & ", '" & UsLogin & "', '" & Format(Now, "dd/mm/yyyy, hh:mm:ss") & "', '')"
Me.MousePointer = vbHourglass
Load MDImain
Load FrmCusts
Bar.Value = 1
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM Customers", CN, adOpenStatic
Bar.Max = RS.RecordCount
LoadCusts
Me.MousePointer = vbNormal
Unload Me
MDImain.Show
End Sub
Private Sub LoadCusts()
Set RS = CN.Execute("SELECT * FROM Customers ORDER BY FullName")
While Not RS.EOF
Set Itm = FrmCusts.LsVw.ListItems.Add(, , RS!FullName, , "cust")
Itm.Tag = RS!ID
Itm.Bold = True
Itm.SubItems(1) = RS!Address
Itm.SubItems(2) = Format(RS!DateBirth, "dd/mm/yyyy")
Itm.SubItems(3) = RS!Facebook
Itm.SubItems(4) = RS!Email
Itm.SubItems(5) = RS!Phone
Itm.SubItems(6) = RS!Cellular
Itm.SubItems(7) = RS!HairColour
Itm.SubItems(8) = RS!Oxygen
Bar.Value = Bar.Value + 1
RS.MoveNext
DoEvents
Wend
End Sub