Insert-Delete-Update-Post Data In listbox

بالنسبة للطباعة اعمل زر وادخل الاكواد[/size][/b][/left]


Private Sub ButtonPrint_Click()
If Me.Frame1.ScrollHeight > Me.Frame1.Height Then
Print1
Else
If MsgBox(" هل تريد طباعة السجل على الفورم ؟ ", vbYesNo + mBox, "طباعة على الفورم ") = vbYes Then
Print2
Else
Print1
End If
End If
End Sub